Impresion automatizada

11/01/2009 - 02:07 por Edixon | Informe spam
Hola grupo necesito de su ayuda en lo siguiente;

Necesito imprimir unos documentos de la siguiente forma:
en principio la solucion que se ocurre para hecer lo que quiero es
poder crear un contador an a1 que comienze en 1 de manera que cuando
comienze la impresion (cada impresion seria de dos copias) este vaya
incrementandose hasta llegar a diez que seria la ultima impresion, es
decir, al realizar la primera impreesion saldran dos copias, lueo se
incrementa a1 a dos en ese momento comienza la siguiente impresion
tambien de dos copias y asi sucesivemente, hasta la decima impresiomn.

Espero me halla explicado bien de antemano gracias por su ayuda si
alguien tiene una mejor sugerencia, se las agradezco.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
11/01/2009 - 02:28 | Informe spam
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.
Respuesta Responder a este mensaje
#2 Edixon
13/01/2009 - 12:49 | Informe spam
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.
Respuesta Responder a este mensaje
#3 Héctor Miguel
13/01/2009 - 18:17 | Informe spam
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...
Respuesta Responder a este mensaje
#4 Edixon
13/01/2009 - 19:05 | Informe spam
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.
Respuesta Responder a este mensaje
#5 Héctor Miguel
13/01/2009 - 19:27 | Informe spam
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.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida