tenho uma macro de uns anos atrás que ainda funciona, quando clico em imprimir as ordens de produção da minha empresa, coloco o número de inicio e de fim, e a macro imprime as OPs com os números em ordem, segue a macro:
Sub PrintJobs()
Dim i As Long, startnum As Long, lastnum As Long
startnum = Application.InputBox("Número de inicio", "Imprimir op", 1, , , , , 1)
lastnum = Application.InputBox("Número de fim", "Imprimir op", 1, , , , , 1)
For i = startnum To lastnum
Range("G2").Value = i
ActiveWindow.SelectedSheets.PrintOut
Next
End Sub
(G2 no código é a celula onde os números vão sair) o problema é que agora estou alterando as ops para sair duas por página (questão de econômia de folhas) metade da A4 sai com uma op, a outra metade sai outra op, fiz um espelho na planilha pra quando alterar a primeira op, altere também a segunda, fazendo as duas sair na mesma folha, só que agora a minha macro não funciona como deveria, pois quando a primeira op for 1, a segunda deveria ser 2 e assim por diante, já tentei colocar a segunda op como o valor da primeira + 1, sem sucesso, podem me ajudar para alterar minha macro, pra G2 sair 1, G32 sair 2, depois G2 sair 3, G32 sair 4, e assim por diante. Obrigado
i = startnum
Do While i < lastnum
Range("G2").Value = i
ActiveWindow.SelectedSheets.PrintOut
i = i + 1
Range("G32").Value = i
ActiveWindow.SelectedSheets.PrintOut
i = i + 1
Loop