Trying to filter object subform

[Ruegen]

I have button to print a report in a subform

Dim stDocName As String
Dim com1 As Integer, com2 As Integer
Dim MyForm As Form


On Error GoTo errHandler
stDocName = "rptPerformerDiary"
com1 = Nz(Me.Text0, 0)
com2 = Nz(Me.Text2, 0)


Set MyForm = Screen.ActiveForm
'
'Forms(MyForm).PerformerDiaryPrint.Report.Filter = "[ShowYearID]=" & com1 & "  And [PerformersID] = " & com2
'Forms(MyForm).PerformerDiaryPrint.Report.FilterOn = True


DoCmd.SelectObject acReport, stDocName, True


Application.RunCommand acCmdPrint
DoCmd.SelectObject acForm, MyForm.Name, False


errHandler:
 Select Case Err
 Case 2501
MsgBox "You have cancelled printing"
End Select

Can't quite figure out how to filter the report first before printing (else it prints all the pages which is unfiltered).

Help appreciated in advance

[Ruegen]

I am using

If IsNull(Me.Text0) Or IsNull(Me.Text2) Then
MsgBox "You need to choose a year and performer first"
Else
checkReportClosed ("rptPerformerDiary")
Dim com1 As Integer, com2 As Integer


On Error GoTo errHandler
com1 = Nz(Me.Text0, 0)
com2 = Nz(Me.Text2, 0)


DoCmd.OpenReport "rptPerformerDiary", acViewPreview, , "[ShowYearID]=" & com1 & "  And [PerformersID] = " & com2
Application.RunCommand acCmdPrint
checkReportClosed ("rptPerformerDiary")


errHandler:
 Select Case Err
 Case 2501
MsgBox "You have cancelled printing"
checkReportClosed ("rptPerformerDiary")


End Select


End If

which works, however I was hoping the method in the first post would work too...

[ranman256]

Normally, the [showyearid] and [performersid] criteria would be in the query, thus eliminating any coding.
This way you just docmd.openreport rpt, acviewpreview

[Ruegen]

Normally, the [showyearid] and [performersid] criteria would be in the query, thus eliminating any coding.
This way you just docmd.openreport rpt, acviewpreview

Yes but then that would restrict the report to that one situation - I may want to use the report more than once without having to recreate it, having a different button give a different action.