Foxtable(狐表)用户栏目专家坐堂 → 如何预览excel报表


  共有9457人关注过本帖树形打印复制链接

主题:如何预览excel报表

帅哥哟,离线,有人找我吗?
Fotable
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1015 积分:6979 威望:0 精华:0 注册:2012/8/1 18:41:00
如何预览excel报表  发帖心情 Post By:2012/10/30 17:17:00 [显示全部帖子]

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim
fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build()
'生成细节区
Book.Save(fl)
'保存工作簿
Dim
Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb = "Print" '指定动作
Proc.Start()

 

如何把这句 换成打印预览呢

Proc.Verb = "Print" '指定动作

 

 


 回到顶部