ciao,
io ho usato questo codice trovato sulla sandbox e funziona molto bene..
:yellow_cool.gif:
inserisci questo nella declare
Declare Function SetDefaultPrinter Lib "winspool.drv" Alias
"SetDefaultPrinterA" (Byval pszPrinter As String) As Long
quando devi impostare la stampante usi l\'istruzione
retval = SetDefaultPrinter("NOME_STAMPANTE")
se retval è diverso da 0 allora la stampante esiste e puoi stampare. sulla
sandbox trovi anche il codice che ti permette di consocere la stampante
predefinita attuale e di reimpostarla come tale al termine della procedura.
|