Test instalace tiskárny

Funkce:

Function PrinterIsInstalled() As Boolean
    Dim dummy As String

    On Error Resume Next
    dummy = Printer.DeviceName
    
    If Err.Number Then
        MsgBox "Ve vašem systému není nainstalována tiskárna." & vbCrLf & _
            "Pro instalaci a nastavení výchozí tiskárny zvolte " & _
            "Nastavení / Tiskárny z nabídky Start a poté dvakrát klikněte " & _
            "na ikonu Přidat tiskárnu.", vbExclamation, _
            "Chyba tiskárny"
        PrinterIsInstalled = False
    Else
        PrinterIsInstalled = True
    End If
End Function

Zpět

Autor: The Bozena