Thread: vba Code to Print Spreadsheet to PDF
View Single Post
 
Old 05-25-2011, 03:50 AM
Catalin.B Catalin.B is offline Windows Vista Office 2007
Expert
  
Join Date: May 2011
Location: Iaşi, Romānia
Posts: 386
Catalin.B is on a distinguished road
Default
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
Reply With Quote