横向打印

只需将Landscape属性设为True，即可横向打印。

示例

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Landscape = True '横向打印
doc.Preview() '预览