tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル エクセルでのプリンタ設定ダイアログについて
投稿日: 2009/03/01(Sun) 05:06
投稿者epsilon
エクセルファイルをVBから呼出し、プリンタのプロパティを表示させてプリンタドライ
バの設定を出来るようにと、このサイトを参考にさせていただいて、下記のように組んで
見たのですが、xlApp.Application.Dialogs(xlDialogPrinterSetup).Show で表示されるプ
リンタ設定のダイアログ(プリンタ一覧)がフォーカスを失うとタイムアウトの様な形で
下記のメッセージボックスが表示され、切り替えも再試行も聞かない状態になってしまし
ます。
対象方法をご存知の方がいらっしゃいましたら、ご指導いただけませんでしょうか。
よろしくお願いいたします。

-----------------------------------------------------------------
「コンポーネントを使用できません」
他のアプリケーションがサーバーを使用しているため、この操作を完了
出来ません。操作を続けるには「切り替え」を選択して、他の
アプリケーションを終了してください。
 【切り替え(S)】 【再試行(R)】 【キャンセル】←無効
-----------------------------------------------------------------

Dim xlApp       As Excel.Application
Dim xlBook      As Excel.Workbook
Dim xlSheet     As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(App.Path & "\Faxform.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.Application.ActivePrinter = PrinterDv
xlApp.Application.Dialogs(xlDialogPrinterSetup).Show
xlBook.Save
Set xlSheet = Nothing
xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。