SandroLima,

Boa noite!

Veja se é assim.

Bom dia, colegas do fórum. Bom dia, Wagner.

Era exatamente isso, amigo. Ficou ótimo a rotina toda de ocultar e reexibir.

Tem uma parte do código que eu ainda não conhecia e que está apresentando erro de depuração. Pode me explicá-la melhor para eu ver como resolver.

'Define a impressora como PDFCreator e imprime em PDF
    Application.ActivePrinter = "PDFCreator em Ne00:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Desde já muito obrigado.

SandroLima,

Bom dia!

Nessa parte, é definida a impressora PDFCreator que faz a impressão na primeira linha e depois a própria impressão na segunda linha.
Muito provavelmente, o erro que deve está ocorrendo na sua máquina é porque a sua impressora PDFCreator (se você tiver o PDFCreator instalado na sua máquina) deve utilizar outra porta que não a mesma que a minha usa, pois as portas são de acordo com as configurações de cada máquina no momento da instalação do PDFCreator. O que indica a porta é esse final da linha (Ne00). Para saber qual é a por da sua impressora PDFCreator, você abre um arquivo qualquer Excel, vai lá em imprimir e define a impressora como sendo PDFCreator e no módulo VBA desse mesmo arquivo, cole o código abaixo. Ele lhe retornará o nome da sua impressora PDF coma respectiva porta. Depois é só alterar no seu código.

Sub Impressora()
    MsgBox Application.ActivePrinter
End Sub

Era isso mesmo, Wagner

Muito obrigado.