Åbne rapport fra en formular i en bestemt størrelse

Jeg bruger flg. kode:

Sub aabenRpt()
    Dim ReportName As String
    ReportName = \"rpt_udkald_oversigt\"
   
    With DoCmd
        .OpenReport ReportName, View:=acViewPreview
        .Maximize
    End With
    Reports(ReportName).ZoomControl = 85
End Sub

Egenskaben zoomcontrol er ikke dokumenteret, men ser ud til at virke når rapporten har fokus - man er altså nødt til at åbne rapporten først OG gøre den til det AKTIVE VINDUE  !!!!!!

ps. Kan ikke huske hvor jeg har fundet koden, hvis det er kopi her fra eksperten beklager jeg.

Niels

Hvis du sætter:

Reports(ReportName).ZoomControl = 0

svare det til \'tilpas\' i zoom-boksen

Niels

hvis du kan nøjes med de indbyggede zoom-indstillinger, kan du bare bruge:
DoCmd.RunCommand acCmdZoom75
eller en af de andre.
Men ellers er zoomcontrol rigtig god.

Hej og takker for forslagene. Det ser ud til at virke fint.
Jeg havde selv set lidt på acCmdZoomXX men det var ikke helt nok kun at bruge de indbyggede zoom-indstillinger.

WetDog