Adobe's a real PITA, and doesn't play well with other programs. If you want
something that works smoothly, try PDFCreator and code from Ken Puls' site:

http://excelguru.ca/taxonomy/term/21

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"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