☰

Alterando um número cada vez que imprimo

tag-icon • tag-icon microsoft-excel printing
Alterando um número cada vez que imprimo

Tenho uma planilha Excel que uso como fatura.

Quero imprimir 100 páginas e quero que o número da fatura mude de 1 para 100, para que cada papel tenha um número de fatura diferente.

Como posso fazer isso?

Responder1

Você precisa de uma macro para isso. Encontrei a seguinte macro e fiz algumas alterações nela. Experimente para ver se funciona corretamente:

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

Responder2

Eu usaria uma macro para fazer isso, pois não parece haver um método fácil e integrado para fazer isso. O esboço da macro seria bem simples. Algo desta natureza:

  1. Solicitar número de cópias e nome da impressora
  2. Defina a célula do número da fatura como 0
  3. Loop para número de cópias
    1. Aumentar o número da célula da fatura
    2. Imprima o documento no nome da impressora

Editar

Esta páginatem um exemplo disso para Word, então você pode adaptá-lo para Excel. Esta páginatem um exemplo aproximado para Excel

informação relacionada