<<< 返回 access911.net 编程静态资料库索引页

如何让WORD打印出打印份数?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2009-11-4  浏览人次:2123


专题地址:http://access911.net/fixhtm/72FABF1E11DCE9F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

如何让WORD打印出打印份数。
公司有一份调查表,需要打印100份,每份都要有一个编号,从000001到000100。如何让WORD在打印时自动加上打印份数编号?

 


回答:

思路:
寻找WORD本身是否有此功能,如果没有。

在WORD中添加一个文档变量,并在页面页脚中增加一个域,并设定这个域的公式为 
用宏来进行打印,每修改一次文档变量就打印一份,一份一份来打印,直到打印完毕。

代码:
'设置文档变量,并更新域。
'手动添加域的方法:
'1、新建页眉页脚
'2、在页脚中插入域 “DOCVARIABLE 文档变量名”
'3、在文件菜单,打印机设置菜单项中选定打印机
'4、运行宏“生成份数编号并打印到当前打印机”

Function SetPrintCount(ByVal CountNumber As String)
    Dim i As Long
    Dim v As Variable
    'Dim strVarName As String
    Const strVarName As String = "PrintCount"
    Dim strVarValue As String.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FABF1E11DCE9F3.htm

 


上一篇:如何导出透视图为图片文件?数据透视表编程资料搜集。

下一篇:如何在值列表的多列列表框或者组合框中显示分号或者逗号

2017年2月22日生成静态资料