同一word文件，如何设置不同页的打印份数

lxrq

同一word文件，有多页，希望指定不同页的打印份数，通过一个按钮触发打印，请教大神如何解决。多谢！

例：
word文件名为abc.docx，一共7页，希望可以为每一页设定打印份数（如下表），并通过一个按钮触发打印。

页码	打印份数
第1页	3
第3页	2
第4页	3
第5页	1
第6页	2
第7页	0
第7页	2

如果无法在word下实现，是否可以在excel中实现（假定文档路径为c：\deskop\abc.docx）。

413191246se

楼主，虽然我是2003版本，但可能对2007版本也有效；但我只编了一个草稿宏，有错误，你自己看看吧！
或 杜先生 有空可以看看：

1. Sub 逐页打印()
   
2. '假设文档有 3 页，分别打印 4，0，2份！
   
3. 
   
4.     Dim doc As Document, i As Long, j
   
5.     Set doc = ActiveDocument
   
6.     j = Array("4", "0", "2")
   
7.     Do
   
8.         i = i + 1
   
9. '        MsgBox "i=" & i & "  " & "j(i)=" & j(i - 1)
   
10.         If j(i - 1) <> 0 Then doc.PrintOut Range:=wdPrintFromTo, From:=i, To:=i, copies:=Val(j(i - 1))
    
11.     Loop Until i = 3
    
12. 
    
13. End Sub

复制代码

lxrq

413191246se 发表于 2017-1-20 01:44
楼主，虽然我是2003版本，但可能对2007版本也有效；但我只编了一个草稿宏，有错误，你自己看看吧！
或 杜 ...

多谢回复！

这个宏试了下在word 2016下无法运行。另外由于欲打印的word文档，根据情况不同，各页需要打印的页数是变化的，所以需要快速定义各页打印份数的方法。

请各位前辈进一步指教.

413191246se

楼主，你在2016中自己录制个宏，功能是：定位在任意页，方法是，定位——页——N页，然后，再自己录制个打印当前页N份的宏，两个宏合成在一起，即可，再加个 InputBox 函数，临时键入某页打印 N 份即可，不必一次性搞定……