Sección de códigos , trucos y ejemplos para visual basic

392 - Saber si hay una impresora instalada

Saber si hay una impresora instalada en el sistema

Ejemplo simple para averiguar si en el sistema hay alguna impresora instalada.

La función PrinterInstalled retorna True/false. Si retorna False, pregunta si se quiere instalar una, llamando al asistente de de windows para agregar una impresora, mediante el Shell

Código fuente en el formulario

Option Explicit ' función que retorna verdadero si hay una impresora instalada ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function PrinterInstalled() As Boolean On Error Resume Next Dim Impresora As String Impresora = Printer.DeviceName If Err.Number Then PrinterInstalled = False Else PrinterInstalled = True End If On Error GoTo 0 End Function Private Sub Command1_Click() ' verifica si hay una impresora instalada If PrinterInstalled Then MsgBox "Hay una impresora instalada ", vbInformation Else If MsgBox("No Hay una impresora instalada. ¿ Desea " & _ "abrir el cuadro de diálogo de windows para " & _ "instalar una impresora ? ", _ vbInformation + vbYesNo) = vbYes Then ' cuadro de diálogo de windows para instalar una nueva imp. Shell "rundll32 shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus End If End If End Sub Private Sub Form_Load() Command1.Caption = " Comprobar " End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Otros ejemplos relacionados para imprimir

Recursos Visual basic.NET - enlaces relacionados

Obtener las impresoras instaladas en VB.NET

Buscar en Recursos vb