Setting for "Rely on system fonts" does not work

Question

Hello,
Some time ago I wrote a VBA function that would print a worksheet to pdf. It worked great. I reformatted my system, and now the code no longer works. When I run the routine, I receive the error message, "When you create a PostScript file, you must reply on system fonts and use document fonts. Please go to the printer properties, 'Adobe PDF Settings' page and turn OFF the option 'Rely on system fonts only; do not use document fonts."
I have changed this setting within the Adobe printer setting in Excel, I have changed it in both the 'Printing Preferences" and "Printer Properties" with the Devices and Printers Windows dialog, and I have confirmed that it is turned off in the binary registry key "HKEY_CURRENT_USER\Printers\DevModePerUser\Adobe PDF". Also, I have applied the Acrobat 9.4.2 patch. Yet still I get the message when my code is executed....
There were a few changes between my system from before my reformatting. The common items were Windows7 64-bit, Adobe Acrobat 9. The changes were that I went from Microsoft Office 2010 64-bit to Office 2010 32-bit. Windows 7 SP1 is now installed. Also, both Acrobat and Office are installed on my internal "Data" drive, rather than the "C" drive where my operating system is installed.
Although I do not see an issue with code, since it worked for months, I have included it below (the printing code is at the end). Any help would be GREATLY appreciated!
Public Sub EnumOrder(ByVal lngLine As Long)
'lngLine is the line number to start enumeration at
Dim strStore As String
Dim strFileName As String
Dim strTmpPath As String
Dim strPDFPath As String
Dim c As Long
Dim x As Long
Dim lngErr As Long
Dim wsPicklist As Worksheet
Dim wsTemplate As Worksheet
Dim oPDF As PdfDistiller
Set oPDF = New PdfDistiller
Set wsPicklist = Worksheets("Phase II Picklist")
Set wsTemplate = Worksheets("Template")
strStore = wsPicklist.Cells(lngLine, 1).Value
' Clear formatted border on order template
wsTemplate.Activate
wsTemplate.Range("A7:L56").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
wsPicklist.Activate
' Initialize variables
strFileName = wsPicklist.Cells(lngLine, 1) & "-" & wsPicklist.Cells(lngLine, 2) & " " & Format(wsPicklist.Cells(lngLine, 4), "mm-dd-yy") & " Team" & Format(wsPicklist.Cells(lngLine, 3), "00")
c = 7
x = lngLine
' Add store order data to the template
With wsTemplate
    ' Add header data to the order template
    .Cells(1, 2) = wsPicklist.Cells(lngLine, 1)  ' Store #
    .Cells(2, 2) = wsPicklist.Cells(lngLine, 3)  ' Team #
    .Cells(4, 2) = wsPicklist.Cells(lngLine, 4)  ' Deliver By
    .Cells(1, 5) = wsPicklist.Cells(lngLine, 13) ' Ship To Name
    .Cells(2, 5) = wsPicklist.Cells(lngLine, 14) ' Ship To Address
    .Cells(3, 5) = wsPicklist.Cells(lngLine, 15) ' Ship To City/State/Zip
    .Cells(4, 5) = wsPicklist.Cells(lngLine, 16) ' Comment
    ' Add line items to the order template
    Do
        .Cells(c, 1) = wsPicklist.Cells(lngLine, 6) ' Part #
        .Cells(c, 2) = wsPicklist.Cells(lngLine, 7) ' Part Name
        .Cells(c, 7) = wsPicklist.Cells(lngLine, 8) ' Qty Ordered
        wsPicklist.Cells(lngLine, 10) = Now         ' Date Printed
        wsPicklist.Cells(lngLine, 11) = strFileName ' File Name
        lngLine = lngLine + 1
        c = c + 1
    Loop While strStore = wsPicklist.Cells(lngLine, 1)
End With
'Create formatted borders on store order template
x = lngLine - x + 6
wsTemplate.Activate
wsTemplate.Range("A7:L" & x).Select
With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
' Print the store order to PDF
strTmpPath = "D:\Eric\Desktop\WIS-Speedway\Phase II\Picklists\New\Tmp\"
strPDFPath = "D:\Eric\Desktop\WIS-Speedway\Phase II\Picklists\New\"
wsTemplate.PrintOut copies:=1, preview:=False, _
ActivePrinter:="Acrobat Distiller", printtofile:=True, _
collate:=True, PrToFileName:=strTmpPath & strFileName & ".ps"
oPDF.FileToPDF strTmpPath & strFileName & ".ps", strPDFPath & strFileName & ".pdf", ""
' Set active cell to next store order
wsPicklist.Activate
wsPicklist.Cells(lngLine, 10).Select
End Sub

Answer 1

Ok, I have given up the ghost on this problem. I found a MUCH better solution to the problem that I was having, that also has the side benift of processing far faster. See http://msdn.microsoft.com/en-us/library/ee834871(office.11).aspx for details. Basically, I am now using the VBA ExportAsFixedFormat method, rather than Distiller. Hope this helps.