In my form I have a print button, which runs:
Private Sub cmd_Print_Click()
Dim strReportArgs As String
strReportArgs = Forms!TabsReport!Top10_BU.Form.RecordSource
MsgBox (strReportArgs)
DoCmd.OpenReport "Top10Report", acViewNormal, , , , strReportArgs
End Sub
This...