• ベストアンサー

複数ブックの印刷プレビューの方法を教えてください。

VB6.0にてエクセルのブックを２つ作成し、 最後にそのBook1とBook2を同時に印刷プレビューで表示させたいのですが Book1.Worksheets.PrintPreview Book2.Worksheets.PrintPreview にするとBook1の印刷プレビューを閉じないと Book2の印刷プレビューが表示されません。 Book1とBook2を同時にプレビュー表示させる方法を どなたかご存知でしたら教えてください。 よろしくお願いします。

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

  • ベストアンサー
  • redfox63
  • ベストアンサー率71% (1325/1856)
回答No.2

Excelのインスタンスを2つ準備して oXL1.Visible = True Book1.Activate DoEvents Sendkeys "%fv" doEvents oXL2.Visible = True Book2.Activate DoEvents SendKeys "%fv" といった具合にして見ましょう

Ulswarpi
質問者

お礼

うまくいきました！！ ありがとうございました！！ 非常に勉強になります！！

その他の回答 (1)

  • fujillin
  • ベストアンサー率61% (1594/2576)
回答No.1

よくわかってないのに、失礼ですが 同じプロセス内で2つのブックを同時には処理できなさそうな・・・ それぞれを別のエクセルで立上げれば、可能ではないのでしょうか？

Ulswarpi
質問者

補足

回答ありがとうございます。 Excel.Application オブジェクトとWorkbook オブジェクト を２セット使用して、データの貼付等処理を行い、 それぞれ保存することは出来たのですが、 保存せずにプレビューをする場合、 1Bookずつしか出来ずに困っています。。 1つのBookをプレビュー中は、Handl(?)がVB側に戻ってこないのです。。

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

関連するQ&A

  • ブラウザ上でＥＸＣＥＬの印刷プレビューをする方法は？

    通常、エクセルで「印刷プレビュー」をする場合、ツールバーの「印刷プレビュー」を選択するか、ＶＢＡマクロで"ActiveSheet.PrintPreview"を組み込んでも行うことができますが、ブラウザ上で開いたエクセルの印刷プレビューを行う方法を教えて下さい。

  • VB.NETでのExcelの印刷について

    環境：XP-Pro 　VisualStudio.NET2003 VB.NET VBAについて。 【１】VB.NETを使ってExcelを表示しないで印刷を行います。 その時に印刷用紙を横にしたいのですが、方法がわかりません。 Excel.Worksheet.Range("A1:N9").Orientation = 例:xlLandscapeなどで 試したのですが、うまくできませんでした。 どなたかご存知でしたら教えて頂けませんか？ 【２】それと印刷時にExcelを表示させずに、プレビューを出したいのですが、 PrintPreview()をプログラムに追加したらプレビューが表示されずに 固まってしまいます。 引数などが必要ですか？

  • エクセルのマクロで印刷プレビューを閉じる方法

    印刷プレビューをだすなら PrintPreviewでわかるのですが、表示されたプレビュー画面を、自分で「閉じる」または「印刷」ボタンを押さなくとも閉じるにはどう書けばいいのでしょうか？

  • EXCELの印刷プレビュー

    VC6　EXCELオートメーションにてEXCELシートを操作しています。 シートが複数あるブックに対して、印刷プレビューを行うと、アクティブとなっているシートのみしかプレビューできません。 ブック全体のプレビューを行いたいのですが方法がわかりません ----- ソースコード ----- _WorkbookPtr pBook = m_pBooks->Open((_bstr_t)OutFile); m_pExcel->PutVisible( 0, TRUE ); pBook->PrintPreview(); 一応、PrintOutメソッドも使用してみたのですが、引数がわかりませんでした。 開発環境 　VC6 　EXCEL2000 恐れ入りますが、ご教授のほどお願いします。

  • 「印刷プレビューを表示できません」

    一般的な表が入ってるエクセルシートなのですが、 印刷プレビューで表示しようとすると 「印刷プレビューを表示できません」 となってしまうのですが、なぜでしょうか？ 同じブックの別のページならプレビューで表示できます。 「印刷プレビューを表示できません」と表示されるシートの印刷範囲を適当な範囲を設定しても、 クリアしても、「印刷プレビューを表示できません」となります。 エクセル２０１０です。

  • マクロで呼び出したプレビュー画面から印刷できない

    マクロで呼び出したプレビュー画面から印刷できない エクセル2010です。 下記のマクロで呼び出したプレビュー画面から印刷できません。 Sub test() 　　ActiveSheet.PrintPreview End Sub で呼び出したプレビュー画面から、印刷するために一番左上の「印刷」をクリックすると 実行時エラー1004 WorksheetクラスのPrintPreviewメソッドが失敗しました。 となってしまいます。 何がわるいのでしょうか？別のパソコンのエクセル2016では問題なく印刷できます。 頭をかかえています。

  • 【Excel2007】印刷プレビューかどうかを判断したい

    Excel2007を使用しています。 マクロで印刷プレビューかどうかを判断したいのですが、 どのようにプログラムしたら良いでしょうか？ Wordであれば、以下のようにプログラムすれば判断できると思います。 If Application.PrintPreview = False Then Call MsgBox("印刷プレビューでありません。") End If 同じことをExcelでやりたいのですが もし方法をご存知でしたら教えてください。 よろしくお願い致します。

  • [Excel2003]複数のブックの各シートを印刷したい

    お世話になります。 複数のブックの、全シートを印刷する方法はあるのですが 複数ブックの、各シートごとの印刷をする方法が思いつきません。 例えば book1にはsheet1、sheet2があり book2にもsheet1、sheet2があり 全ブック（book1とbook2）の各sheet1（book1のsheet1とbook2のsheet1）を印刷 全ブック（book1とbook2）の各sheet2（book1のsheet2とbook2のsheet2）を印刷 ということは可能なんでしょうか？ 表現がわかりづらかったらすみません。 なにかいいお知恵があれば、教えていただけるとありがたいです。 どうぞよろしくお願い致します。

  • 印刷プレビュー

    恥かしいほどのパソコン初心者です。 同じような質問があるかと思いますが、よろしくお願いします。 みなさん、教えて下さい。 エクセルで案内文を作成しています。 シートで作成した案内文と、印刷プレビューで見た案内文では、微妙に違っていました。 試しに印刷してみますと、印刷プレビューで表示されたものになり、ずれたままでした。 悪戦苦闘の末、印刷プレビューで希望通りになるようにシートの案内文を調整したら、印刷がうまくできました。 周りの人に聞いてみると、エクセルでは、シートで作成したものとそれを印刷プレビューでみたものでは、違ってくる時があるそうです。 どうも気持ち悪いので両方とも同じにさせようと、調べてみたのですが有効な方法が見つかりませんでした。 エクセルのシートで作成したものと、それを印刷プレビューで見た場合と、なんとか両方とも同じ整った文書にするには、どのようにしたらいいでしょうか？

  • マクロ　印刷及び印刷プレビューについて

    Excelのブックに3つ（「目次」「入力用」「出力用」）のシートを作成しております。 ツールの印刷ボタン又は印刷プレビューボタンを押した時に、その内の一つ（「出力用」）のシートのみを印刷又は表示したいのですが、そのようなことは出来るのでしょうか？ できればマクロの登録をして使うボタン？は使いたくありません。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する