Select Case e.StripItem.Name
Case "考核表打印"
Dim Book As New XLS.Book(ProjectPath & "Attachments\中高级工考核.xls")
Dim fl As String = ProjectPath & "Reports\中高级工考核.xls"
MessageBox.Show("确定要打印吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start() '保存代码
MessageBox.Show("打印完成!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Case "准考证预览"
Dim tm As String = ProjectPath & "Attachments\中高准考证.doc" '指定模板文件
Dim fl1 As String = "D:\鉴定准考证\中高准考证.doc" '指定目标文件
Dim fl2 As String = "D:\鉴定准考证\中高准考证.pdf" '指定目标PDF文件
Dim wrt As New WordReport(Tables("鉴定管理表"),tm,fl1) '定义一个WordReport
MessageBox.Show("确定要打印吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
wrt.Build() '逐行生成报表
wrt.SaveToPDF(fl2) '保存为PDF文件
wrt.Quit() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = fl2
Proc.Start()
MessageBox.Show("打印完成!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End Select
窗口表为副表，窗口“打印预览”按钮为快捷菜单模式（不知这样形容对不对），现在的问题：
1、选择“考核表打印”时，为什么生成的EXCEL表在任务栏，点一下才会在屏幕显示，能直接在屏幕显示吗？
2、 Dim fl As String = ProjectPath & "Reports\中高级工考核.xls" 这个可以指定路径或文件夹吗？
3、选择“准考证预览”时，生成的PDF文件为什么只有1页（对应窗口表的第1行），而不是按我选择的行数（比如我选了10行）显示10页？同样的代码我以前编写的旧系统中却是选择多少行，就显示多少页PDF文件？旧系统是单独窗口单独表。
加好友 
发短信
Post By：2019/1/14 12:27:00 [显示全部帖子]
