Ciao Giuseppe,
ho provato con il seguente codice prima di eseguire la shellexecute, ma continua a stampare sulla stampante predefinita del server... Cosa sbaglio?
Dim WshNetwork As Variant
Dim PrinterPath As String
Set WshNetwork = CreateObject( "WScript.Network" )
PrinterPath = "\\gtm-fx1\DISIOProg-Laser BN" \' Stampante mio ufficio non predefinita sul server
Call WshNetwork.AddWindowsPrinterConnection(PrinterPath)
Call WshNetwork.SetDefaultPrinter(PrinterPath)
Anche se ometto AddWindowsPrinters la situazione non cambia.
Se hai un momento,perfavore, mi dai una mano? Ti ringrazio
Claudia
Claudia
|