Rapport preview 200% vergroten

[Stubbe57]

Goede dag mede forum gebruikers.

Ik heb een vraag omdat ik er zelf niet uitkom.

Als ik een pre-view van een rapport opvraag dan krijg ik deze netjes in beeld, echter wil ik deze meteen 200% vergroten zonder dat zelf te hoeven doen.

Onderstaand de methode welke ik gebruik om een pre-view van het rapport te krijgen..

Private Sub Knop192_Click()
On Error GoTo Err_Knop192_Click

    Dim stDocName As String

    DoCmd.RefreshRecord
    DoCmd.OpenReport "klant geschiedenis", acViewPreview, , "ID = " & Me.Id
    
Exit_Knop192_Click:
    Exit Sub

Err_Knop192_Click:
    MsgBox Err.Description
    Resume Exit_Knop192_Click

End Sub

Het zal misschien niet het beste stukje programma maar het werkt perfect op het zoomen na

Alvast bedankt

Jan

 

[OctaFish]

Laten we zeggen dat er alleen een fout zat in de manier waarop je de code hebt neergezet (zelf de teksten "quote" en "un-quote" bedacht vermoed ik ). Gebruik sowieso de knop CODE en NOOIT de knop Quote. En zeker niet voor code. Maar je zoekt dus dit:

Private Sub Knop192_Click()
    With DoCmd
        .OpenReport "klant geschiedenis", acViewPreview, , "ID = " & Me.Id
        .RunCommand acCmdZoom200
    End With
End Sub

Waarbij een simpele tip natuurlijk is om knoppen zinvolle namen te geven. Het is bijzonder handig later als je a.d.h.v. de naam van de knop al kan zien wat-ie doet.

 

[Stubbe57]

Opgelost

Hallo Octafish

Dit was exact wat ik bedoelde.

Ik ben bezig om de namen aan te passen want iid het zoekt wat makkelijker terug

Dank voor je genomen moeite

Groet

Jan