Anónimo
Imprimir documentos y mantener consecutivos
Hola tengo un botón de aplicación con una macro que imprime y a la vez genera un consecutivo en una celda, pero resulta que si el cliente quiere dos copias del documento el consecutivo se me eleva dos veces más. Como hago para que esto no suceda. Que pueda generar las copias de los documentos necesario y el consecutivo no se altere con el mismo documento
1 respuesta
Respuesta de Enrique Bernal
1
Hola te mando el código que estoy utilizando:
Sub impresion()
Sheets("PROFORMA").PrintOut Copies:=1, Collate:=True
[M16] = [M16] + 1
Application.ScreenUpdating = True
End Sub
Espero que me puedas ayudar.
Sub impresion()
Sheets("PROFORMA").PrintOut Copies:=1, Collate:=True
[M16] = [M16] + 1
Application.ScreenUpdating = True
End Sub
Espero que me puedas ayudar.
Prueba con este cambio
Sub impresion()
a = inputbox("Favor Ingresar el número de Copias necesarias","Número de copias")
Sheets("PROFORMA").PrintOut Copies:=a, Collate:=True
[M16] = [M16] + 1
Application.ScreenUpdating = True
End Sub
Sub impresion()
a = inputbox("Favor Ingresar el número de Copias necesarias","Número de copias")
Sheets("PROFORMA").PrintOut Copies:=a, Collate:=True
[M16] = [M16] + 1
Application.ScreenUpdating = True
End Sub