主题：【页面设置】报表中页面大小设置 指定打印机 怎么不起效果呢？预览还是A4纸张，不是自定义大小

试试

doc.PageSetting.Width = dr("设置宽度")

doc.PageSetting.Height = dr("设置高度")      

Doc.PrinterName = dr("打印机名称")

http://www.foxtable.com/webhelp/scr/2904.htm

msgbox(dr("设置宽度") & dr("设置高度"))

doc.PageSetting.Width = val(dr("设置宽度"))

doc.PageSetting.Height = val(dr("设置高度") )

Doc.PrinterName = dr("打印机名称")