ACCESSの印刷ダイアログについて

2023/10/14 15:22

このQ&Aのポイント

ACCESSの印刷ダイアログを使ってレポートをプレビュー状態で抽出したい場合は、DoCmd.OpenReportとReportsオブジェクトを使用します。
プレビュー状態で抽出したデータを印刷するには、DoCmd.SelectObjectとDoCmd.RunCommandを使用しますが、全件印刷されてしまう問題が発生します。
印刷ダイアログを表示させたい場合は、適切なコマンドやオブジェクトを使う必要があります。正しい方法を教えてください。

ベストアンサー

ACCESSの印刷ダイアログについて

2007/05/07 23:27

いつも大変お世話になっております。レポートをFILTER(県名)で抽出した状態でプレビューしたいと思い以下のようにPGを組みました。 DoCmd.OpenReport "レポートR", acViewPreview Reports!レポートR.Filter = "[県名] Like '*" & txtbox_県名1 & "*'" Reports!レポートR.FilterOn = True プレビューはうまくいきましたが、この抽出した状態で印刷したいのですがどうすればいいのでしょうか。また、印刷の前に印刷ダイアログをだしたいと思い、 DoCmd.SelectObject acReport, "レポートR", False DoCmd.RunCommand acCmdPrint と組んだのですが全件印刷されてしまいます。ご教授宜しくお願いします。

AKI78
お礼率63% (70/110)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

bonaron
ベストアンサー率64% (482/745)

2007/05/08 00:01 回答No.1

DoCmd.OpenReport "レポートR", acViewPreview,,"[県名] Like '*" & txtbox_県名1 & "*'" DoCmd.RunCommand acCmdPrint でよろしいのでは？

質問者

お礼 2007/05/08 23:05

有難うございます。

関連するQ&A

