If I remember correctly, there are a few add-ins that you need to make sure are marked. Goggling Excel 2003 to PDF might be helpful.
Using 2003
Sub gotoadobe()
Dim pdfDist As New ACRODISTXLib.PdfDistiller
' Set fs = CreateObject("Scripting.fileSystemObject")
psfilename = "v:\acmp\contract summaries\MY6352_EA.ps"
PDFFilename = "v:\acmp\contract summaries\MYGS II\ea version\" & _
Format(Range("inpDate").Value, "mm-dd-yy") & "\" & "IM-006352_EA_" & Format(Range("inpDate").Value, "mm-dd-yy") & ".PDF"
Sheets(Array("IM6352P1", "IM6352P2", "IM6352P3", "IM6352P4", "IM6352P5")).Select
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:", Collate:=True, prtofilename:=psfilename
pdfDist.FileToPDF psfilename, PDFFilename, ""
psfilename = "v:\acmp\contract summaries\MY6354_EA.ps"
PDFFilename = "v:\acmp\contract summaries\MYGS II\ea version\" & _
Format(Range("inpDate").Value, "mm-dd-yy") & "\" & "IM-006354_EA_" & Format(Range("inpDate").Value, "mm-dd-yy") & ".PDF"
Sheets(Array("IM6354P1", "IM6354P2", "IM6354P3", "IM6354P4", "IM6354P5")).Select
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:", Collate:=True, prtofilename:=psfilename
pdfDist.FileToPDF psfilename, PDFFilename, ""
' fs.deletefile = "v:\acmp\contract summaries\*.ps"
End Sub