いつもお世話になっております
請求書を作成するにあたり、印刷すると正と控えが2枚出てくるようになっています。
（※テーブルで請求書と請求書（控）をつくり請求書明細のクエリに組み込みレポートのテキストボックスで正と控がでます）
PDFにするのも下記のようなコードなのですがこれだとどうしても正と控えの2枚PDFにされてしまいます。
これを正だけPDFにしたいのですがご教授をお願いします。
Private Sub コマンド63_Click()
Dim rpt As Report
Dim rptName As String
rptName = "PDF"
DoCmd.OpenReport "請求書", acViewPreview, , "請求書NO =" & Me!請求書NO
DoCmd.OutputTo acOutputReport, "請求書", acFormatPDF, "請求書.pdf", True
Set rpt = Reports(請求書)
End Sub
この仕組みがどうなっているか不明ですので、推測での回答になりますが、
OpenReportの引数で抽出条件で"（正）"のみ抽出するようにはできませんか。
レコードソースのフィールド名が不明なので、推測ですが、
早速の返信ありがとうございます。説明不足で申し訳ありません。
伝票テーブル
伝票ID 伝票名
1 請求書
2 請求書（控）
クエリで材料、数量・金額などの明細の後に上記テーブルを入れ、交互に出すようにしてあるので請求書の内容は全く同じでテキストボックス（コントロールソース 伝票名）だけ名前が変わるようになっております。
それようのフォームを作り
DoCmd.PrintOut acPages, Me!txt開始ページ, Me!txt終了ページ
を挿入するぐらいしかわかりません。
正は1ページ目にでるので1ページ目だけ指定とかできるのでしょうか
ということなら、下記でどうでしょうか。
連絡が遅くなりすみません。
上記のようにやったらできました。本当にありがとうございました。
伝票ID=1を加えただけでできるとはびっくりです。