Dim Book As New XLS.Book(ProjectPath & "Attachments\销售出库.xls")
Dim f As String = e.Form.Controls("ComboBox2").value
Dim fl As String = ProjectPath & "reports\销售出库.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(f)
With Ws.PageSetup
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(14)
End With
App.Visible = True
Ws.PrintPreview
App.Quit
EXCEL表设置不了自定义张纸的大小，
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(14)
这二句通过不了
怎样设置EXCEL表自定义纸张的大小呢
加好友 
发短信
Post By：2022/5/4 10:41:00 [显示全部帖子]
