打印代码：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()
报表
加好友 
发短信
Post By：2021/7/29 8:32:00 [只看该作者]
