| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [讨论]excel报表能否直接打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104037) |
| -- 作者：kensou11111 -- 发布时间：2017/7/21 15:41:00 -- [讨论]excel报表能否直接打印 请问excel报表设计好后是否不能直接通过代码直接预览及打印？就是类似专业报表那样 |
| -- 作者：有点甜 -- 发布时间：2017/7/21 16:00:00 -- 可以，参考
http://www.foxtable.com/webhelp/scr/1145.htm
或者
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview()
App.Quit |
| -- 作者：kensou11111 -- 发布时间：2017/7/21 16:23:00 -- 好的，我都试试 |