Bu kodlar Access'in Araçlar-Seçenekler menüsündeki Marginlerin kodu:

'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