Access: save Excel file to PDF... suddenly not working

Hi EE,
About 2 weeks ago, I searched thru EE as to how to save Excel file as PDF file.
Got ideas from numerous points, mainly to use ps file, distiller to create PDF file with a name.

I ran Adobe's update on pc on Friday.
The PDFtoFile of distiller is not working.... Below is a code snippet.....

I'm open to other approaches, as long as I can create pdf file, as I need to ftp the file
to a web server.

Please help... thx, sandra

Public Sub f005_CopyFromRecordSet(strSql As String, _
                                  strCPath As String, _
                                  strExcelFile As String, _
                                  strBackRevisedExcelFile As String, _
                                  strBackPDFFile As String)
Dim strExcelPath          As String
Dim strPSfile             As String
Dim strLOGfile            As String
Dim lngPos                As Long
Dim db                    As DAO.Database
Dim rst                   As DAO.Recordset
Dim fld                   As DAO.Field
strExcelPath = strCPath & strExcelFile
strBackRevisedExcelFile = strCPath & Mid(strExcelFile, 6)
Call e090_LaunchExcel
' Set objExcel = CreateObject("Excel.Application")
Set objExcelActiveWkbs = objExcel.Workbooks
Set objExcelActiveWkb = objExcelActiveWkbs.Open(Filename:=strExcelPath)
Set objExcelActiveWS = objExcel.ActiveSheet
objExcel.Visible = True
Set db = CurrentDb
Set rst = db.OpenRecordset(strSql)
Debug.Print strSql
objExcelActiveWS.Range("A2").CopyFromRecordset rst
With objExcelActiveWS
     With .Cells
         With Selection.Borders(xlDiagonalDown)
              .LineStyle = xlNone
         End With
         With Selection.Borders(xlDiagonalUp)
              .LineStyle = xlNone
         End With
         With Selection.Borders(xlEdgeLeft)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
         End With
         With Selection.Borders(xlEdgeTop)
             .LineStyle = xlContinuous
             .Weight = xlThin
             .ColorIndex = xlAutomatic
         End With
         With Selection.Borders(xlEdgeBottom)
             .LineStyle = xlContinuous
             .Weight = xlThin
             .ColorIndex = xlAutomatic
         End With
         With Selection.Borders(xlEdgeRight)
             .LineStyle = xlContinuous
             .Weight = xlThin
             .ColorIndex = xlAutomatic
         End With
         With Selection.Borders(xlInsideVertical)
             .LineStyle = xlContinuous
             .Weight = xlThin
             .ColorIndex = xlAutomatic
         End With
         With Selection.Borders(xlInsideHorizontal)
             .LineStyle = xlContinuous
             .Weight = xlThin
             .ColorIndex = xlAutomatic
         End With
     End With
     With .Columns("E:E")
          Selection.NumberFormat = "mm/dd/yy;@"
     End With
    With .Columns("F:F")
         Selection.NumberFormat = "mm/dd/yy;@"
    End With
End With
objExcel.DisplayAlerts = False
' save Excel file
objExcelActiveWkb.SaveAs Filename:= _
     strBackRevisedExcelFile, _
     FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
     ReadOnlyRecommended:=False, CreateBackup:=False
' Create PS, LOG, PDF file names from Excel file name
lngPos = InStr(strBackRevisedExcelFile, ".")
strPSfile = Left(strBackRevisedExcelFile, lngPos) & "ps"
strLOGfile = Left(strBackRevisedExcelFile, lngPos) & "log"
strBackPDFFile = Left(strBackRevisedExcelFile, lngPos) & "pdf"
Debug.Print strPSfile
Debug.Print strLOGfile
Debug.Print strBackPDFFile
' objExcel.ActivePrinter = "Adobe PDF"
' objExcel.ActivePrinter = "Adobe PDF on Ne05:"
' objExcel.ActivePrinter = "CutePDF Writer on CPW2:"
'save default printer
Dim strDefaultPrinter As String
strDefaultPrinter = objExcel.ActivePrinter
' print Excel file to Acrobat PS file
Dim objPDF_Distiller As PdfDistiller
Set objPDF_Distiller = New PdfDistiller
objExcel.ActiveSheet.PrintOut , Copies:=1, _
PrintToFile:=True, PrToFilename:=strPSfile
' Convert Acrobat PS file to PDF file
objPDF_Distiller.FileToPDF strPSfile, strBackPDFFile, ""
' delete work files
Kill strPSfile
Kill strLOGfile
Set objPDF_Distiller = Nothing
'Restore the default settings
objExcel.ActivePrinter = strDefaultPrinter
objExcel.DisplayAlerts = True
Call e110_CloseExcel(True)
Set objExcel = Nothing
Set objExcelActiveWkb = Nothing
Set objExcelActiveWkbs = Nothing
Set objExcelActiveWS = Nothing
Set rst = Nothing
Set db = Nothing
Set fld = Nothing
End Sub

