Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pg As WinForm.TabPage = tb.SelectedPage
Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)
If tb.SelectedPage.Text = "Page1" Then
Dim tm As String = ProjectPath & "Attachments\准考证A.doc" '指定模板文件
Dim fl1 As String = "D:\准考证\准考证A.doc" '指定目标文件
Dim fl2 As String = "D:\准考证\准考证A.pdf" '指定目标PDF文件
Dim wrt As New WordReport(Tables("管理表"),tm,fl1) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.SaveToPDF(fl2) '保存为PDF文件
wrt.Quit() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = fl2
Proc.Start()
ElseIf tb.SelectedPage.Text = "Page2" Then
Dim tm As String = ProjectPath & "Attachments\准考证B.doc" '指定模板文件
Dim fl1 As String = "D:\准考证\准考证B.doc" '指定目标文件
Dim fl2 As String = "D:\准考证\准考证B.pdf" '指定目标PDF文件
Dim wrt As New WordReport(Tables("管理表"),tm,fl1) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.SaveToPDF(fl2) '保存为PDF文件
wrt.Quit() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = fl2
Proc.Start()
End If
上述代码在所在页面时，如在表（为副表）中选择N行，但却只显示第1行的准考证，而不是我想要的N张准考证！
Dim tm As String = ProjectPath & "Attachments\准考证B.doc" '指定模板文件
Dim fl1 As String = "D:\准考证\准考证B.doc" '指定目标文件
Dim fl2 As String = "D:\准考证\准考证B.pdf" '指定目标PDF文件
Dim wrt As New WordReport(Tables("管理表"),tm,fl1) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.SaveToPDF(fl2) '保存为PDF文件
wrt.Quit() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = fl2
Proc.Start()
但上面这段代码却可以选择表中的N行，显示N张准考证；窗口是单独的、表不是副表；
这个问题是什么原因造成的？请版主指教！
加好友 
发短信
Post By：2018/12/2 19:06:00 [只看该作者]
