パソコンの小技・備忘録


トップページ > 小技一覧(Excel) > ExcelのVBAで、パソコンのプリンタ一覧を取得したい。

ExcelのVBAで、パソコンのプリンタ一覧を取得したい。

ExcelのVBAで、パソコンのプリンタ一覧を取得する方法です。

プリンタを指定した印刷フォームのようなものを作る場合などに活用できると思います。

'変数の定義
Dim tempShell As Object
Dim tempObj As Object
Dim intRow As Integer

'オブジェクトの設定と繰り返し処理
Set tempShell = CreateObject("Shell.Application")
intRow = 1
For Each tempObj In tempShell.NameSpace(4).Items
  If intRow > 1 Then
    '取得したプリンタ名をセルに書き込む
    Cells(intRow, 1) = tempObj.Name
  End If
  intRow = intRow + 1
Next

Set tempShell = Nothing

以上の記述で、プリンタの一覧を取得することができます。
例では、セルに書き込んで言っていますが、コンボボックスへ追加していくなど、いろいろな使い方があると思います。

トップページに戻る

パソコンの小技・備忘録トップページ(http://pckowaza.web.fc2.com/)を表示

※更新履歴などを掲載していますので、お気に入りはぜひトップページでお願いします!

サイト内検索

 Googleでサイト内検索

小技カテゴリー

カウンタ

メール送信

 ご意見・相互リンク募集中!
意見・相互リンクメールを送信!
inserted by FC2 system