Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70231 / 76734 ←次へ | 前へ→

【11013】プリンタについて
質問  ふきゅ  - 04/2/24(火) 10:41 -

引用なし
パスワード
   APIを使って使えるプリンタを取得して、リストボックスで設定したり
設定の中のプリンタを取ってきてメッセージBOXで使用するプリンタを
せっていする例はあるのですが・・・

私のやりたい事はAPIを使用せずに
アクティブプリンタをリストに表示して、なおかつマシンに設定してある
プリンタをリストボックスに表示してその中から使うプリンタを設定する事です。
OS/IEが変わっても対応できるように無理に文字列の編集は
したくないのですが可能でしょうか?またその際に、アクティブプリンタ名と
リストに出す使用できるプリンタは名前を同じフォーマットにしたいのですが・・
いっぱい欲張って無理難題を言っていると思いますが、よろしく
お願いします。

問題点
Set Win = CreateObject("Shell.Application")
For Each objItem In Win.NameSpace(4).items
  If Left(objItem.Name, 4) <> "プリンタ" Then
   Debug.Print objItem.Name・・・1
  End If
Next
Debug.Print Application.ActivePrinter・・・2
以上の取得だと1と2で名前が違ってしまうという事です。

0 hits

【11013】プリンタについて ふきゅ 04/2/24(火) 10:41 質問
【11014】Re:プリンタについて 名無しの笛の踊り 04/2/24(火) 11:54 回答
【11015】Re:プリンタについて ふきゅ 04/2/24(火) 12:39 発言
【11039】Re:プリンタについて りん 04/2/24(火) 19:23 回答
【11051】Re:プリンタについて ふきゅ 04/2/25(水) 13:33 発言
【11060】Re:プリンタについて りん 04/2/25(水) 21:18 発言
【11188】Re:プリンタについて ふきゅ 04/3/2(火) 13:29 発言

70231 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free