☰

Cambiar un número cada vez que imprimo

tag-icon • tag-icon microsoft-excel printing
Cambiar un número cada vez que imprimo

Tengo una hoja de Excel que uso como factura.

Quiero imprimir 100 páginas y quiero que el número de factura cambie de 1 a 100, para que cada papel tenga un número de factura diferente.

¿Cómo puedo hacer esto?

Respuesta1

Necesitas una macro para eso. Encontré la siguiente macro y le hice algunos cambios. Pruébalo para ver si funciona correctamente:

Sub PrintCopies_ActiveSheet()

Dim CopiesCount As Long
Dim copynumber As Long

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.

For copynumber = 1 To CopiesCount
With ActiveSheet
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
   .PrintOut 'Print the sheet
End With
Next copynumber
End Sub

Respuesta2

Usaría una macro para hacer esto, ya que no parece haber un método integrado fácil de hacerlo. El esquema de la macro sería bastante simple. Algo de esta naturaleza:

  1. Solicitar número de copias y nombre de la impresora
  2. Establezca la celda Número de factura en 0
  3. Bucle para número de copias
    1. Incrementar el número de celda de la factura
    2. Imprima el documento al nombre de la impresora.

Editar

Esta páginatiene un ejemplo para Word, por lo que podrías adaptarlo a Excel. Esta páginatiene un ejemplo aproximado para excel

información relacionada