Zobrazení dialogu pro přidání tiskárny

Postup:
' Pracuje pouze pod Windows NT a 2000
Private Declare Function ConnectToPrinterDlg Lib "winspool.drv" _
   (ByVal hWnd As Long, ByVal flags As Long) As Long

' 1. argument je ukazatel na aktuální formulář
' 2. argument je rezervován a musí být nula
ConnectToPrinter Me.hWnd, 0

Pod Windows 9x není tato API podporována a nejjednodušší cesta je použít volání Průvodce pro připojení k tiskárně s pomocí shellu:
' Pracuje pod Windows 95, 98, NT a 2000
Shell "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter"

Zpět

Autor: The Bozena