Output filename control for Adobe PDFWriter

I'll add my own comment here - I've just run the macro on a small test spreadsheet and I can now note that it is outputting the files correctly, however it produces the error message box for each one, and launches Acrobat opening each file - one big fat mess.

So I guess the question is not so much how to output to individual files, as how to do it 'well' so that it doesn't produce erroneous error messages

Well, i don't know if it causes the error but W2K uses Regedit 5
Also, use & instead of + when you concatenate string variables.

Well, I'll get this question removed, as I've produced a solution for it myself.
However in my research into ways to get this done, I have seen hundreds of 'pointers' to how to do it, but nothing that I could see which just said 'do this, it works'. So it would be good to get this as a PAQ as I can say 'do this, it works'.

Here is the code I am using to print a file from VBA without requiring user intervention to supply a filename.
(ie: PDFWriter with no Save-As dialogue box).
Variables (set anywhere you like, so long as these functions will have access to them. I have routines set that generate FABPath and RegPath based on keywords embeded in the document, so each page is different):

TempPDF$ = "c:\winnt\temp\temppdf.pdf"
FABPath$ = "c:\fab_sys\fabs\test.pdf"
'' the double '\' is needed for registry imports.
RegPath$ = "c:\\fab_sys\\fabs\\test.pdf"

Sub iPDFPrint()
    '
    ' iPDFPrint Macro
    ' Macro created 19/03/03 by Paul G Jungwirth
    '
    '' Delete residual temporary file if exists.
    If Dir(TempPDF$) <> "" Then Kill TempPDF$
    '' This is a check to loop the operation until the
    '' PDFWriter has completed it's job.
    On Error GoTo printNotFinished
    '' Set the registry entry calling PDFFileNameSet
    PDFFileNameSet
    '' Save the current printer device to restore later.
    oldprinter$ = Dialogs(wdDialogFilePrintSetup).Printer
    '' Set the current printer to PDFWriter
    ActivePrinter = "Acrobat PDFWriter"
    '' Print the current page. You could change this to print
    '' all pages, a range of pages, as you require.
    Application.PrintOut FileName:="", _
                     Range:=wdPrintCurrentPage, _
                     Item:=wdPrintDocumentContent, _
                     copies:=1, _
                     Pages:="", _
                     pagetype:=wdPrintAllPages, _
                     collate:=False, _
                     Background:=False, _
                     printtofile:=False
    ActiveDocument.Saved = True
    '' If PDFWriter has finished printing the file then
    '' FABPath$ will be able to be renamed. If not it branches
    '' because of the error. This simply tests that the file
    '' has been created, and only moves on if it has.
    Name FABPath$ As TempPDF$
    Name TempPDF$ As FABPath$
    '' Clear the registry entry calling PDFFileNameClear
    PDFFileNameClear
    '' Reset the active printer to the previous state.
    ActivePrinter = oldprinter$
Exit Sub
'' Here's the error loop
printNotFinished:
    Select Case Err.Number
        Case 13, 75, 53
            Err.Clear
            DoEvents
            Resume
    End Select
End Sub

Sub PDFFileNameSet()
    ' This function creates a reg file to import the PDFFileName
    ' registry value into our registry.
    ' This value, if it exists, suppresses the 'save-as' dialogue box
    ' and forces PDFWriter to out put to the file specified in the value.
    '' Open the file to create our temporary .reg file.
    Open "C:\winnt\temp\pdfreg.reg" For Output As #1
        Print #1, "REGEDIT4"
        Print #1, ""
        Print #1, "[HKEY_CURRENT_USER\Software\Adobe\Acrobat PDFWriter]"
        Print #1, Chr(34) & "PDFFileName" & Chr(34) & "=" & Chr(34) & RegPath$ & Chr(34)
    Close #1
    '' Import the registry file, the '-s' forces regedit to do it quietly.
    '' The /c argument to cmd forces it to close when execution complete.
    shell ("cmd /c regedit -s c:\winnt\temp\pdfreg.reg")
End Sub

Sub PDFFileNameClear()
    ' This function creates a reg file that will REMOVE the PDFFileName
    ' registry value, hence returning PDFWriter to it's default state
    ' of displaying a 'save-as' dialogue box.
    '' Open the file to create our temporary .reg file.
    Open "c:\winnt\temp\pdfreg.reg" For Output As #1
        Print #1, "REGEDIT4"
        Print #1, ""
        Print #1, "[HKEY_CURRENT_USER\Software\Adobe\Acrobat PDFWriter]"
        '' The "=-" when executed by Regedit will actually remove the PDFFileName value
        Print #1, Chr(34) & "PDFFileName" & Chr(34) & "=-"
    Close #1
    '' Import the registry file, the '-s' forces regedit to do it quietly.
    '' The /c argument to cmd forces it to close when execution complete.
    shell ("cmd /c regedit -s c:\winnt\temp\pdfreg.reg")
End Sub


The problem I had that caused this not to work was two fold. Firstly, somehow the registry entry for bExecViewer in PDFWriter had become set true - this was causing acrobat to launch on each print, I reset it to 0 and all ok.
Secondly though it was a timing problem - the function was catching up to itself so quickly that it was trying to delete the reg file while it was still using it (as best I can guess). Anyway, with my knowledge of windows and vb/vba programming so slim I was trying to clear out the files so they didn't keep writing into themselves - but I didn't need to do it. As each open as just starts the file again.
So I deleted the shell("cmd /c del.....") statements I was using. Instead I inserted a 'name' statement in that attempts to rename (or move) the file that PDFWriter is creating. Name can't do that until PDFWriter has finished with it, so it just loops until PDFWriter is finished, then once the test is passed moves on from the function.

If anyone else out there is looking for ways to automate filename output from PDFWriter I hope this is of some assistance to them.