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.
 

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.

Preguntas similares