Open in new window

Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

You can print the report to a pdf printer driver:                 (my favorite)   (recommended by several other in this TA)              (free version is nagware)

Or you can use automation to create a pdf in Adobe Acrobat.  
Or you can interface with Ghostscript:
Or you can use this:

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
mytfeinAuthor Commented:
Thx TheNelson,
a) You wrote alot of info... thank you...

b) Do you have code to "print" to these printers, yet save as pdf?

pls advise, tx, sandra

mytfeinAuthor Commented:
Hi TheNelson,

I just noticed this post by you, suggesting Fox it -
   would that print a pdf to a file?

tx, sandra
Newly released Acronis True Image 2019

In announcing the release of the 15th Anniversary Edition of Acronis True Image 2019, the company revealed that its artificial intelligence-based anti-ransomware technology – stopped more than 200,000 ransomware attacks on 150,000 customers last year.

A pdf printer driver looks like any other printer loaded into the OS except it creates a pdf file instead cf sending data to a physical printer.  For example When I click on Start - Printers And Faxes, one of the printers displayed is "PDFill PDF&Image Writer".  When I print anything, if I select that printer, a pdf file is saved. So You can select that printer for an Access report. Selecting a printer for a report using code depends upon the Access version you have. See the discussion below:

Take a look at Leban's Report to Pdf:

Foxit views pdf files. It's a faster, smaller, more featured replacement for Adobe Reader. You could use it to print to a pdf printer driver but that would be creating a pdf file from a pdf file (I would think copy would be easier).

Access 2002+, you can use printer objects:

Sub SetPrinter(strFormname As String)

    DoCmd.OpenForm FormName:=strFormname, view:=acDesign, _
                   datamode:=acFormEdit, windowmode:=acHidden
    With Forms(form1).Printer   'Within the form's code you can use With Me.Printer
        .DeviceName = **Name of printer as listed in Printers and Faxes**    'To change the printer  You also need to set UseDefaultPrinter = false

        .TopMargin = 1440
        .BottomMargin = 1440
        .LeftMargin = 1440
        .RightMargin = 1440
        .ColumnSpacing = 360
        .RowSpacing = 360
        .ColorMode = acPRCMColor
        .DataOnly = False
        .DefaultSize = False
        .ItemSizeHeight = 2880
        .ItemSizeWidth = 2880
        .ItemLayout = acPRVerticalColumnLayout
        .ItemsAcross = 6
        .Copies = 1
        .Orientation = acPRORLandscape
        .Duplex = acPRDPVertical
        .PaperBin = acPRBNAuto
        .PaperSize = acPRPSLetter
        .PrintQuality = acPRPQMedium
    End With
    DoCmd.Close objecttype:=acForm, objectname:=strFormname, _

End Sub

Before 2002 with an mda file you can use PrtDevMode, PrtDevNames, and PrtMip properties - very complicated - consult the Win32 Software Development Kit for complete documentation or or you can use 's an API workaround too:
Microsoft: Access Modules (VBA Coding) FAQ - Change the Default Printer

Before 2002 with an mde file, your only option is using RunCommand acCmdPageSetup with Sendkeys before each print. For example:

Sendkeys "{RIGHT}%zll~"
RunCommand acCmdPageSetup

will set the page setup to legal size paper for most printers.
mytfeinAuthor Commented:
thx  the Nelson,

ok, i'm not advanced like you...

i want to create a pdf from Excel (though I'm in Access controlling Excel)
i think the above is to create pdf from access report, which is not what i need.

(can you pls check another post that i just added to EE, I read another of your posts about printing
pdf to printer using foxit/shell, and after installing foxit for some reason i changed my my mind, and
now pdfs are opening in a reduced mode, instead of full page, and i do not know how to set
the default back....)

also, is there any way to make the acrobat distiller technique work again?
tx, s

<i want to create a pdf from Excel>
What I think I would do is link to the spreadsheet (In Access database window, tables, select New, then link table) and create a report that I would use to create the pdf file.

<now pdfs are opening in a reduced mode, instead of full page, >
Sorry abut that. Look like captainreiss gave you a possibl solution in question # 24530334.

<also, is there any way to make the acrobat distiller technique work again?>
I'm not all that familiar with acrobat distiller.  Why don't you add the acrobat zone to this question?
mytfeinAuthor Commented:
thx the nelson,
i still wantt to try from excel to pdf, before access report to pdf....
will be in touch, tx, s
mytfeinAuthor Commented:
Hi theNelson,

i will be closing this post - and since you provide info that would be useful for future ....

i posted a similar quest, and incidentally someone else asked a quest on this subject in the past week,
if you take a look, you will see my hoped for approach...

other wise i might try installing fox it, again, it's just that alot of my settings got switched an not sure
if fox it did that... tx, s
You're welcome.  Glad to help and thank you very much for the points with "A" grade!

Happy Computing!

It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.