Detectar impresora de matriz de puntos

[eledgarr]

Asi es necesitas un objeto PrintDocument, PrinterSettings.PrinterName te devuelve o establece el nombre de la impresora predeterminada y se me ocurre algo asi:



Dim ImprimirDocumento As New System.Drawing.Printing.PrintDocument
Dim tipodeimpresion As String

Select Case tipodeimpresion
Case "reporteria" 'inyección
If ImprimirDocumento.PrinterSettings.PrinterName = "nombre de la impresora de inyección" Then
Else
MessageBox.Show("Error esta como predeterminada la impresora de punto")
End If
Case "formatos" 'puntos
If ImprimirDocumento.PrinterSettings.PrinterName = "nombre de la impresora de puntos" Then
Else
MessageBox.Show("Error esta como predeterminada la impresora de inyección")
End If
End Select