Printer.Orientation 属性

2012-10-25

获取或设置一个值在汇总或横样式文档打印。

命名空间： Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
程序集： Microsoft.VisualBasic.PowerPacks.Vs（在 Microsoft.VisualBasic.PowerPacks.Vs.dll 中）

语法

声明
Public Property Orientation As Short

public short Orientation { get; set; }

public:
property short Orientation {
    short get ();
    void set (short value);
}

member Orientation : int16 with get, set

function get Orientation () : short
function set Orientation (value : short)

属性值

类型：System.Int16
返回一个 Short。

备注

如果设置此属性，在调用 Print 方法之后，则会发生运行时异常。

下表列出了 Orientation 属性就是有效的 PrinterObjectConstants 值。

常量	值	说明
vbPRORPortrait	1	文档垂直打印。页的高度小于其宽度大于。
vbPRORLandscape	2	文档水平打印。页的宽度大于其高度大。

说明
Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6 命名空间中的函数和对象是提供给用于将 Visual Basic 6.0 升级到 Visual Basic 的工具使用的。大多数情况下，这些函数和对象可再现 .NET Framework 中其他命名空间的功能。只有 Visual Basic 6.0 代码模型与 .NET Framework 实现有显著区别时才需要这些函数和对象。

示例

下面的示例演示如何设置 Orientation 属性。在此示例中，文档的维度用于确定适当的方向。

Dim Printer As New Printer
If Printer.Height > Printer.Width Then
    Printer.Orientation = vbPRORPortrait
Else
    Printer.Orientation = vbPRORLandscape
End If
Printer.Print("Hello")
Printer.EndDoc()