| 以文本方式查看主题 - 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=135226) |
| -- 作者：liuqide -- 发布时间：2019/5/21 11:40:00 -- [求助]excel报表打印浏览 我想实现点击按钮进入打印预览窗口，用VBA方式，如下 Dim fl As String = ProjectPath & "Reports\\出库单.xls" Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl) Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) App.Visible = True Ws.PrintPreview App.Quit 这时预览窗口会缩在任务栏，要鼠标点一下才能展开，能否自动展开呢？ |
| -- 作者：有点甜 -- 发布时间：2019/5/21 13:22:00 -- 加入这个代码强制显示
http://www.foxtable.com/webhelp/scr/2713.htm
|
| -- 作者：liuqide -- 发布时间：2019/5/22 11:26:00 -- 我尝试了ShowAppWindow("出库单.xls",2)和ShowAppWindow("出库单",2)，都无效 |
| -- 作者：有点甜 -- 发布时间：2019/5/22 11:32:00 --
App.Visible = True ShowAppWindow("出库单",2) Ws.PrintPreview App.Quit |
| -- 作者：liuqide -- 发布时间：2019/5/22 11:50:00 -- 可以了谢谢 |