Print Report as pdf file

[charly.csh]

Hi everyone,

I write today because I want to print a report from my MS Access as PDF File; sometime ago I had that with a button doing that automatically (wih code)

I have not longer the application "PDF Creator". In fact I want to make that with the pdf converter installed by default.

Your help will be highly appreciated

This is my code:

*********************************

Private Sub ImprimirPDFcmd_Click()


On Error GoTo Err_ImprimirPapelcmd_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Diagram_Cause_Efect"
stLinkCriteria = "[ID]=" & "'" & Me.ID & "'"

Set Application.Printer = Application.Printers("PDF Creator")

'Application.Printer.Orientation = Orientacion
'Application.Printer.PaperSize = Tamaño

DoCmd.OpenReport stDocName, acViewNormal, , stLinkCriteria
Set Application.Printer = Nothing

MsgBox "Report to PDF", vbInformation, "Exporting to PDF"

Exit_ImprimirPapelcmd_Click:
Exit Sub

Err_ImprimirPapelcmd_Click:
MsgBox Err.Description
Resume Exit_ImprimirPapelcmd_Click



End Sub

[ranman256]

vRpt = "rMyRpt
vFile = "c:\temp" & vRpt & ".pdf"
DoCmd.OutputTo acOutputReport, vRpt, acFormatPDF, vFILE

[Gicu]

Hi there, can you try:

Private Sub ImprimirPDFcmd_Click()

On Error GoTo Err_ImprimirPapelcmd_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Dim stDocName As String
Dim stLinkCriteria As String
Dim stFileName as String

stDocName = "Diagram_Cause_Efect_ByID"  'modify the report to include the criteria below in its record source and save it with a different name as suggested
'stLinkCriteria = "[ID]=" & "'" & Me.ID & "'"

'Set Application.Printer = Application.Printers("PDF Creator")

'Application.Printer.Orientation = Orientacion
'Application.Printer.PaperSize = Tamaño
stFileName=CurrentProject.path & "\" & stDocName & Format(Date,"YYYYMMDD") & ".pdf" 'set the file name for the new PDF
'DoCmd.OpenReport stDocName, acViewNormal, , stLinkCriteria
DoCmd.OutputTo acOutputReport, stDocName,  acFormatPDF, stFileName, True
'Set Application.Printer = Nothing

MsgBox "Report to PDF", vbInformation, "Exporting to PDF"

Exit_ImprimirPapelcmd_Click:
Exit Sub

Err_ImprimirPapelcmd_Click:
MsgBox Err.Description

Resume Exit_ImprimirPapelcmd_Click
End Sub

[charly.csh]

Hi Ranman256,

vRpt = "rMyRpt
vFile = "c:\temp" & vRpt & ".pdf"

should be declarated as Strings?

[charly.csh]

Vlad Cucinschi,

It looks good however when I run it, it's shown a message as "Microsoft Access doesn't find the object "|1".

Do you know why?

[Gicu]

Did you read my comments in red and follow what I suggested?

[charly.csh]

Hi Gicu

I had a mistake with the name of my report... I 've already modified it,
One question I still have is how do I include the criteria as you suggested? I meant, this comment suggested by you in red

'modify the report to include the criteria below in its record source and save it with a different name as suggested

My criteria should be this "[ID]=" & "'" & Me.ID & "'"

I do not know how to add my criteria to: DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, stFileName, True

In fact when I took this out, it prints in pdf for all the records, (because I have not defined the criteria)

****************************

Dim stDocName As String
Dim stLinkCriteria As String
Dim stFileName As String


stDocName = "Diagrama_CausaEfecto_Report" 'modify the report to include the criteria below in its record source and save it with a different name as suggested
stLinkCriteria = "[ID]=" & "'" & Me.ID & "'"
stFileName = CurrentProject.Path & "" & stDocName & Format(Date, "YYYYMMDD") & "Diagrama Causa Efecto.pdf" 'set the file name for the new PDF


DoCmd.OpenReport stDocName, acViewNormal, , stLinkCriteria
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, stFileName, True

[Gicu]

Hi there,
You need to open the original report in design view, open the Properties box and on the Data tab you will see the Record Source property. If could be a saved query or a SQL statement similar to SELECT * FROM tblYourTABLE;". Click the builder (the three dots) on the right of the property field and it will open the record source in design view (query design view). In here find the ID field and in the Criteria row add Forms!frmYourFormWhereYouUseThisCode![ID] and save it. Now save this updated report with a new name like Diagrama_CausaEfecto_Report_SelectedID.

Now the code becomes:

Dim stDocName As String
Dim stLinkCriteria As String
Dim stFileName As String




stDocName = "Diagrama_CausaEfecto_Report_SelectedID" 'modify the report to include the criteria below in its record source and save it with a different name as suggested
stLinkCriteria = "[ID]=" & "'" & Me.ID & "'"
stFileName = CurrentProject.Path & "\" & Format(Date, "YYYYMMDD") & "_Diagrama Causa Efecto.pdf" 'the file name will be 20200401_Diagrama Causa Efecto.pdf and it be in the same folder as the front-end -you might want to include the ID in the file name




'DoCmd.OpenReport stDocName, acViewNormal, , stLinkCriteria  'you do not want to print the report but save it as PDF on the next line
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, stFileName, True

Cheers,
Vlad

[charly.csh]

WOW!!

I didn't know that
Today I learnt something new!!!

Thank you very much!!!!!! great solution!!

[Gicu]

You're very welcome!

Stay safe!
Vlad