Print to single PDF Named Ranges on Multiple Sheets

[zakasnak]

I have a workbook with 8 tabs containing named ranges that would like to print to a single PDF.

The previous owner of this workbook used this macro, but we've gone through some system changes & it no longer works as an active printer on LPT1.

Sub PDF_Print()
'
' PDF_Print Macro
' Macro recorded 10/30/2003 by Nbullard
'
' Keyboard Shortcut: Ctrl+a
'
    Application.ActivePrinter = "Adobe PDF on LPT1:"


    Application.Goto Reference:="Cover"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    
    Application.Goto Reference:="Table_1"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    
    Application.Goto Reference:="Table_2"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    
    Application.Goto Reference:="Table_3"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    
    Application.Goto Reference:="Table_4"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    
    Application.Goto Reference:="Table_5"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    
    Application.Goto Reference:="Table_6"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    
    Application.Goto Reference:="Table_7"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    
    Application.Goto Reference:="Table_8"
    Selection.PrintOut Preview:=False, Copies:=1
    Range("A1").Select
    Sheets("Data Entry").Select
    Range("C4").Select
    
End Sub

Can anyone help me?