7,712
社区成员
发帖
与我相关
我的任务
分享
Private Sub Report_Load()
With Me.Printer
.PaperSize = acPRPSA4 'AcPrintPaperSize类型枚举常量中的 A4 纸常量,可更换为其它
'设置边距时,Access在代码中是以缇为单位,所以,厘米的数字要乘上缇的换算数字,1厘米=567缇
.TopMargin = 3 * 567 '上边距 3厘米
.RightMargin = 1 * 567 '右边距 1厘米
.LeftMargin = 3 * 567 '左边距 3厘米
.BottomMargin = 1.5 * 567 '下边距 1.5厘米
End With
End Sub