プリンターがパソコンにインストールされているかどうかを調べる方法

◆概要

このページは、Visual Basic 6.0のVisual Basicで、プリンターがパソコンにインストールされているかどうかを調べる方法について記載しています。


DeviceName プロパティはデバイス名を取得します。これを利用して、DeviceName を取得したときにエラーがなければ、プリンターがパソコンにインストールされていることになります。

◆Sample code

次の例は、パソコンにプリンターがインストールされているときはTrue、インストールされていないときはFalseをメッセージボックスに表示します。 

Public Function IsPrinterInstalled() As Boolean
  On Error Resume Next
  Dim strDummy As String
  strDummy = Printer.DeviceName

  If Err.Number Then
      IsPrinterInstalled = False
  Else
      IsPrinterInstalled = True
  End If

End Function

Private Sub Command1_Click()
    'インストールされている場合には[True]、
    'そうでないときは[Flase]をMsgBoxで表示
    MsgBox IsPrinterInstalled()
End Sub
　　
▼ページトップへ