Problem printing files to Adobe PDF printer using VBA

Question

I have an Excel project. Part of the code prints the active sheet range as a PDF file. Later code then sends the PDF file as an e-mail attachment. The Code was originally written using the free application PDFCreator and works as intended. However the client wants to use the Acrobat "Adobe PDF" printer instead.
Each PDF must have a name as specified in the code and must be sent to a specified folder, again as specified in the code.
The Adobe PDF printer insists on 1) using the path specified in the printer preferences and 2) naming it as the workbook name + .pdf.
I have checked the Distiller API reference and it tells me that if a key is set, the output path and name can be controlled. However, setting the key as described does not work. The PDF printer ignores it and creates another key named as the output file with a REG_SZ value that is numeric and increments each time print is invoked.
Attached is a screen shot of the registry entries.
What am I doing wrong?

Answer 1

I have.
However, I think I have solved this.
First, I am using Win 7 64 bit, so the application is not excel but c:\windows\splwow64.exe. I've modified my code so that both XP 32 and Win7 64 are catered for.
Second, the print command I used in VBA was
ActiveSheet.Printout ActivePrinter:= "Adobe PDF"
It looks like that starts a different Adobe DF printer to the one that would look at the registry. If I change the code to
ActiveSheet.Printout
and set Adobe PDF as the default printer in control panel, the whole thing works as planned.
All I need to do now is to set the printer to Adobe PDF within the code so the user doesn't have to do this in Control Panel. Obviously, my approach above didn't work, so what is the way to do this?
Here's the sub routine as it stands at the moment:
Public Sub PrintUsingAcrobat()
    Dim strOutFile As String
    Dim PDFPath As String
    Dim FileName As String
    Dim XPApplic As String
    Dim X64Applic As String
    XPApplic = Application.Path & "\excel.exe"
    X64Applic = "C:\Windows\splwow64.exe"
    Const HKEY_LOCAL_MACHINE As Long = &H80000002
    Const HKEY_CURRENT_USER As Long = &H80000001
    Dim lRC
    Dim sPath
    Dim objRegistry
    PDFPath = outpath ' outpath is a global variable set elsewhere
    strOutFile = Range("Suppliername") & ".pdf"
    FileName = PDFPath & strOutFile
    Set objRegistry = GetObject("winmgmts://./root/default:StdRegProv")
    sPath = "SOFTWARE\Adobe\Acrobat Distiller\PrinterJobControl"
    lRC = objRegistry.SetStringValue(HKEY_CURRENT_USER, sPath, XPApplic, FileName)
    lRC = objRegistry.SetStringValue(HKEY_CURRENT_USER, sPath, X64Applic, FileName)
    ActiveSheet.PrintOut
    DoEvents
End Sub