指定打印大小: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编辑过]