| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 关于excel报表打印 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148363) |
| -- 作者：裴保民 -- 发布时间：2020/4/6 16:51:00 -- 关于excel报表打印 怎么设置excel表打印时设置默认横向打印呢？ [此贴子已经被作者于2020/4/6 16:59:43编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/4/6 17:02:00 -- 参考：http://www.foxtable.com/webhelp/topics/1312.htm |
| -- 作者：裴保民 -- 发布时间：2020/4/6 17:13:00 -- Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl) Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) Dim Rg As MSExcel.Range = Ws.Cells rg.WrapText = True Rg.EntireRow.AutoFit \'自动调整行高 \'Wb.save App.Visible = True Ws.PrintOut(Preview:=True) Wb.save Wb.PageSetting.Landscape = True \'横向打印 App.Quit 设置后不管用呢？
|
| -- 作者：有点蓝 -- 发布时间：2020/4/6 17:20:00 -- vba是另外一种用法，参考：http://www.foxtable.com/webhelp/topics/2121.htm |
| -- 作者：裴保民 -- 发布时间：2020/4/6 17:41:00 -- Ws.PrintOut(Preview:=True) 蓝老师这段代码是执行的什么呢？
|
| -- 作者：有点蓝 -- 发布时间：2020/4/6 20:14:00 -- 弹出打印预览窗口 |