Printing report to PDF file

[Guest]

Dear Sirs
I would like to print my reports automatically to an PDF file, without
changing my Printer Options upfront.
I created a command button to print those records - but up-to-now the
records are going straight to the printer. How can I change the code so that
they are printed to a PDF file?

Here is the normal code maybe someone can change it to that what I need:

Private Sub Command41_Click()
On Error GoTo Err_Command41_Click

Dim stDocName As String

stDocName = "endofmonthstatementbie30preport"
DoCmd.OpenReport stDocName, acNormal
stDocName = "endofmonthstatementbie30"
DoCmd.OpenReport stDocName, acNormal
stDocName = "endofmonthstatementclientsnonpool"
DoCmd.OpenReport stDocName, acNormal

Exit_Command41_Click:
Exit Sub

Err_Command41_Click:
MsgBox Err.Description
Resume Exit_Command41_Click

End Sub

 

[Arvin Meyer [MVP]]

You must change the specific printer for that report to the PDF printer. Do
it in the report's Design View and save the report with that printer
selected.

 

[Guest]

That would be easy and fine but I cannot do it because the report should be
printed to a normal printer as well automatically. I would like that the
report is printed to PDF for my Web.
I have been told to the following code:

Private Sub Command63_Click()
On Error GoTo Err_Command63_Click

Dim stDocName As String

stDocName = "endofmonthstatementbie30preport"
DoCmd.OpenReport "endofmonthstatementbie30preport", acNormal
Application.Reports("endofmonthstatementbie30preport").Printer =
("Amyuni PDF Converter")
Application.Printers ("Amyuni PDF Converter")

Exit_Command63_Click:
Exit Sub

Err_Command63_Click:
MsgBox Err.Description
Resume Exit_Command63_Click

End Sub

The problem is that I get now an error message: Compile error / Type mismatch
Any idea how to correct this?
Thanks
Klaus

 

[Arvin Meyer [MVP]]

On what line to you get the error? Set a breakpoint after the Dim statement
and step through the code. You find the line causing the problem, and then
it should be easier to figure out.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[Guest]

I get the error message in this line:
Application.Reports("endofmonthstatementbie30preport").Printer =("Amyuni PDF
Converter")
Is there a poosibility for you, with the information I provided, to change
the code?
Thanks Klaus

 

[Arvin Meyer [MVP]]

A type mismatch error is occurs when the wrong datatype is used. It appears
that you are using a string, and I think that's correct unless it's NULL. In
that case you want to use a variant.

You can set up 2 identical reports, sending 1 to each printer, and avoid the
problem entirely.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com