- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel报表取消排序打印的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170512)
-- 发布时间：2021/7/29 8:32:00
-- excel报表取消排序打印的问题
老师，我有一个表格，并且针对这个表格做了一个报表，正常打印没问题，当我对表格做了排序之后，用报表打印出来的结果就是排序后的，
但是，当我取消表格排序后，用报打印还是排序的结果，不能回归正常了，非得重新启动项目才能恢复正常，求助老师
-- 发布时间：2021/7/29 9:06:00
--
报表怎么设计的？发上来看看
-- 发布时间：2021/7/29 9:11:00
--
打印代码：
If FileSys.DirectoryExists( ProjectPath & "Reports\\" & Vars("姓名")) =False Then \'如果目录C:\\MyFolder存在
FileSys.CreateDirectory(ProjectPath & "Reports\\" & Vars("姓名"))
End If
Dim kzm As String
If e.Form.Controls("RadioButton1").Checked = True Then
kzm="pdf"
Else
kzm="print"
End If
Vars("专业筛选内容")=""
Dim t As Date
t = Date.Now
Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Vars("省份") & "_正式志愿表.xls")
Dim fl As String
fl= ProjectPath & "Reports\\" & Vars("姓名") & "\\正式志愿表_" & Vars("姓名") & "_" & Vars("pcmc") & "_" & t.Day & t.Hour & t.Minute & t.Second & ".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)
With Ws.PageSetup
.PrintTitleRows = Ws.Rows("$1:$4").Address \'打印行标题(在每一页的顶部重复出现)
End With
App.Visible = True
Wb.Save
\'Ws.PrintPreview
App.Quit
If kzm="pdf" Then
Dim Book2 As New XLS.Book(fl)
Dim f2 As String = ProjectPath & "Reports\\" & Vars("姓名") & "\\正式志愿表_" & Vars("姓名") & "_" & Vars("pcmc") & "_" & t.Day & t.Hour & t.Minute & t.Second & ".pdf"
Book2.SaveToPDF(f2) \'保存为PDF文件
Else\'
Dim Proc1 As New Process \'打开工作簿
Proc1.File = fl
Proc1.Verb = "Print" \'指定动作
Proc1.Start()
End If
Dim Proc As New Process \'定义一个新的Process
Proc.File = ProjectPath & "Reports\\" & Vars("姓名")
Proc.Start()
报表
\'
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:河北省_正式志愿表.xls |
-- 发布时间：2021/7/29 9:18:00
--
我测试没有问题，请上传项目实例测试一下