请问如何控制 VB 打印方向，我想要横向打印

Printer.Orientation = 2

'Orientation 属性

'

'返回或设置一个值，该值指出文档是以纵向还是横向的方式被打印。在设计时是不可用的。

'

'语法

'

'object.Orientation [= value]

'

'Orientation 属性的语法包含下面部分:

'

'部分 描述

'Object 对象表达式，其值是“应用于”列表中的一个对象。

'Value 一个决定页方向的值或常数，“设置值”中有详细描述。

'

'

'设置值

'

'Value 的设置值为:

'

'常数 值 描述

'VbPRORPortrait 1 文档打印以纸的窄边作顶部。

'

'VbPRORLandscape 2 文档打印以纸的宽边作顶部。

'

'

'说明

'

'这些常数在的对象浏览器中的 Visual Basic (VB) 对象库中列出。

'

'注意 Printer 对象的此属性的效果悔顷稿依赖于打印机厂商提供的驱动程序。某些属性设置值可能碧孝不起作用，或者一些不同的属性设置值可能有相同的效果。可接受范围之外的设置值可能产生也可能不产生错误。详细信息，请参阅厂家的具体驱动程乎睁序的文档。

还有一个对象Printer可以设置。

一种方案是用A4纸，告孝扰诉打印机横向

Printer.PaperSize = vbPRPSA4

Printer.Orientation = vbPROLandscape

另一种是直接用自定义烂轮纸张：

Printer.PaperSize = vbPRPSUser 估计这个会麻烦饥慎信一点

---