標準のプリンタ設定

Visual Basic 4.0 であればプリンターコレクションからプリンターの情報を取得可能である．
以下の例は通常のプリンタに設定する．

Function ChgPrtPort(PortName as String) as integer
   'PortNameは設定を希望するポート名です

   Dim Prt As Object
   ChgPrtPort = -1
   For Each Prt In Printers        'ﾌﾟﾘﾝﾀｰｺﾚｸｼｮﾝによりすべてのﾌﾟﾘﾝﾀｰを列挙
      If Prt.Port = PortName Then  '希望するプリンタか？
          Set Printer = Prt        '通常プリンタに設定
          ChgPrtPort = 0           '変更作業成功
          Exit For
      End If
   Next Prt

End Function

参照
WindowsNTの標準のプリンタ設定
通常使うプリンタの変更