フォームと同じ内容(通常は同じレコードソース)のレポートがあるとき、現在フォームに表示されているレコードの情報だけをレポートとして出力させる方法です。
それには、DocmdのOpenReportメソッドを実行する際、4番目のWhereCondition引数を指定します。これはレポートに対する抽出条件を指定する項目で、フォームのカレントレコードを示すキー値をここに指定します。
Private Sub cmdPreview_Click()
'[このレコードだけを印刷]ボタンクリック時
'レポートを開く
DoCmd.OpenReport "rpt顧客マスタ", acViewPreview, , "顧客コード = " & Me!顧客コード
End Sub
  
   |