Impresion automatizada

hola, Edixon !

Necesito imprimir unos documentos... lo que quiero es... crear un contador an a1 que comienze en 1
de manera que cuandocomienze la impresion (cada impresion seria de dos copias)
este vaya incrementandose hasta llegar a diez que seria la ultima impresion...

pon en [A1] el numero de impresiones que requires y prueba con una macro +/- como la siguiente

Sub Imprime_n()
Dim n As Byte
For n = 1 To [a1]
[a1] = n
ActiveSheet.PrintOut Copies:=2
Next
End Sub

saludos,
hector.

Hola Hector;

Gracias por tu ayuda pero tuve un inconveniente en lo siguiente
ya que plantie mal lo que necesitaba, tengo la siguiente macro:

Sub Macro_1()

Application.ScreenUpdating = False
Range("d9:d27").ClearContents
With Worksheets("carga")
.Range("a1").AutoFilter Field:=1, Criteria1:=Range("t1")
.Range(.Range("c2"), .Range("c2").End(xlDown)).Copy
End With
Range("d9").PasteSpecial xlValues
Application.CutCopyMode = False
Range("a11").Select

End Sub

Como podria hacer para que que esta se ejecute n veces (ejemplo 10
veces este valor cambia) , y que cada vez que se ejecute se imprima en
dos copias la hoja 3 de ese libro, luego se repite el proceso hasta n
veces.

De antemano muchas gracias por tu ayuda y disculpa haber planteado
mi duda mal al principio.

hola, Edixon !

supongo que los cambios son con relacion al criterio de autofiltros a la hoja "carga" (Range("t1"))
lo que no comentas son las causas para las "n_veces" en que se podria cambiar "este valor"
(o las razones para imprimr "n_veces" dos copias de la hoja 3)
tampoco es claro si la "hoja3" es la hoja "activa" desde la que ejecutas la macro o... ???

saludos,
hector.

__ OP __

... tengo la siguiente macro:
Sub Macro_1()
Application.ScreenUpdating = False
Range("d9:d27").ClearContents
With Worksheets("carga")
.Range("a1").AutoFilter Field:=1, Criteria1:=Range("t1")
.Range(.Range("c2"), .Range("c2").End(xlDown)).Copy
End With
Range("d9").PasteSpecial xlValues
Application.CutCopyMode = False
Range("a11").Select
End Sub
Como podria hacer para que que esta se ejecute n veces (ejemplo 10 veces este valor cambia)
y que cada vez que se ejecute se imprima en dos copias la hoja 3 de ese libro
luego se repite el proceso hasta n veces...

Ok la Hoja Activa donde ejecuto la macro es la Hoja 1(en ella esta
una presentacion, es solo atractiva visualmente, como una pantalla
pricipal)
La hoja3 (sencilla solo muestra resulados) es la que realmente
necesito que se imprima (pero que no se vea), esta tiene unos vinculos
con la hoja1.
La hoja carga tiene en su columna B todos los criterios que es el
motivo por el cual se efectua el autofiltro (este comienza en 1 hasta
n (n lo determina el mayor número en la columna b de la hoja carga)).
Lo que hago actualmente es que en la celda T1 de la hoja 1 voy
aumentando su valor (manualmente) cada vez que ejecuto la macro antes
mencionada, luego imprimo la hoja 3 (dos copias). ese es el proceso
que quiero automatizar.

Espero haberme explicado bien nuevamente gracias.

hola, Edixon !

prueba con una macro +/- como la siguiente (segun los datos conocidos hasta ahora):

Sub Imprime_n()
Dim n As Byte
Application.ScreenUpdating = False
Range("d9:d27").ClearContents
With Worksheets("carga")
For n = 1 to Application.Max(.Range("b:b"))
.Range("a1").AutoFilter Field:=1, Criteria1:=n
.Range(.Range("c2"), .Range("c2").End(xlDown)).Copy
Range("d9").PasteSpecial xlValues
Worksheets("hoja3").PrintOut Copies:=2
Next
End With
Application.CutCopyMode = False
End Sub

me queda la duda de si limpiar el rango "d9:d27" es suficiente, pero...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

Ok la Hoja Activa donde ejecuto la macro es la Hoja1 (... una presentacion, es solo atractiva visualmente, como una pantalla pricipal)
La hoja3 (... solo muestra resulados) es la que... necesito que se imprima (pero que no se vea), esta tiene unos vinculos con la hoja1.
La hoja carga tiene en su columna B todos los criterios que es el motivo por el cual se efectua el autofiltro
(este comienza en 1 hasta n (n lo determina el mayor numero en la columna b de la hoja carga)).
Lo que hago actualmente es que en la celda T1 de la hoja 1 voy aumentando su valor (manualmente) cada vez que ejecuto la macro
... luego imprimo la hoja 3 (dos copias). ese es el proceso que quiero automatizar.