Access通过VBA设置报表的打印页边距

我们在Access里制全的报表，需要打印的时候不同打印机显示界面不同，都有不同的页面格式，设置好格式，才能更好的打印到对应的纸张中。一般我们是在预览页面右键设置页面边距。

如果Access编译后成accde文件时，如果预览报表页面设置好页边距后，不会保存在文件里，每次打开都要设置比较繁琐，可以使用VBA方式进行设置打印边距，借鉴此思路把边距参数保存到表，再打印预览时加载，这样就可以保存打印设置参数了。

如下代码。用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