以文本方式查看主题

-  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=176944)
--  作者：zhuxinhui
--  发布时间：2022/5/4 10:41:00
--  怎样设置EXCEL表自定义纸张的大小呢
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表自定义纸张的大小呢
--  作者：zhuxinhui
--  发布时间：2022/5/4 11:20:00
--  
现在使用的是连续打印210*140，在打印服务器设置好后，第二日又回复回A4纸的打印样式，
--  作者：有点蓝
--  发布时间：2022/5/4 21:37:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&skin=0
--  作者：zhuxinhui
--  发布时间：2022/5/5 9:54:00
--  
昨日已把窗口增加了入去，但是不见有作用，不知是怎 样使用的
--  作者：zhuxinhui
--  发布时间：2022/5/5 9:56:00
--  
如果使用WORD来做连续打印是否会好些呢