|
General |
| 6.66 Gestire la stampante predefinita |
| Carlo Costarella, Lorenzo Coronati |
|
Il db contiene un modulo con le funzioni necessarie per leggere da win.ini il nome della stampante predefinita e per cambiare la stessa. C'e' inoltre una form gia' pronta all'uso che permette di scegliere e impostare come predefinita una fra le stampanti installate. Si consiglia di impostare la var globale "DefaultPrinter" all'apertura del vostro mdb e di reimpostarla all'uscita con la sub "ResetDefaultPrinter". Utilizzo con Sistema Operativo Windows 2000 e successivi E' stato rilevato che con un sistema operativo Windows 2000 o successivo la funzione SetDefaultPrinter utilizzata nel database di esempio allegato a questa FAQ non sempre funziona correttamente, si consiglia pertanto di sostituirla con il seguente codice VBA:
Public Sub SetDefaultPrinter(s As String)
'imposta la stampante passata come argomento a predefinita
On Error GoTo Esci
Dim WshNetwork As Object
If IsNull(s) Or s = "" Then Exit Sub
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter (s)
Set WshNetwork = Nothing
DoEvents
Esci:
End Sub
Download: |
