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