WindowsVista WindowsXP(SP2) VB2005(EE) Framework2.0 別途、必要によりComboBox1にプリンターの一覧を取得しておいて下さい 必要により、プロジェクト→参照の追加→.NET→で System.Management を追加しておいて下さい 1.通常使うプリンターを取得(簡易版) Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click '通常使うプリンターを取得 Dim pd As New System.Drawing.Printing.PageSettings Debug.WriteLine(pd.PrinterSettings.PrinterName) '結果