Pessoal peguei uma rotina na internet para impressão em PDF, creio que muitos ja utilizam ela.

Ela funcionou em um PC do serviço maravilhosamente bem. (CONFIGURAÇÃO: WINDOWS 7 64bits - OFFICE 2007 32 BITS)

Porém ao testar a mesma rotina em outro PC (CONFIGURAÇÃO: WINDOWS 8 64bits - OFFICE 2007 32 BITS) ela apresentou Erro em tempo de execução 5. Argumento ou chamado de procedimento inválido. Abaixo coloco o código que estou utilizando, e certamente muitos de vocês ja o conhecem.

Sub MegaPDF()
'On Error Resume Next

Plan11.Select

MeuDir = (ThisWorkbook.Path) & ""
MeuNome = "PRONTUARIO - " & Format(Date, "dd-mm-yy")

Range("A1").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MeuDir & MeuNome, Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Application.CutCopyMode = False
Range("A1").Select

txtcaminho = ""
txtcaminho = ThisWorkbook.Path & "" & "PRONTUARIO - " & Date & ".pdf"

End Sub

Onde eu destaquei é que ocorre o erro citado.

Desde ja agradeço quem puder ajudar.