WindowsNT3.51 で複数のプリンターが登録されている場合に，プリントマネージャで行うような標準のプリンターを変更する．

API の GetProfileString() を使用してプリンタの情報を取得する．

    Dim RC As Long         '戻り値
    Dim buffer As String   '文字バッファ
    Dim length As long     'バッファの最大文字数

    length = 127
    buffer = String(length, " ")
    RC = GetProfileString("windows", "device", "", buffer, length)
    MsgBox buffer

これでプリンターの値が表示される．（この値が重要）
この値は Printer オブジェクトの値を組み合わせたものと同じらしい．

    Printer.DeviceName & "," & Printer.DriverName & "," & Printer.Port

であれば，標準のプリンターを設定するには，同じく API の WriteProfileString() を使用するだけである．

    WriteProfileString("windows", "device", buffer)

buffer の値は前述の Printer オブジェクトのプロパティを組み合わせ．


標準のプリンタの設定ではなく，アプリケーションで出力先を指定することは Printer オブジェクトや Printers コレクションを使用する．


参照
標準のプリンタ設定