Create Delay, then Resume Macro - Multiple Times

  • Hi all,


    I have this print macro that splits a document into several sheets. I am wondering if a pause can be applied to this function, then resume, but have the pause perform multiple times within the print action. For instance, print 50, pause 30seconds, repeat.


    Code
    1. Sub SplitMergeLetterToPrinter()
    2. Letters = ActiveDocument.Sections.Count
    3. counter = 1
    4. While counter < Letters
    5. ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _
    6. From:="s" & Format(counter), To:="s" & Format(counter)
    7. counter = counter + 1
    8. Wend
    9. End Sub