以文本方式查看主题

-  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=127458)
--  作者：dguser001
--  发布时间：2018/11/14 16:49:00
--  EXCEL报表打印问题
EXCEL 报表能否与专业报表结合。
在窗口中，设置EXCEL报表 ，点击后，直接弹出 预览 窗口，然后 打印。

就是专业报表上的这个命令doc.Preview()，能否用在EXCEL报表上面。
 
以下是EXCEL报表的一些编码：
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2018/11/14 16:52:06编辑过]
--  作者：有点甜
--  发布时间：2018/11/14 17:58:00
--  

 

如果要打印预览，不能保存成pdf，直接用vba打开xls文件预览。如

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\表A.xlsx")
Dim fl As String = ProjectPath & "Reports\\表A.xlsx"
Book.Build()
Book.Save(fl)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath &"Reports\\表A.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit