以文本方式查看主题

-  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=57525)
--  作者：jswjyjf
--  发布时间：2014/9/26 9:20:00
--  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
--  作者：有点甜
--  发布时间：2014/9/26 9:23:00
--  
 那就先给计算机加入一个纸张，然后得到这个纸张的paperSize，也就是paperkind
--  作者：Bin
--  发布时间：2014/9/26 9:24:00
--  
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&skin=0
--  作者：jswjyjf
--  发布时间：2014/9/26 9:36:00
--  

papersize=164

出错了

 
--  作者：jswjyjf
--  发布时间：2014/9/26 9:45:00
--  

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

 

 测试成功

 

 
--  作者：jswjyjf
--  发布时间：2014/9/26 9:59:00
--  
也不对啊， 自定义好多个 ，而PaperSize = 164   一直是这个，怎么知道是是哪个自定义
--  作者：有点甜
--  发布时间：2014/9/26 10:01:00
--  
 自定义的时候，名称不能一样，根据名称判断的。
--  作者：jswjyjf
--  发布时间：2014/9/26 10:04:00
--  

对了 搞定了

 
--  作者：dguser001
--  发布时间：2018/12/21 0:04:00
--  
学习