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