'Print margins, Left margin
Application.SetOption "Left Margin", "1cm"
'Print margins, Right margin
Application.SetOption "Right Margin", "1cm"
'Print margins, Top margin
Application.SetOption "Top Margin", "1cm"
'Print margins, Bottom margin
Application.SetOption "Bottom Margin", "1cm"
Bu kodlar sadece istenilen rapor için geçerli.
Private Sub Report_Open(Cancel As Integer)
Me.Printer.PaperSize = acPRPSA4 'A4 kağıt boyutu
Me.Printer.BottomMargin = 10
Me.Printer.TopMargin = 10
Me.Printer.LeftMargin = 10
Me.Printer.RightMargin = 10
End Sub