Print a specific record report from a form

[cynthiacorley]

I can't seem to print a report on the specific record that I have opened on the form. I have tried using a macro with an Open Report and WHERE condition and also tried a stored procedure. Can't seem to get either one to work. I have enclosed a very simplified version of my database and what I need to do. I'm kind of new to macros and procedures, so please provide detailed instructions. Thanks in advance for your help!

[RuralGuy]

Hi Cynthia,
It seems to work just fine for me. The report is only for the selected Order_No.

[bbylls]

I am trying to do the same thing.
I cannot open her database because it is 2007 and I am 2003.
I would like to see the code that makes this work.
Can you post the code for printing just the record currently on the form.
Thank you.

[RuralGuy]

Have you seen this link?
http://www.mvps.org/access/reports/rpt0002.htm

[bbylls]

Thanks.
It works perfect.
Now, how can I select which printer that specific report will go to?

[RuralGuy]

Unless you are changing the printer all of the time, each report will remember which printer to use if when in design mode for the report you go to File>Print and select a printer.

[bbylls]

Yes, I would like the option to change the printer when I print a report.
I would like the option to send it to my printer, or maybe my bosses printer, or maybe to make a pdf file.
Thanks.

[RuralGuy]

To do this with a macro, first you would use an OpenReport action to
Preview the report, and then the RunCommand/Print action which will open
the print dialog.

[bbylls]

Thanks RG
I'll see if I can work out the code.

[bbylls]

I'm close.
This is my code:

Dim stDocName As String

stDocName = "Packer"
StrFilter = "[packer#]=" & Me.packer_

DoCmd.OpenReport stDocName, acPreview, , StrFilter
DoCmd.RunCommand acCmdPrint
DoCmd.OpenReport stDocName, acNormal, , StrFilter

I get a blank preview and the printer dialog box.
After I select the printer, the preview then shows up and it prints 2 copies to the correct printer.
What's missing?
Thanks.

[RuralGuy]

You need to have Option Explicit at the top of your Class module and then Debug>Compile your code. It should throw an error.

[bbylls]

This is the complete code:

Private Sub PrintPacker_Click()
On Error GoTo Err_PrintPacker_Click

Dim stDocName As String

stDocName = "Packer"
StrFilter = "[packer#]=" & Me.packer_

DoCmd.OpenReport stDocName, acPreview, , StrFilter
DoCmd.RunCommand acCmdPrint
DoCmd.OpenReport stDocName, acNormal, , StrFilter

Exit_PrintPacker_Click:
Exit Sub

Err_PrintPacker_Click:
MsgBox Err.Description
Resume Exit_PrintPacker_Click

End Sub

I am not familiar with all of the Access terminology as I am a newby at this, so I am not sure what you are talking about.

[RuralGuy]

The top of your code module should start with these two lines:
Option Compare Database
Option Explicit

Then while looking at your code go to Debug>Compile and compile your code, please.

[bbylls]

These are at the beginning of the code:
Option Compare Database
Option Explicit

I ran the debug and found a missing line.

I have been playing around and not had any luck.
I have a form with a button on it that I want to print the current record on a report.
Using the following code, I get a blank preview and the printer select dialog box, I choose the printer I want to print the report on, but the report prints on the default printer, and the form prints on the selected printer.

Private Sub PrintPacker_Click()
On Error GoTo Err_PrintPacker_Click

    Dim stDocName As String
    Dim StrFilter As String
    
    stDocName = "Packer"
    StrFilter = "[packer#]=" & Me.packer_
    
    DoCmd.RunCommand acCmdPrint
    DoCmd.OpenReport stDocName, acPreview, , StrFilter
    DoCmd.OpenReport stDocName, acNormal, , StrFilter

Exit_PrintPacker_Click:
    Exit Sub

Err_PrintPacker_Click:
    MsgBox Err.Description
    Resume Exit_PrintPacker_Click
    
End Sub

I think I am close, but just don't have the knowledge to finalize it.
Please help.
Thanks

[RuralGuy]

Try:

Private Sub PrintPacker_Click()
On Error GoTo Err_PrintPacker_Click

    Dim stDocName As String
    Dim StrFilter As String
    
    stDocName = "Packer"
    StrFilter = "[packer#]=" & Me.packer_
    
    
    DoCmd.OpenReport stDocName, acPreview, , StrFilter
    DoCmd.RunCommand acCmdPrint
'    DoCmd.OpenReport stDocName, acNormal, , StrFilter

Exit_PrintPacker_Click:
    Exit Sub

Err_PrintPacker_Click:
    MsgBox Err.Description
    Resume Exit_PrintPacker_Click
    
End Sub