Exporting a PDF file by saving it from a form.

[mar7632]

Hi again,

I have a problem related to exporting a PDF file, which has the report structure, from a form by using a command button. What I want is to save the certain record I am (determine by the id_item), in my computer using a PDF format.

The code I am Using:

Private SubcboGuardarArchivoPDF_Click()

DoCmd.OutputTo acReport, "Informe_Correo", "(*.pdf)", "C:\" & codigoRFQ & ".pdf", False, ""

End Sub

It keeps saving all the record I have. Could you help me with this issue, please?

Thank you in advance,

Regards.

[June7]

First open report filtered to the one record then run OutputTo.

[Minty]

I'm sure you have asked this before...

You need to open the report to the specific record then while it is open, do the output to. Air code (untested) something like

Dim strWhere as String

strWhere = "[codigoRFQ] = " & codigoRFQ 

DoCmd.OpenReport "Informe_Correo", acViewPreview, , strWhere
DoCmd.OutputTo acReport, "Informe_Correo", "(*.pdf)", "C:\" & codigoRFQ & ".pdf", False, ""
DoCmd.Close acReport, "Informe_Correo"

This assumes codigoRFQ is a number. If it's text then add ' ' around the where string.

[mar7632]

Thank you for your reply, I have asked a similar question but related to a printing button.

codigoRFQ is a text field. I don really understand what are you saying with: If it's text then add ' ' around the where string.

[Minty]

You always need to use the correct format for the data type. This means using delimiters.

So for your criteria as a string you would use ' as the delimiter;

strWhere = "[codigoRFQ] = '" & Me.codigoRFQ  & "'"

For a Date field you would use # as the delimiter, and for safety format it to a universally recognised standard;

strWhere = "[YourDateField] = #" & Format( Me.YourDateFieldControl ,"yyyy-mm-dd" & "#"

And finally for a number data type

strWhere = "[YourNumberField] = " & Me.YourNumberControl 

Remember this as it always applies!

[mar7632]

Thank you so much Minty and June7! I've finally solved this problem with your help!