Zoom to 100%

Jeg må vel bare nøjes med
Autostørrelse=Nej
Autocentrering=Ja
(også selv om den ikke kan centrere rapporten)

http://www.eksperten.dk/spm/417366

Her kan du i formularen indtaste den størrelse i feltet Størrelse rapporten skal åbne i. Variablen A sættes = dette felt:

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

Hvis den altid skal åbnes i den samme størrelse kan du bruge:

DoCmd.OpenReport RAPPORT1, View:=acViewPreview

Reports(RAPPORT1).ZoomControl = 100

Henrik, der stod ikke det jeg havde brug for.
mugs, LIGE hvad jeg havde brug for!
Takker