在vb6.0中,如何用代码设置"windows系统的当前默认打印机"的打印机纸张尺寸

[zhangShunsheng]

在vb6.0中,用"datareport" 报表控件制作报表,当使用报表预览功能时,"datareport" 报表控件将使用"windows系统的当前默认打印机"的打印设置,若该打印设置纸张尺寸(如A4纸)小于"datareport" 报表控件所需纸张尺寸(如A3纸),则"datareport" 报表预览时将会出现"打印纸张尺寸小于报表宽度"错误,请教如何用代码设置"windows系统的当前默认打印机"的打印机纸张尺寸,而不需用"公共对话框"的打印设置方法?

[ml_zhang]

你可以用代码：Printer.PaperSize=VbPRPSA3来设置纸张的尺寸，若A4，则为VbPRPSA4。另外，Printer的Orientation属性可以设置纸张横向或纵向打印方向。
Printer.Orientation=1 为纵向，Printer.Orientation=2 为横向。

[zhangShunsheng]

该帖子补充说明：在vb6.0中,当用代码设置"windows系统的当前默认打印机"的打印机纸张尺寸后，要求在“控制面版”-->“打印机设置”中 的“当前默认打印机”的属性中能看到被更改的结果。