フォームにコンボボックスなどを利用し、フィルタをかけたのち、その結果をレポートに出力したいときがあります。
その方法は、フォーム上に印刷リクエストのボタンを設け、そのボタンのイベントから以下のコードにより印刷すればOK。
Private Sub 印刷ボタン_Click()
If Me.FilterOn = False Then
MsgBox “先にフィルターを実行してください！”
Else
DoCmd.OpenReport “レポート名”, acPreview, , Me.Filter
Me.FilterOn = False
End If
End Sub
