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"
|