access设置报表的打印页边距

需要打印的报表，有一定的页面格式。设置好格式，才能更好的打印到对应的纸张中。

access设置报表格式， 设置指定的打印页的边距

如下代码。用TopMargin 与 LeftMargin、RightMargin 和 BottomMargin属性起指定打印页的边距。

其中因为单位为 缇（Twips），1cm= 567  Twips

Private Sub 设置_Click()
    '没有设置页边距或页边距设置错误时出错
    On Error GoTo Err
       
    DoCmd.OpenReport "报表1", acViewPreview
    '设置报表“报表1”上边距
    Reports("报表1").Printer.TopMargin = 上 * 56.7
    '设置报表“报表1”下边距
    Reports("报表1").Printer.BottomMargin = 下 * 56.7
    '设置报表“报表1”左边距
    Reports("报表1").Printer.LeftMargin = 左 * 56.7
    '设置报表报表1”右边距
    Reports("报表1").Printer.RightMargin = 右 * 56.7
If 0 Then
Err:
    '出错时打开错误提示
    MsgBox "页边距没有设置完整或设置错误！"
End If
End Sub