Print addresses - Need a wait statement to allow ink to dry

[ed_M]

I'm printing addresses on A6 post cards. My new inkjet printer is too fast
.... there is not enough time for the ink to dry before the next post card
comes out and smears the ink. Any ideas as to how to add a wait condition to
a mail merge so that there is a couple of seconds of drying time between
prints?

 

[Doug Robbins - Word MVP]

Execute the merge to a new document, and then run the macro PrintwithDelay.
It is set to cause a five second delay between the printing of each page of
the document. Adjust the TimeValue as required.

Option Explicit
Dim i As Long

Sub PrintwithDelay()
For i = 1 To ActiveDocument.Sections.Count
Application.OnTime When:=Now + TimeValue("00:00:05"), _
Name:="Normal.Module1.PrintIt"
Next i
End Sub

Sub PrintIt()
ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP