access設(shè)置報錶的打印頁邊距

需要打印的報錶，有一定的頁麵格式。設(shè)置好格式，纔能更好的打印到對應(yīng)的紙張中。

access設(shè)置報錶格式， 設(shè)置指定的打印頁的邊距

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

其中因爲(wèi)單位爲(wèi) 緹（Twips），1cm= 567  Twips

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