以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel 打印纸张大小设置问题  (http://foxtable.com/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
--  
学习