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