Print Current Record From Form

[eschlep via AccessMonster.com]

I am trying to print a form and I created a button that takes the form to a
report however it leaves out all of the subforms in the form. My code for
the button is
Private Sub Print_Click()

Dim strReportName As String
Dim strCriteria As String

If NewRecord Then
MsgBox "This record contains no data. Please select a record to print
or Save this record." _
, vbInformation, "Invalid Action"
Exit Sub
Else
strReportName = "LNREVIEWQ33"
strCriteria = "[Field2]= '" & Me![Field2] & "'"


DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

End If
End Sub

Thanks

 

[Allen Browne]

If you open your table in design view, what is the Data Type of Field2?

If it is Number, drop the extra quotes, i.e.:
strCriteria = "[Field2]= " & Me![Field2]

More information in:
Print the record in the form
at:
http://allenbrowne.com/casu-15.html

 

[pietlinden]

If you have subforms in your main form and you want all that in your
report, you can create subreports that mirror recreate those for
printout and then just pass a filter in the Open event of the report.

 

[eschlep via AccessMonster.com]

Would this have the form and subform in the same report. How would i do this.