Alterando um número em cada vez que imprimo

Question

Eu tenho uma planilha do Excel que uso como fatura.

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

Como posso fazer isso?

    

Answer 1

Você precisa de uma macro para isso. Eu encontrei a macro a seguir 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

    

Answer 2

Eu usaria uma macro para fazer isso, pois parece não haver um método fácil e integrado de fazer isso. O contorno 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 o número de cópias
   1. Incrementar o número da célula da fatura
   2. Imprimir o documento para o nome da impressora

Editar

Esta página tem um exemplo para o Word, então você pode simplesmente adaptar isso para o Excel. Esta página tem um exemplo aproximado para o excel