- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打印预览求助！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127918)
-- 发布时间：2018/11/25 1:20:00
-- 打印预览求助！
有窗口1，表1（A－L列）有100行，页面合集1（其中page1中的表控件是表1的A－J列，page2中的表控件是表1的A－G列，都设成了副表），预览按钮1，模板A和B，想实现当在page1（50行）时，点击按钮用模板A，在page2时（20行），点击按钮用模板B。现在是在page1时正常，但在page2时模板到是用上了，但行数却是100行，这个问题出在哪？请版主指点！
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 Book As New XLS.Book(ProjectPath & "Attachments\\A.xls")
Dim fl As String = ProjectPath & "Reports\\A.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("A",2)
Ws.PrintPreview
App.Quit
ElseIf tb.SelectedPage.Text = "page2" Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\\B.xls")
Dim fl As String = ProjectPath & "Reports\\B.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("B",2)
Ws.PrintPreview
App.Quit
End If
-- 发布时间：2018/11/25 1:32:00
--
Dim fl As String = ProjectPath & "Reports\\B.xls"
另外：1、我想改变给定路径，比如放在桌面或D盘的某个文件夹下，好象不支持！这个能改动吗？
2、用同一个按钮，在页面合集的不同页面用不同的模板导入、导出应该也是可行的吧？比如在page1，点按钮就按模板1导入，在在page2，点按钮就按模板2导入。
-- 发布时间：2018/11/25 13:59:00
--
已找到原因，是引用的模板的问题！