Numeración + impresión automática
Tengo una hoja en excel que en una celda tiene un número
de documento. Cada vez que imprimo esta hoja tengo que
incrementar el número en 1 y después imprimir. El problema
es cuando tengo que imprimir 100 o 200 hojas, con lo cual
tengo que repetir la operación de antes 100 o 200 veces.
¿Hay alguna forma de realizar esta tarea automáticamente?
Es decir que incremente una unidad el número y luego
imprima la hoja indicándole solo el número de hojas que
quiero imprimir.
de documento. Cada vez que imprimo esta hoja tengo que
incrementar el número en 1 y después imprimir. El problema
es cuando tengo que imprimir 100 o 200 hojas, con lo cual
tengo que repetir la operación de antes 100 o 200 veces.
¿Hay alguna forma de realizar esta tarea automáticamente?
Es decir que incremente una unidad el número y luego
imprima la hoja indicándole solo el número de hojas que
quiero imprimir.
2 Respuestas
Respuesta de t4373125
1
Tendrías que escribir una macro con un código parecido a este:
Sub Imprimir()
'Imprimir por primera vez
Sheets(1).PrintOut From:=1, To:=1
'Escojer el numero de impresiones a realizar, exceptuando la primera que ya esta
For i = 1 To 199
'Incremetar la celda A1 de la hoja 1
Sheets(1).Range(A1).Value = Sheets(1).Range(A1).Value + 1
'Imprimir la siguiente hoja
Sheets(1).PrintOut From:=1, To:=1
Next i
End Sub
Tendrás que modificar la celda que hay que incrementar seguramente.
Si algo no entiendes me lo dices. Y si lo que necesitas es diferente a esto, explícamelo.
Sub Imprimir()
'Imprimir por primera vez
Sheets(1).PrintOut From:=1, To:=1
'Escojer el numero de impresiones a realizar, exceptuando la primera que ya esta
For i = 1 To 199
'Incremetar la celda A1 de la hoja 1
Sheets(1).Range(A1).Value = Sheets(1).Range(A1).Value + 1
'Imprimir la siguiente hoja
Sheets(1).PrintOut From:=1, To:=1
Next i
End Sub
Tendrás que modificar la celda que hay que incrementar seguramente.
Si algo no entiendes me lo dices. Y si lo que necesitas es diferente a esto, explícamelo.
Respuesta de Ramón Mendez
Una hp ink tank 115 series imprime lento