主题：如何实现横向打印？

Dim Book As New XLS.Book(ProjectPath & "Attachments\电脑台帐.xls")
Dim fl As String = ProjectPath & "Reports\电脑台帐.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

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

Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb = "Print" '指定动作

Proc.Start()

上面一段代码，测试的时候，发现还是纵向打印，可我想实现横向打印，请问是哪里错了呢？

狐狸爸爸 帮我看一下 是哪里的代码出了问题

 

谢谢 我知道 怎么弄了

嘿嘿，你上面是excel报表，中间定义纸张方向的却是专业报表，混了。