ACCESS报表 页面设置修改后不生效

[yxh198358]

各位大侠们：
请教一个问题，ACCESS页面设置的值（上、下、左、右边距）修改保存后不生效，还是保留原来的默认值，而且每台机器的页面设置的默认值可能都不一样，请问怎样能够修改ACCESS页面设置的值，使得在任何一台机器上打印预览报表的时候，页面设置的值都是修改后的那个值，请大家帮忙，谢谢！

[ACMAIN_CHM]

没什么好办法，可以在ACCESS的VBA代码中修改一下打印机的默认设置。

[WWWWA]

打印机、所用纸张是一样的？

[yxh198358]

我设置了，好像也没有起到作用

[fjfzman]

我把文件生成MDE后页面设置保持不变

[chenfuxiangcfx]

你在报表的“加载”事件或什么”打开“事件中加入代码试一下：

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

[chenfuxiangcfx]

你在报表的“加载”事件或什么”打开“事件中加入代码试一下：

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