老师好：请教下，这种情况要怎么调整
打印细节区，需要点击打印，直接预览效果，现在会把打印模板给清空了，第一次点打印可以是有细节区预览内容，第二次点打印没有内容了（需要模板保留的，只是填充细节区）
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编辑过]
加好友 
发短信
Post By：2020/11/9 8:39:00 [只看该作者]
