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

質問

VB6.0にてエクセルのブックを２つ作成し、
最後にそのBook1とBook2を同時に印刷プレビューで表示させたいのですが

Book1.Worksheets.PrintPreview
Book2.Worksheets.PrintPreview

にするとBook1の印刷プレビューを閉じないと
Book2の印刷プレビューが表示されません。

Book1とBook2を同時にプレビュー表示させる方法を
どなたかご存知でしたら教えてください。
よろしくお願いします。

回答No.2

redfox63 · ベストアンサー

Excelのインスタンスを2つ準備して

oXL1.Visible = True
Book1.Activate
DoEvents
Sendkeys "%fv"
doEvents

oXL2.Visible = True
Book2.Activate
DoEvents
SendKeys "%fv"
といった具合にして見ましょう

お礼

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

回答No.1

fujillin

よくわかってないのに、失礼ですが

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

補足

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