bilokas,
Boa Tarde!
Mande imprimir diretamente em PDF, pelo PDFCreator, por exemplo, ou por outro aplicativo gerador de PDF que esteja instalado em seu micro. Assim:
Application.ActivePrinter = "PDFCreator em Ne00:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator em Ne00:"",,TRUE,,FALSE)"
Postado : 16/01/2014 10:13 am