Pause printing between pages

[abccells]

Sir
Some printers have the duplexing capability to print on both sides of a piece of paper. But my office doesnt have duplexing. So, the only way to achieve the same result is to pause the paper between pages.
So I need a VBA macro to assist pausing between pages (more time for odd pages except page 1) for turning the paper. :)​

Thanks

[gmayor]

Word's print option provides a manual duplexing option. Print one side of the paper then at the prompt turn over the paper and print the other sides. It will probably be beneficial to turn off background printing for the duration.

[abccells]

Thx. Sir
Your site is very useful and exhaustive.
In the meanwhile I found an article in word.tips.net and altered it to include a sleep timer...
it is working...
If you feel any enhancement, please update me.



Sub PrintBothSides()
Dim iTemp As Integer ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintOddPagesOnly
wait5S
iTemp = MsgBox("Odd Pages Printing Over" & vbNewLine & "Please turn the Paper set" & vbNewLine & "For printing on the back side" & vbNewLine & "(i.e. Even Pages)", vbExclamation, vbOKCancel, "PrintBothSides") 'to continue
If iTemp = vbOK Then
wait5S
ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintEvenPagesOnly
End If
End Sub
Private Sub wait5S()
Dim PauseTime, Start, Finish
PauseTime = 5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
End Sub

Thank you for your suggestions