Print a specific record report from a form

cynthiacorley · #1 12-24-2009, 08:04 AM

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 · #2 12-24-2009, 10:48 AM

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

bbylls · #3 01-20-2010, 11:58 AM

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 · #4 01-20-2010, 12:38 PM

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

bbylls · #5 01-20-2010, 01:13 PM

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

RuralGuy · #6 01-20-2010, 01:24 PM

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 · #7 01-21-2010, 02:59 AM

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 · #8 01-21-2010, 03:45 AM

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 · #9 01-21-2010, 03:50 AM

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

bbylls · #10 01-21-2010, 02:19 PM

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 · #11 01-22-2010, 06:17 AM

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 · #12 01-22-2010, 07:16 AM

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 · #13 01-22-2010, 10:46 AM

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 · #14 01-29-2010, 11:07 AM

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.

Code:

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 · #15 01-29-2010, 12:50 PM

Try:

Code:

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
print continued at bottom of report	ecpike	Reports	2	02-25-2010 11:50 AM
Print Report from Form ID	Brian62	Forms	1	09-18-2009 11:50 AM
List Box in Form is causing black boxes to print on a report	tigers	Forms	1	07-30-2009 10:54 AM
Print a different image per record	mcaldwell	Reports	5	04-24-2009 12:00 PM
How do I get a line not to print on a report...	tigers	Reports	3	03-24-2006 05:40 AM