ポート名（？）付きのプリンタ名を返すFunction - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
ポート名（？）付きのプリンタ名を返すFunction 前回、 akashi-keirin.hatenablog.com 前々回 akashi-keirin.hatenablog.com の集大成。 コード プリンタの名前を渡したら、ポート名（？）付きのプリンタ名を返すFunctionを作ってみた。 前回同様、オブジェクト名は「InstalledPrinter」とし、PredeclaredIdをTrueにしている。 リスト１ クラスモジュール Public Function getPrinterNameWithPort( _ ByVal printerName As String) As String getPrinterNameWithPort = "" Dim printersCount As Long printersCount = getPrintersCount Dim tmp A
プリンタの数を返すFunction - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
プリンタの数を調べるFunction Application.ActivePrinterにプリンタ名をセットしたくても、プリンタ名の後ろにくっついている「on NeXX:」の部分がわからないとセットできない。 同じプリンタに接続していても、端末ごとに「NeXX:」の部分が異なるので困ることになる。 そこで、「XX」の部分を「00」からインクリメントしてプリンタ名にヒットするかどうか確認することを考えた。 そのためには、ループ回数を決めるためにインストールされているプリンタの数を取得しないといけない。 プリンタの数自体は、 akashi-keirin.hatenablog.com このときのように、Shell.Applicationオブジェクトを取得したら簡単に取得できるので、Shell.Applicationオブジェクトをラップしたメソッドを作った。 コード 前回 akashi-keiri
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
VBScript で Excel にアドインを自動でインストール/アンインストールする方法: ある SE のつぶやき
