主题：excel 打印纸张大小设置问题

以下代码是excel预览报表  跳过excel 窗口的，测试成功了

有个问题是纸张大小 设置，如果是自定义的 怎么写代码？

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\出货单.xls")
Dim file As String = ProjectPath & "Reports\出货单.xls"
Book.Build() '生成细节区
Book.Save(file) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .PaperSize = MSExcel.XlPaperSize.xlPaperA4   '纸张大小
    .CenterHorizontally = True   '页面水平居中
    .CenterVertically = True '页面垂直居中
    .Zoom = False '以下设置将缩印在一页内
    .FitToPagesWide = 1  '按照1页的宽度打印
    .FitToPagesTall = 1  '按照1页的高度打印
End With
App.Visible = True
App.Caption = "某某软件公司"
Ws.PrintPreview
wb.save
wb.close
App.Quit

papersize=164

出错了

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\出货单.xls")
Dim file As String = ProjectPath & "Reports\出货单.xls"
Book.Build() '生成细节区
Book.Save(file) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .PaperSize = 164   '纸张大小
    .CenterHorizontally = True   '页面水平居中
    .CenterVertically = True '页面垂直居中
    '.Zoom = False '以下设置将缩印在一页内
    '.FitToPagesWide = 1  '按照1页的宽度打印
    '.FitToPagesTall = 1  '按照1页的高度打印
End With
App.Visible = True
App.Caption = "某某软件公司"
Ws.PrintPreview
wb.save
wb.close
App.Quit

 

 测试成功

 

 

也不对啊， 自定义好多个 ，而PaperSize = 164   一直是这个，怎么知道是是哪个自定义

对了 搞定了