Printet er for stort

Jeg ved ikke om du kan bruge denne. Den åbner rapporten i en forudbestemt størrelse. Feltet Størrelse er et ubundet felt i din formular i hvilket du indtaster et tal svarende til hvor mange % af fuld størrelse rapporten skal åbnes i:

Dim ReportName As String, A As Integer
A = Me!Størrelse
ReportName = "Rapport1"
With DoCmd
.OpenReport ReportName, View:=acViewPreview
.Maximize
End With
Reports(ReportName).ZoomControl = A