以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] word报表打印设置  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96137)
--  作者：zcgmxf
--  发布时间：2017/2/14 9:06:00
--  [求助] word报表打印设置

老师，Word报表可以像Excel报表一样进行打印设置吗？如页边距、纸张大小等。如果可以，如何设置？谢谢！

 

Dim tm As String  = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show()

--  作者：有点色
--  发布时间：2017/2/14 9:11:00
--  
不能用代码设置，你可以在word模板先设置好。
--  作者：有点色
--  发布时间：2017/2/14 9:16:00
--  

 如果你需要代码设置，你可以用vba来弄。类似excel的vba

 

http://www.foxtable.com/webhelp/scr/2121.htm

 

http://www.feiesoft.com/vba/word/woobjPageSetup.htm

 
--  作者：zcgmxf
--  发布时间：2017/2/14 9:21:00
--  
老师，我用的电脑系统软件中没有现在打印用的23.11*13.97规格的链式打印纸的选项，打印机没有自定义纸张选项，在模板中设置同样大小纸张打印时会出现错误提示，找不到rpc服务器。如果客户端的系统软件也没有23.11*13.97纸张大小选择的话就总会出现错误提示。有没有软件可以增加打印纸张规格选项的？
--  作者：有点色
--  发布时间：2017/2/14 10:12:00
--  

参考这种方式添加自定义纸张

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&skin=0