以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何实现横向打印？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18550)
--  作者：akzzwj
--  发布时间：2012/4/17 10:24:00
--  如何实现横向打印？

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()

上面一段代码，测试的时候，发现还是纵向打印，可我想实现横向打印，请问是哪里错了呢？
--  作者：akzzwj
--  发布时间：2012/4/17 10:27:00
--  

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

 
--  作者：akzzwj
--  发布时间：2012/4/17 10:43:00
--  
谢谢 我知道 怎么弄了
--  作者：狐狸爸爸
--  发布时间：2012/4/17 10:44:00
--  
嘿嘿，你上面是excel报表，中间定义纸张方向的却是专业报表，混了。