Hi, Nunzia,
The ManualDuplexPrinter setting isn't a member of the Options object the way the
Even and Odd properties are, so you can't reset it the same way. The trick is
explained at http://www.mvps.org/word/FAQs/MacrosVBA/ResetPrintToFile.htm -- you
"print" the nonexistent page 0 to change the value. Here's the complete code:
Sub PrintManualDuplex()
Dim oldEven As Boolean, oldOdd As Boolean
oldEven = Options.PrintEvenPagesInAscendingOrder
oldOdd = Options.PrintOddPagesInAscendingOrder
Options.PrintEvenPagesInAscendingOrder = True
Options.PrintOddPagesInAscendingOrder = False
ActiveDocument.PrintOut ManualDuplexPrint:=True, _
Background:=False
Options.PrintEvenPagesInAscendingOrder = oldEven
Options.PrintOddPagesInAscendingOrder = oldOdd
Application.PrintOut ManualDuplexPrint:=False, _
Range:=wdPrintRangeOfPages, Pages:="0"
End Sub
--
Regards,
Jay Freedman
Microsoft Word MVP Word MVP FAQ site: http://www.mvps.org/word
Quote:
> Hi Jay,
> thank you for your reply.
> You solution works great for odd and even pages, but it doesn't reset
> the ManualDuplexPrinter setting.
> Do you have any suggestion?