Macro para impressão em lote de formulários do Excel com números sequenciais

0

Eu preciso imprimir em lote os formulários de requisição em branco e ter cada um deles sequencialmente. Quando fecho o arquivo e reabro para imprimir o próximo lote, quero que a numeração comece de onde parei após o lote anterior. ou seja, eu executo um lote de 1 a 75; o próximo lote precisa ser de 76 a 210; próximo lote 211 - 300. Eu encontrei sua macro para numeração, mas o padrão volta para 1 de cada vez. Isso não atende às minhas necessidades. Aqui está o que eu tenho até agora. Ele funciona, mas não pega de onde parei, sempre começa em 1.

Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim Copynumber As Long
CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
For Copynumber = 1 To CopiesCount
With ActiveSheet
.Range("k11").Value = Copynumber
.PrintOut 'print the sheet
End With
Next Copynumber
End Sub
    
por Jocelyn Park 28.10.2016 / 18:31

0 respostas