以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]关于打印直接预览  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158111)
--  作者：工匠
--  发布时间：2020/11/9 8:39:00
--  [讨论]关于打印直接预览
老师好：
请教下，这种情况要怎么调整
打印细节区，需要点击打印，直接预览效果，现在会把打印模板给清空了，第一次点打印可以是有细节区预览内容，第二次点打印没有内容了（需要模板保留的，只是填充细节区）

vars("SJ") ="模板名"
Dim Book As New XLS.Book(ProjectPath  & "Attachments\\" & e.form.controls("模板名").text & ".xls")
Dim fl As String = ProjectPath  & "Attachments\\" & e.form.controls("模板名").text & ".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
ShowAppWindow("模板名",2)
Ws.PrintPreview
App.Quit
以上会清空模板
以下可以生产细节区内容（需要点打印直接是预览效果）
vars("SJ") ="模板名"
Dim Book As New XLS.Book(ProjectPath  & "Attachments\\" & e.form.controls("模板名").text & ".xls")
Book.Build()
Book.Save(ProjectPath  & e.form.controls("送货标签").text & ".xls")
Dim Proc As New Process
Proc.File =(ProjectPath  & e.form.controls("送货标签").text & ".xls")
Proc.Start()


请老师帮看看
谢谢！
[此贴子已经被作者于2020/11/9 8:40:15编辑过]
--  作者：有点蓝
--  发布时间：2020/11/9 9:03:00
--  
生成的报表保存到其他地方，不要覆盖模板啊，看看帮助是怎么用的？http://www.foxtable.com/webhelp/topics/1145.htm

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
--  作者：工匠
--  发布时间：2020/11/9 9:33:00
--  
谢谢蓝老师，折腾了2天，可以了，这样的话就不怕多样标签需求了。不过标签还有个问题，就是自动连号标签+尾数标签，如何自动一次性打完，用excel做模板，不懂怎么实现，要实现了，就对后期追溯好太多了
--  作者：有点蓝
--  发布时间：2020/11/9 10:06:00
--  
没看懂。截图说明一下