Hi all

I have PDF creator 995

I would like to automatically create a pdf file off an Excel* quote sheet
If I use:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDF995
on Ne00:", Collate:=True
it asks for the name of the file (and directory). It works but I don't want
to have to set the directory, type in the quote number and customer each
time

When I changed the line to the one shown below it creates a file with a pdf
extention in the correct directory but is not a readable pdf form (either
not supported file type or damaged)

Sub CreateQuotePDF()
Dim PDFFileName As String
Sheets("Quote").Select
PDFFileName = Range("Quote_Directory") & "\" & Range("Quote_Number") &
" - " & Range("Guest_Name") & ".pdf"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDF995
on Ne00:", printtofile:=True, Collate:=True, prToFilename:=PDFFileName
End Sub

* Excel version 2002

What am I doing wrong?

Thanks in anticipation

Regards
Pete

Email: