Test instalace tiskárny
On Error Resume Next
dummy = Printer.DeviceName
If Err.Number Then PrinterIsInstalled = False Else PrinterIsInstalled = True End If
End Function
Zpět