Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70304 / 76807

←次へ　｜　前へ→


	【11013】プリンタについて

ふきゅ - 04/2/24(火) 10:41 -


	引用なし

	パスワード

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

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

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

0 hits

▼

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

≪