Hi
I am looking for a piece of vba code that I can use to automatically print an excel spreadsheet directly to a pdf file without user interaction. Can anyone help as I am struggling to create or find some.


Thanks in advance.
Tony

Hi Tony, maybe you can use this: ( you most have adobe acrobat installed, and the selected worksheets will be combined in a single PDF file!. If not, select only 1 sheet, and change your pdf printer adress):

Sub ImprimaPDF()
Sheets(Array("pagina 1 plan", "plan afaceri")).Select
Sheets("pagina 1 plan").Activate
Application.ActivePrinter = "Adobe PDF din Ne02:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF din Ne02:"",,TRUE,,FALSE)"
Sheets("plan afaceri").Select
End Sub

Or this, to print all selected sheets in 1 PDF file:
Sub ImprimaFoaieActivaPDF()
ActiveWindow.SelectedSheets.PrintOut
Application.ActivePrinter = "Adobe PDF din Ne02:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF din Ne02:"",,TRUE,,FALSE)"

End Sub

Hi Catalin.B
Many many thanks, this is excellent.
Tony