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

   
Vista:

IMPRIMIR AUTOMATICAMENTE CADA FILTRO DE INFORME DE UNA TABLA DINAMICA

Publicado por Juan Alberto (5 intervenciones) el 07/09/2012 07:06:35
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Excel
- Código fuente de Excel
- Cursos de Excel
- Temas de Excel
- Chat de Excel
información
Códigos de Excel
- Verificación de Rut
- CARDEX
- Calculo de fechas

IMPRIMIR AUTOMATICAMENTE CADA FILTRO DE INFORME DE UNA TABLA DINAMICA

Publicado por christian (2 intervenciones) el 19/05/2016 15:29:08
hola soy nuevo en hacer macros, cual es la parte que modifico para que corra con mi tabla dinámica.

1
2
3
4
5
6
7
8
9
10
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

espero tu ayuda... es urgente.
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar