print record

[slimjen]

All; using 2010. I have a form with multiple subforms link to the main form. I need to put a print button on the form for the user to print the current record they have filtered to. I want the print out to be some what organized like a report rather than a printscreen. Haven't done this before; should I create a report with the subforms? If so; can anyone suggest vba code to print preview then print if necessary? Thanks

[ItsMe]

The following code should help if the user is using the filter tool.

'Assuming the report name is rptSample
Dim strFilter As String
strFilter = Me.Filter 'Save the current filter parameters to a string
'This will give you ability to Preview
DoCmd.OpenReport "rptSample", acViewPreview, , strFilter
'This should send it to the printer
DoCmd.OpenReport "rptSample", acViewNormal, , strFilter

[slimjen]

Yipes; It trys to print all the records in the DB!! Clearly I did something wrong but what?

[ItsMe]

Yipes; It trys to print all the records in the DB!! Clearly I did something wrong but what?

If the Button resides on the main form and the filtered form is the subform then you will need to get the subform's filter. My bad. The code I posted above grabs the filter for whatever form the control resides in.

Build a report based on the same Access Query or Table your subform is based on. Assuming it is your subform that is getting filtered.

Then you can use this revised code. Another way to get the subform's Filter is Forms!MainFormName!SubFormName!Form.Filter. The example below uses Me. and then the subform name then .Form.Filter

'Assuming the report name is rptSample
Dim strFilter As String
strFilter = Me.SubFormName.Form.Filter 'Save the current filter parameters to a string
'This will give you ability to Preview
DoCmd.OpenReport "rptSample", acViewPreview, , strFilter

[slimjen]

Got it. I reference the record I was trying to print in the query for the report. Works perfectly like i wanted. thanks to all for your help. This forum is awesome!!