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

一覧表等で条件で絞り込みをかけた状態で印刷したいケースがあります。

そういう場合は、フォームの「Filter」プロパティーを取得し、Docmd.OpenReportのフィルター引数(4番目の引数)に渡します。

ただし、フォームのレコードソースとして使用されているフィールドが、レポート側でも使われていることが前提となります。

例:

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

 

 

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です