Accessのコード入力
アクセス初心者です。レポート内の検索結果を再びレポートで表示したいため、フォームのコードで下記のようにしたのですが、フォームで前後の文字を入れなくても検索できるようにするにはどのようにしたら良いでしょうか。 (テーブルなどで検索する時の、*a* のような感じです) DoCmd.OpenReport "R1", acViewDesign Reports!R1.FilterOn = True Reports!R1.Filter = "[a]='" & Me.テキスト1.Value DoCmd.OpenReport "R1", acViewPreview 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
ACCESSフォームフィルタで抽出したデータのみをレポートで表示する方法
フォームフィルターでデータを抽出した後，抽出されたデータのみをレポート上に表示させるコマンドボタンをフォーム上に作っています。下記のコードを作成しましたが，これだと抽出前の全部のデータが表示されてしまいます。どうしたら良いでしょうか。 Private Sub ラベルプレビュー_Click() Dim stDocName As String DoCmd.Echo False, stDocName = "rpt宛名ラベル" DoCmd.OpenReport stDocName, acViewDesign DoCmd.SelectObject acReport, stDocName, False ' Reports(stDocName).RecordSource = Me.RecordSource DoCmd.OpenReport stDocName, acViewPreview End Sub
- ベストアンサー
- オフィス系ソフト
住所があっても印刷除外したい
コンバンハ。MS-Access2000・Windows98SEです。レコードの抽出をして、その中で[顧客マスタT]テーブルの [宛名印刷除外]フィールド(Yes/No型)にチェックが入った顧客はプレビューしない方法を探しています。ちなみに抽出レコードのみをプレビューするVBAは～～～～～～～～～～～～～～～～～～～～～～～ Private Sub cmb抽出データを横書印刷プレビュー_Click() If Me.FilterOn = True Then DoCmd.OpenReport "R葉書宛名横書印刷",_ acViewPreview, , Me.Filter End If End Sub ～～～～～～～～～～～～～～～～～～～～～～～としています。何かよい方法はあるのでしょうか？よろしくお願い致します。
- ベストアンサー
- その他(データベース)
Accessを使ってレポートを印刷する際に。。。
No.2353071の続きなのですが、 Private Sub コマンド0_Click() 　　DoCmd.OpenReport "レポート1", acViewDesign 　　Reports("レポート1").Controls("ラベル0").Caption = "AAA" 　　DoCmd.Close acReport, "レポート1", acSaveYes End Sub このようにすると「DoCmd.OpenReport "レポート1", acViewDesign」を実行する際に、デザインビューで開く画面が表示されるのですが、この画面を消すことはできないのでしょうか。
- ベストアンサー
- その他(データベース)
Accessのレポート印刷について教えて下さい。
Accessのフォームでフィルタを使い絞り込んだデータをレポートで印刷する場合について教えて下さい。 DoCmd.OpenReport "レポート名", acViewPreview, , Me.Filter では、フォームとレポートが同じレコードソースだと使えるという事ですが、フォームとレポートのレコードソースが別の場合はどのようにするとフィルタで絞り込んだ条件のレポートを印刷できますか？教えて下さい。よろしくお願いします。
- 締切済み
- その他MS Office製品
Accessのレポート印刷について
Access2007を使用しています。 DoCmd.OpenReport "レポート名", acViewNormal, , Me.Filter で絞り込みをした内容のレポートで1枚目だけが印刷されるようにしたいのですが、どうしたら良いですか？ 2枚目・3枚目は印刷したくないので、1枚目だけが印刷されるようにしたいです。よろしくお願いします。
- ベストアンサー
- その他MS Office製品
ACCESSで印刷プレビューをした後の印刷ボタンを押したイベント取得につて
現在、アクセスにてプリントレポートを印刷する際に一度印刷プレビューを行った後問題が無ければ印刷を実行するソフトを作成しているのですが、実際に印刷したときのみ履歴を残したいと考えておりますが可能なのでしょうか？ DoCmd.OpenReport　"レポート名",acViewPreview をコールしたタイミングで履歴を取ると、その後印刷しなくても履歴が残ってしまいます。なにかいい方法があれば教えて下さい。
- ベストアンサー
- その他（プログラミング・開発）
ACCESS でフォームフィルターをレポートに引き継ぐ方法
こんにちは。いつもありがとうございます。現在、ACCESSで名簿管理ソフトを作っています。フォームで条件を指定し、該当する人を抽出できるようになっているのですが、その条件をそのままレポートのソースに使用するにはどうれすばいいでしょうか？ DoCmd.OpenReport "rpt_名簿", acViewPreview,, Me.Filter としているのですが、実行時エラー 438が出てしまいます。
- ベストアンサー
- その他(データベース)
アクセスのMDEファイルでレポート印刷したい。
MDEファイルからレポート印刷できません。下記構文の下から４行目「acViewDesign」を開けないからだと思います。回避しようと「acViewDesign」を省くようにいろいろ試みているのですが、レポート印刷はできるようになっても、レポート内容（詳細セクション）が空になってしまいます。どなたかご教授くだされば幸いです。よろしくお願いいたします。 ---------------------------------------------------------------------- Dim strDate As String strDate = "#" & Month(Me.txt日付) & "/" & Day(Me.txt日付) & "/" & Year(Me.txt日付) & "#" Sql = "SELECT * FROM q棚卸_結果表示 WHERE 日付 = " & strDate & " " & strWhere & "ORDER BY メーカー名, カナ" DoCmd.OpenReport "r棚卸_結果表示", acViewDesign [Reports]![r棚卸_結果表示].[RecordSource] = Sql DoCmd.OpenReport "r棚卸_結果表示", acViewPreview End Sub ----------------------------------------------------------------------
- ベストアンサー
- オフィス系ソフト
Access　フォームで条件抽出したものを印刷プレビューしたい
条件抽出したフォームを印刷プレビューしたいのですが、プレビューすると全データが表示されてしまいます。出来ればフォームのままプレビューしたいのですが、この場合は、別にレポートを作成しないとダメでしょうか？ 1．メインフォームにサブフォームを組み込んであります。 2．サブフォームはクエリに関連させています。 3．コマンドボタン[印刷]で印刷プレビューを表示させたい。メインフォーム：商品サブフォーム：取引商品クエリ：商品リスト -----コマンド［印刷］のイベント----- Private Sub cmdPrint_Click() '商品取引記録を印刷プレビューで開く DoCmd.OpenForm "商品", acViewPreview, Me.Filter End Sub
- ベストアンサー
- オフィス系ソフト