Hi Paul,

I'm going through a similar dilema myself. I've created a macro that does
pretty much what you're talking about, but the created file is either empty
(0 KB) or corrupted and won't open using Adobe. !?!?! Ugh.
This is some of the VB I used:

Application.ActivePrinter = "Adobe PDF on Ne00:"


For CoNo = 7 To 400
AppStr = "LoadCompany_" & CoNo
CellRefA = "A" & CoNo
CellRefB = "B" & CoNo
CoName = Range(CellRefB).Value
XStr = UCase(Range(CellRefA).Value)

If XStr = "X" Then
Application.Run AppStr
Sheets("SUMMARY").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
PrToFileName:="C:\Documents and Settings\marusichd\Desktop\Email Worksheets\"
& CoName & ".pdf"
Sheets("FLEET").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
PrToFileName:="C:\Documents and Settings\marusichd\Desktop\Email Worksheets\"
& CoName & "2.pdf"
Sheets("SELECT TO PRINT").Select

End If

Next CoNo

If you try this with PDF995 and find it works, let me know. I'm using Excel
XP and Adobe Acrobat 6.0

Thanx,
Darcy :o)

"Bill Martin -- (Remove NOSPAM from addre" wrote:

Paul Watkins wrote:
Sorry i was not clear.

I have PDF995 installed, what i want to do is the automate this process via
VB code.
without having to fill in the save as dialog box.

Paul


Sorry, but I wouldn't know how to do that. It seems that you want to
run VB from Excel to control part of the OS. That's probably entirely
doable, but not by *me* <g.

Bill