如何打印一系列页面

Question

如何打印一系列页面？我想我正在按照文件中所说的去做。

这就是代码。

Sub Imprimir()
MsgBox "Current Printer: " & ActivePrinter
'It works:
' Print current page
ActiveDocument.PrintOut Background:=False, Range:=wdPrintCurrentPage, PrintToFile:=False
' Print all the document.
'ActiveDocument.PrintOut Background:=False

'It does not work
' print a range of pages
' ActiveDocument.PrintOut Background:=False, Range:=wdPrintRangeOfPages, Pages:="2-3"
' ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, From:="2", To:="3"

End Sub

Answer 1

尝试以下方法

ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, From:="p2s3", To:="p3s2"

请参阅我页面中有关此的章节。

Answer 2

这是我最后所做的结果https://github.com/davidbuenov/CombinarCorrespondencia