Test instalace tiskárny

Funkce:
Function PrinterIsInstalled() As Boolean 

   Dim dummy As String 

   On Error Resume Next 

   dummy = Printer.DeviceName 

   If Err.Number Then 
      PrinterIsInstalled = False 
   Else 
      PrinterIsInstalled = True 
   End If 

End Function

Zpět

Autor: The Bozena