Sleep command question

[Joven76]

I have a looping macro to print a page for each filtered item in a pivot table. What I'd like to do is add the sleep command to have it wait for about 2 to 3 seconds before it goes to the next item.

Sub PrintPivotPages()'prints a copy of pivot table for
'each item in page field
'assumes one page field exists
On Error Resume Next
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Set pt = ActiveSheet.PivotTables.Item(1)
For Each pf In pt.PageFields
For Each pi In pf.PivotItems
pt.PivotFields(pf.Name).CurrentPage = pi.Name
' ActiveSheet.PrintOut 'use this for printing
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next
Next pf
End Sub

I'm wanting to slow it down as I had issues with it before of just printing the first value and not going on to the 2nd one, then getting caught in a never ending loop. So I want to slow it down in case I need to stop the macro for any reason.

Any suggestions?

 

[John_w]

Try this:

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else]#Else[/URL] 
    Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End]#End[/URL]  If


Sub PrintPivotPages() 'prints a copy of pivot table for
    'each item in page field
    'assumes one page field exists
    On Error Resume Next
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
    Set pt = ActiveSheet.PivotTables.Item(1)
    For Each pf In pt.PageFields
        For Each pi In pf.PivotItems
            pt.PivotFields(pf.Name).CurrentPage = pi.Name
            ' ActiveSheet.PrintOut 'use this for printing
            ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, IgnorePrintAreas:=False
            DoEvents
            Sleep 2 * 1000
        Next
    Next pf
End Sub