以文本方式查看主题

-  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=143387)

--  作者:Dansty
--  发布时间:2019/11/22 16:22:00
--  报表导出问题
报表导出到pdf,可以和excel一样,设置横向展开吗?现在导出的pdf一页只有几列,而且,列名比较长的时候显示不全
--  作者:有点蓝
--  发布时间:2019/11/22 16:33:00
--  
指定打印大小:http://www.foxtable.com/webhelp/topics/1312.htm,其它打印设置也可以用

Dim Book As New XLS.Book("E:\\_abc.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
    .PaperKind = 8 \'设为A3纸
    \'.LandScape = True \'横向打印
End With
Book.SaveToPDF("E:\\abc.pdf")
[此贴子已经被作者于2019/11/22 16:33:28编辑过]