Escolha algum lugar (um endereço de célula, por exemplo) para usar como indicador da via. Suponha que seja a célula A1. Escreva o número 1 nessa célula.
Em seguida, fomate-a com a exibição personalizada:
#"a. Via"
Por fim, escreva a macro:
Sub PrintNow()
ThisWorkbook.PrintOut
Range("A1") = Range("A1") + 1
End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br