• 締切済み

ＶＢ6からACCESSのレポートを印刷　　

OpenReportはレポート1 text2.text はテキスト型（何部印刷） oleAccess.DoCmd.OpenReport ReportName, acNormal oleAccess.DoCmd.PrintOut acPages, , , , CInt(Text2.Text) 上記の内容では印刷したときに、印刷ドキュメントがOpenReportとPrintOutでは違うんですけど,これでは 別々のデータが印刷さるのでこまってます。どうかいいアドバイスを下さい. 例　　ACCESSのテーブル 　　　テーブル1（青くなっている状態） 　　　テーブル2 　　　ACCESSのレポート 　　　レポート1（青くなっている状態） っていう具合になっていて、ACCESSを開くとテーブル1にカ ーソルがある状態。 印刷のドキュメント レポート1 テーブル1 っいうふうになっていて、困っています. レポート1だけを何部印刷するとかはできないんですかね？

みんなの回答

  • Watapo3
  • ベストアンサー率76% (33/43)
回答No.1

こんにちは。 PrintOutメソッドのHelpはご覧になられたでしょうか？ PrintOutメソッドは「アクティブオブジェクト」を印刷します。 よって、テーブルがアクティブな時にはテーブルが印刷されます。 ここまででお解りかと思いますが、レポートを印刷したいのであればレポートをアクティブにしておく必要があります。 では、頑張って下さい。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ＶＢ6からACCESSのレポートを印刷　

    今いちを印刷はでます。だけど下のソースでは、何部印刷するかとかできないとおもうのですが、例えば、3部印刷するにはどういう風にプログラムを作るのですか。 かたちは、テキストに数字を入れるようなかんじにするのでよろしくおねがいします。 oleAccess.DoCmd.OpenReport ReportName, acNormal

  • access vba レポートを複数部印刷

    MS-Access 2007です。 VBAでレポートを印刷しています。 2部印刷したいときはどのようにすればよいでしょうか。 現在は Dim stDocName As String stDocName = "請求書印刷" DoCmd.OpenReport stDocName, acNormal で一部印刷しています。 二回繰り返せば2枚出ますが2部としてプリンターに送りたいのです。 宜しくお願いします。

  • Accessのレポート印刷について

    Access2007を使用しています。 DoCmd.OpenReport "レポート名", acViewNormal, , Me.Filter で絞り込みをした内容のレポートで1枚目だけが印刷されるようにしたいのですが、 どうしたら良いですか？ 2枚目・3枚目は印刷したくないので、1枚目だけが印刷されるようにしたいです。 よろしくお願いします。

  • ＶＢからACCESSのレポートを印刷で範囲指定

    oleAccess.DoCmd.OpenReport ReportName, acNormal oleAccess.CloseCurrentDatabase 　今、上のソースでは、データベース全件、印刷されるので、範囲指定をしたいのですが、どうすればいいですか？ お願いします。

  • VB6からアクセスのレポートをプレビューするには？

    おはようございます。またまた躓いたのでお助け下さい<(_ _)>VB6で、アクセス2000にパーツ名を読み書きしています。アクセスの方でレポートを作ってあるのですが、印刷はいけそうなのですが、これを印刷前にプレビューしたいのですが、 Set accApp = CreateObject("Access.Application") accApp.OpenCurrentDatabase "C:\part-name.mdb" accApp.DoCmd.OpenReport "パーツ情報", acViewNormal 印刷について参考にさせていただいたソースです。DoCmd.OpenReport が印刷ですよね？ここを変更するのでしょうか？よろしくお願いします<(_ _)>

  • Accessのレポート印刷について教えて下さい。

    Accessのフォームでフィルタを使い絞り込んだデータをレポートで 印刷する場合について教えて下さい。 DoCmd.OpenReport "レポート名", acViewPreview, , Me.Filter では、フォームとレポートが同じレコードソースだと使えるという事ですが、 フォームとレポートのレコードソースが別の場合はどのようにすると フィルタで絞り込んだ条件のレポートを印刷できますか？ 教えて下さい。よろしくお願いします。

  • SQLステートメントで。

    Accessのイベントプロシージャで、SQLステートメントをかいて、実行させています。 一番最後の、 DoCmd.OpenReport "検索結果レポート", acNormal, , WhereCond というところなのですが、ここを上に書いたように、 「OpenReport」としてしまうと、レポートが印刷されてしまいます。 これをプレビューの状態にするには何と入力すればいいのでしょうか？

  • ＶＢＡ「レポートを開く、なおかつ印刷はしない」

    アクセス２００７です。 レポート1を作って保存し閉じました。 標準モジュールに Sub test() DoCmd.OpenReport "レポート1", acViewNormal End Sub と記載して実行したら、レポートが印刷されてしまいます。 私は開きたいだけなので、 ＶＢＡで「レポートを開く、なおかつ印刷はしない」と言うコードををしえてください。 ご回答よろしくお願いします。

  • ACCESSのレポートについて

    ACCESSでフォームから印刷ボタンを押すとレポートの印刷プレビューが表示されるという簡単なアプリケーションを作成したんですが、レポートの余白・向きを保存→アクセスを終了→アクセスを起動→レポートを表示→レポートを閉じる→レポートを表示という操作をすると、ページ設定で設定し保存した余白・ページの向きが元に戻ってしまいます。どうすればちゃんと保存できるのでしょうか？ ちなみにDoCmd.OpenReport "hoge", acViewPreviewでレポートを表示させてます。

  • アクセスのレポートの印刷について。

    アクセスで報告書を作成し、印刷する時に、ウィザードを使って作ったコマンドボタン「報告書の印刷」を使用したいのですが、全てのレコードが印刷されます。以下の記述でどこを変更すればよいか教えてください。 また、基本的な質問なのですが、レポートのプレビュー上にコマンドボタンを配置することは可能でしょうか？（やはり、無理でしょうか？） よろしくお願いいたします。 Private Sub 報告書の印刷_Click() On Error GoTo Err_報告書の印刷_Click Dim stDocName As String stDocName = ChrW(22577) & ChrW(21578) & ChrW(26360) DoCmd.OpenReport stDocName, acNormal Exit_報告書の印刷_Click: Exit Sub Err_報告書の印刷_Click: MsgBox Err.Description Resume Exit_報告書の印刷_Click End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する