office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access设置报表的打印页边距

2020-11-08 08:00:00
tmtony8
原创
119

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

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
    分享