access設(shè)置報(bào)表的打印頁邊距

需要打印的報(bào)表，有一定的頁面格式。設(shè)置好格式，才能更好的打印到對(duì)應(yīng)的紙張中。

access設(shè)置報(bào)表格式， 設(shè)置指定的打印頁的邊距

如下代碼。用TopMargin 與 LeftMargin、RightMargin 和 BottomMargin屬性起指定打印頁的邊距。

其中因?yàn)閱挝粸?緹（Twips），1cm= 567  Twips

Private Sub 設(shè)置_Click()
    '沒有設(shè)置頁邊距或頁邊距設(shè)置錯(cuò)誤時(shí)出錯(cuò)
    On Error GoTo Err
       
    DoCmd.OpenReport "報(bào)表1", acViewPreview
    '設(shè)置報(bào)表“報(bào)表1”上邊距
    Reports("報(bào)表1").Printer.TopMargin = 上 * 56.7
    '設(shè)置報(bào)表“報(bào)表1”下邊距
    Reports("報(bào)表1").Printer.BottomMargin = 下 * 56.7
    '設(shè)置報(bào)表“報(bào)表1”左邊距
    Reports("報(bào)表1").Printer.LeftMargin = 左 * 56.7
    '設(shè)置報(bào)表報(bào)表1”右邊距
    Reports("報(bào)表1").Printer.RightMargin = 右 * 56.7
If 0 Then
Err:
    '出錯(cuò)時(shí)打開錯(cuò)誤提示
    MsgBox "頁邊距沒有設(shè)置完整或設(shè)置錯(cuò)誤！"
End If
End Sub