Excel - IMPRIMIR AUTOMATICAMENTE CADA FILTRO DE INFORME DE UNA TABLA DINAMICA

Al imprimir cada bucle despues del 4 me envia un mensaje de error "se ha producido el error '5' en tiempo de ejecucion; argumento o llamada a procedimiento no valida"

Este es el codigo:

Sub ImprimirRutas()
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Ruta")
For x = 1 To .PivotItems.Count
.CurrentPage = "" & .PivotItems(x) & ""
Application.Wait Now() + TimeValue("00:00:01")
'utilizo esto para evitar el desfas de tiempo entre la ejecucion de la macro y el printeado
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next
End With
End Sub

hola soy nuevo en hacer macros, cual es la parte que modifico para que corra con mi tabla dinámica.


espero tu ayuda... es urgente.
gracias