Guru do Excel e Power BI

Pessoal, boa noite.

Estou criando um macro que tem a seguinte funcionalidade:

Ele funciona como uma solicitação de serviço, onde ao clicar no botão ele executa um código e faz duas impressões da planilha ativa.

Estou utilizando ActiveSheet.PrintOut Copies:=2, para imprimir duas vias, mas gostaria de que em uma das impressões a célula(A1) ficasse escrito Via Solicitante e na segunda via(A1) = Via Fornecedor.

Acredito que eu usaria ActiveSheet.Range("A1").Value = Via Solicitante e após uma impressão: ActiveSheet.Range("A1").Value = Via Fornecedor, porém como eu implementaria isso em cada uma das impressões?

Talvez:

Código: Selecionar todos

Activesheet.range("A1").value="Via Solicitante"
ActiveSheet.printout
Activesheet.range("A1").value="Via Fornecedor"
ActiveSheet.printout
Activesheet.range("A1").value=""

Boa tarde Reinaldo.

Coloquei do modo que você colocou. Porém sem sucesso.
Deste modo é feito apenas uma impressão.

Guru do Excel e Power BI

Modificação a cada impressão utilizando .printOut

Modificação a cada impressão utilizando .printOut

Modificação a cada impressão utilizando .printOut

Modificação a cada impressão utilizando .printOut