以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于纸张横向打印问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100182)

--  作者：as2565929355 --  发布时间：2017/5/6 11:00:00 --  关于纸张横向打印问题 Dim Book As New XLS.Book \'定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0)\'引用工作簿的第一个工作表 Book.Sheets(0).Name = DataTables("订单信息").DataRows(1)("收件人") sheet.PrintSetting.PaperKind = 11 sheet.PrintSetting.Landscape = True   这样设置了  打印的时候还是纵向的

--  作者：有点蓝 --  发布时间：2017/5/6 11:27:00 --   测试没有问题，上传实例说明 Dim Book As New XLS.Book \'定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0)\'引用工作簿的第一个工作表 For i As Integer = 0 To 9 \'向工作表的单元格中设置值     Sheet(i, 0).Value = (i + 1) * 10      Sheet(i, 1).Value = (i + 1) * 100     Sheet(i, 2).Value = (i + 1) * 1000 Next sheet.PrintSetting.PaperKind = 11 sheet.PrintSetting.Landscape = True  Dim fl As String = "f:\\print.xls" Book.Save(fl) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = fl Proc.Verb = "Print" \'指定动作 Proc.Start()

--  作者：as2565929355 --  发布时间：2017/5/6 11:38:00 --   按照您的代码 打印测试还是不行哦

--  作者：有点蓝 --  发布时间：2017/5/6 11:39:00 --   上传实例说明