フィルターのかかっているフォームの内容をそのまま印刷する

一覧表等で条件で絞り込みをかけた状態で印刷したいケースがあります。
そういう場合は、フォームの「Filter」プロパティーを取得し、Docmd.OpenReportのフィルター引数（4番目の引数）に渡します。
ただし、フォームのレコードソースとして使用されているフィールドが、レポート側でも使われていることが前提となります。
例：

If (Me.SUB_顧客一覧.Form.FilterOn) Then
    lc_filter = SUB_顧客一覧.Form.filter
End If
DoCmd.OpenReport "R_顧客一覧", acViewPreview, , lc_filter