以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]excel模板自定义纸  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43576)

--  作者：eway168 --  发布时间：2013/12/10 17:59:00 --  [求助]excel模板自定义纸 excel模板打印收据，自定义纸张（letter的一半），两个客户端各自连接不同的打印机，要打印同一模板（服务器的共享文件夹）下的收据，自定义纸张无效。如何处理？

--  作者：有点甜 --  发布时间：2013/12/10 19:34:00 --    excel模板报表，是不可以自定义纸张的吧？如果你有兴趣，可以看看vba的只是，代码类似 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) With Ws.PageSetup     \'设置打印区域     .PrintArea = "A1:H10"   \'打印工作表的指定区域     .PrintArea = Ws.UsedRange.Address   \'打印工作表的使用区域     .PrintTitleColumns = Ws.Columns("A:H").Address   \'打印列标题(在每一页的左边重复出现)     .PrintTitleRows = Ws.Rows(1).Address \'打印行标题(在每一页的顶部重复出现)     \'设置页面     .PaperSize = MSExcel.XlPaperSize.xlPaperA4   \'纸张大小     .LeftMargin = 30 \'页面左边距     .RightMargin = 30\'页面右边距     .TopMargin = 50  \'页面顶部边距     .BottomMargin = 50   \'页面底部边距     .HeaderMargin = 40   \'页面顶端到页眉的距离     .FooterMargin = 40   \'页脚到页面底端的距离     .CenterHorizontally = True   \'页面水平居中     .CenterVertically = True \'页面垂直居中     \'设置页眉     .LeftHeader = "打印日期: &D" \'左页眉,&D表示日期     .CenterHeader = "&""隶书,常规""&20 数据分析表"   \'中页眉,并将字体设置为隶书和20号字大小     .RightHeader = "打印者: " & App.UserName \'右页眉     \'设置页脚     .LeftFooter = "文件: &F  &A" \'左页脚,&F表示文件名,&A表示工作表名     .CenterFooter = ""   \'中页脚为空     .RightFooter = "第 &P 页  共 &N 页"  \'右页脚     \'打印模式     .Orientation = MSExcel.xlPageOrientation.xlPortrait  \'纵向打印     .Orientation = MSExcel.xlPageOrientation.xlLandscape \'横向打印     .PrintHeadings = True\'打印行号和列标     .PrintGridlines = True   \'打印网格线     \'缩放打印     .Zoom = False\'以下设置将缩印在一页内     .FitToPagesWide = 1  \'按照1页的宽度打印     .FitToPagesTall = 1  \'按照1页的高度打印 End With App.Visible = True Ws.PrintPreview App.Quit http://www.foxtable.com/help/topics/2121.htm

--  作者：eway168 --  发布时间：2013/12/16 15:09:00 --   哪位高手有好的解决方案？