Dim Book As New XLS.Book(ProjectPath & "Attachments\变更统计表1.xlsx")
Dim fl As String = ProjectPath & "Reports\变更统计表1.xlsx"
Dim filter As String = IIF(vars("变更信息表filter") > ""," where " & vars("变更信息表filter") & " and 承包人申报=1"," where 承包人申报=1")
book.AddDataTable("变更统计表1","xlgl","Selec t *, (selec t sum(Round((Case When 变更后数量 Is null Then 0 Else 变更后数量 End - Case When 变更前数量 Is null Then 0 Else 变更前数量 End) * Case When 单价 Is null Then 0 Else 单价 End,0)) fro m {申请费用表} b where a.项目名称=b.项目名称 and a.变更编号=b. 变更编号) As [估计变更金额] fro m {变更申请单} a " & filter)
Book.Build()
Book.Save(fl)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
.PaperKind = 9 '设为A4纸
.LandScape = True '横向打印
.MarginLeft = 5 '左右边距设为5毫米
.MarginRight = 5
.MarginTop = 15 '上下边距设为15毫米
.MarginBottom = 10
End With
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath &"Reports\变更统计表1.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(0)
With Ws.PageSetup
'设置打印区域
.PrintTitleRows = Ws.Rows(1,3).Address '打印行标题(在每一页的顶部重复出现)
End With
App.Visible = True
Ws.PrintPreview
App.Quit
Dim Proc As New Process
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2018/9/8 7:55:00 [显示全部帖子]
