プリンタの数を返すFunction - 素人がExcelVBAによる「一人働き方改革」に挑むブログ

プリンタの数を調べるFunction

Application.ActivePrinterにプリンタ名をセットしたくても、プリンタ名の後ろにくっついている「on NeXX:」の部分がわからないとセットできない。

同じプリンタに接続していても、端末ごとに「NeXX:」の部分が異なるので困ることになる。

そこで、「XX」の部分を「00」からインクリメントしてプリンタ名にヒットするかどうか確認することを考えた。

そのためには、ループ回数を決めるためにインストールされているプリンタの数を取得しないといけない。

プリンタの数自体は、

akashi-keirin.hatenablog.com

このときのように、Shell.Applicationオブジェクトを取得したら簡単に取得できるので、Shell.Applicationオブジェクトをラップしたメソッドを作った。

コード

前回

akashi-keirin.hatenablog.com

のisExsistPrinterメソッドとともに、クラスモジュールに書いた。オブジェクト名は「InstalledPrinter」とし、PredeclaredIdをTrueにして、Singleton的に運用することにした。

リスト１　クラスモジュール

Public Function getPrintersCount() As Long
  Dim shellApp As New Shell
  getPrintersCount = shellApp.Namespace(ssfPRINTERS).Items.Count
  Set shellApp = Nothing
End Function

参照設定で「Microsoft Shell Controls And Automation」にチェックを入れているからなのか、「Microsoft Scripting Runtime」にチェックを入れているからなのか、CreateObjectを使わなくてもShellオブジェクトをインスタンス化することができる。

あとは、NameSpaceメソッドでFolderオブジェクトを取得し、Items.Countプロパティでインストールされているプリンタの数が取得できる。