Try:

Sub PDF_Printer()
' PDF_Printer Macro
Application.ActivePrinter = "Name of Printer Adobe ?:" ' <=== Change to
suit
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= "Name of
Printer Adobe PDF ?:" ' <= Change to suit
End Sub


Corey....

"Kou Vang" wrote in message
...
I am trying to print an excel spreadsheet to PDF using the Adobe PDF
printer.
Here is my code. Thanks.

Option explicit

Worksheets("vcc expansion").Activate

Dim PrintStr As String
PrintStr = "N:\TrafMon\TFA_Section\VC DATA
FORECAST\AcroMaps\ESAL06\SitesPDF\& sitenum"

ActiveSheet.PrintOut previews:=False, ActivePrinter:="Adobe PDF",
printtofile:= _
True, prtofilename:=PrintStr