Access レポートをPDF出力するOutputToメソッドにWhereCondition条件を設定したい

Question

Access(2007-2016)で開発中です。
以下の記事を参考にして、表形式フォームからチェックボックスを入れたレコードのみを、個別にpdf化したいと思っています。
■レポートをPDFファイルに簡単に出力する方法

今回解決したい課題は、OutputToメソッドにWhereCondition条件を設定する方法が分からず、全てのレコードがPDF化されてしまう点です。以下のように、EOFを使い、全レコードをループし、印刷したいレコードを選択するチェックボックス「印刷判定チェックボックス」がTrueのレコードのみをPDF化したいと考えています。

〇T_請求書テーブル
・請求書No:オートナンバー
・請求月：日付
・請求先クライアントID：数値
・請求額：通貨

Private Sub 印刷ボタン_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim i as Integer

i = 1
Set db = CurrentDb()
Set rs = db.OpenRecordset("T_請求書テーブル")

Do Until rs.EOF
       
 If rs.Fields("印刷判定チェックボックス") = True Then
  DoCmd.OutputTo acOutputReport, "R_請求書レポート", acFormatPDF, "C:パス\PDFファイル名" & i & ".pdf"
  i = i + 1
 Else
 End If

rs.MoveNext
Loop

Set rs = Nothing
Set db = Nothing

End Sub

OutputToメソッドの代わりに、引数にWhereconditionが設定できるOpenReportメソッドを使った場合は、思い通りにチェックしたレコードだけをレポート表示できています。

DoCmd.OutputTo acOutputReport, "R_請求書レポート", acFormatPDF, "C:パス\PDFファイル名" & i & ".pdf"
↓
↓変更
↓
DoCmd.OpenReport "R_請求書レポート", acViewReport, , "[請求書No] = " & rs.Fields("請求書No")

選択したレコードのみを、個別にPDF化するにはどのようにしたらよいのでしょうか。

Answer 1

レポートをOPenReportメソッドで抽出条件を付けてプレビューで開いてから、OutputTo すると抽出された状態でPDF出力できます。

DoCmd.OpenReport "R_請求書レポート", acViewPreview, , "[請求書No] = " & rs!請求書No
DoCmd.OutputTo acOutputReport, "R_請求書レポート", acFormatPDF, "C:パス\PDFファイル名" & i & ".pdf"
DoCmd.Close acReport, "R_請求書レポート""

いちいちプレビューが開くのが鬱陶しいという場合は、レポートのレコードソースのSQLを書き換えてからOutputToするといいでしょう。

下記にサンプルがありますので、ご参考に。

レポートをグループ毎に分割してPDFファイルとして保存したい - hatena chips

Answer 2

レポートのレコードソースにユーザー関数を条件にするようにしておき、印刷前にユーザー関数が参照するpublic変数を設定する方法が考えられます。

Public 印刷請求書No

Public Function 印刷請求書番号()
  印刷請求書番号 = 印刷請求書No
End Function

レポートのレコードソースでは以下のようにします。

Where [請求書No] = 印刷請求書番号()

パラメータクエリーにする方が簡単かもしれない。