如何取得当前打印机的打印模式为横向还是纵向打印？

Question

Printer.Orientation=1            '纵打
Printer.Orientation=2            '横打

Answer 1

返回或设置一个值，该值指出文档是以纵向还是横向的方式被打印。在设计时是不可用的。
语法
object.Orientation [= value]
Orientation 属性的语法包含下面部分：
部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
value 一个决定页方向的值或常数，“设置值”中有详细描述。
设置值
value 的设置值为：
常数 值 描述
vbPRORPortrait 1 文档打印以纸的窄边作顶部。
vbPRORLandscape 2 文档打印以纸的宽边作顶部。
说明
这些常数在的对象浏览器中的 Visual Basic (VB) 对象库中列出。
注意   Printer 对象的此属性的效果依赖于打印机厂商提供的驱动程序。某些属性设置值可能不起作用，或者一些不同的属性设置值可能有相同的效果。可接受范围之外的设置值可能产生也可能不产生错误。详细信息，请参阅厂家的具体驱动程序的文档。