VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/06/08(Wed) 17:21 |
| 投稿者 | ： コラボ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Excelのプレビュ動作 |
いつも問題解決に利用させていただいてます。
さて、早々ですがExcelのプレビュ動作についてご教授下さい。
以下のような段取りでExcelを非表示で立ち上げ
必要なデータ（セルに数値を代入）を転送し、
プレビュを表示させています。
私の環境（XP+Excel2000）ではプレビュ画面が立ち上がるのですが
Excel2002ではタスクバー？（スタートボタンの並びに表示されるヤツ）
が点滅するだけでプレビュ画面が立ち上がりません。
（点滅しているところをクリックすればプレビュは立ち上がります。）
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'Excelオブジェクトの作成
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(mTempExcelFile)
Set xlSheet = xlBook.Worksheets(1)
'Excelは非表示
xlApp.Visible = False
'以下WorkSheetに書込
'中略
'転送を終了した旨を伝えるダイアログを表示
frmEffect.Show 1
'ダイアログの終了ボタン(Unload.me)でここに戻り以下を実行
'Excelを表示してプレビュ
xlApp.Visible = True
xlApp.ActiveWindow.SelectedSheets.PrintPreview
.PrintPreviewの使い方に問題があるのでしょうか？
VB6(SP6),参照設定はExcel9.olbを使っています。
ちなみに、上記の方法ではWorkSheetが見えてから
プレビュ画面が表示されますが、一発でプレビュ画面を
表示させる方法は有るのでしょうか？
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）