[リストへもどる]
一括表示

投稿時間:2004/01/30(Fri) 12:05
投稿者名:ひろ
Eメール:
URL :
タイトル:
印刷プレビュー表示中処理について
VBのフォームのボタン押下時、プレビュー画面を表示しているのですが、
それが表示されている時、その裏のVBのフォームをクリックまたはキーボードのキーを押下すると、
「コンポーネントを使用できません」というエラーメッセージが出ます。
プレビュー画面を閉じてからフォームをクリックすると、エラーは発生しません。
プレビュー画面表示中でもVBの画面を操作する方法は無いでしょうか?

ちなみにソースは

    Set xlsApp = New Excel.Application
    Set xlsSheet = xlsApp.Workbooks.Open("C:\TEMP\XLS\一覧表.XLS").Worksheets("一覧表")
-------------------------------
〜〜〜各処理
-------------------------------
      
    frm1.Enabled = False
        .PrintPreview      ’プレビュー表示
        frm2.Enabled = True




宜しくお願いします。

開発環境は、WINDOWS2000、VB6、Excel2000です。

投稿時間:2004/01/30(Fri) 13:04
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: 印刷プレビュー表示中処理について
前回も書いたと思うのですが、Excelを単独で使用した場合でも、Excelの印刷プレビューを
表示している間は他のExcelの操作が出来ないようになっているかと思うのですが、従って
VBから操作しても同様に印刷プレビューの操作が終了されるまで、使えないのかと思います。
どうしてもVBを動かしたければ、印刷プレビューの表示のプログラムとVBでの操作のプログラムを
別に動かす必要があるかと思います。
本来はExcel同様に印刷プレビューを表示している間はVBのFormを非表示にすべきかと思います。
従って前回の時に下記のようなコードを投稿したと思うのですが。
Private Sub Command2_Click()
    Form1.Visible = False
    xlApp.ActiveWindow.SelectedSheets.PrintPreview
    Form1.Visible = True
End Sub

投稿時間:2004/01/30(Fri) 13:06
投稿者名:ひろ
Eメール:
URL :
タイトル:
Re^2: 印刷プレビュー表示中処理について
やはりその方法しかないんですね。
とりあえずその方法でやって見ます。
ありがとうございました。

> 前回も書いたと思うのですが、Excelを単独で使用した場合でも、Excelの印刷プレビューを
> 表示している間は他のExcelの操作が出来ないようになっているかと思うのですが、従って
> VBから操作しても同様に印刷プレビューの操作が終了されるまで、使えないのかと思います。
> どうしてもVBを動かしたければ、印刷プレビューの表示のプログラムとVBでの操作のプログラムを
> 別に動かす必要があるかと思います。
> 本来はExcel同様に印刷プレビューを表示している間はVBのFormを非表示にすべきかと思います。
> 従って前回の時に下記のようなコードを投稿したと思うのですが。
> Private Sub Command2_Click()
>     Form1.Visible = False
>     xlApp.ActiveWindow.SelectedSheets.PrintPreview
>     Form1.Visible = True
> End Sub