[VB6] Cambiare stampante predefinita di sistema

[pierchi]

Ciao,

ho dato uno sguardo su google, ma non ho trovato un codice che funzionasse.

Sapete come cambiare la stampante predefinita di sistema conoscendo ovviamente il nome della stampante?


grazie

[oregon]

Il primo risultato con google è

http://imar.spaanjaars.com/296/chang...visual-basic-6

[pierchi]

sarà, ma non mi cambia la stampante...
ho creato un form di prova, giusto per provare il codice..

anche inserendo

Dim prt As Printer
For Each prt In Printers
If prt.DeviceName = "prova" Then
Set Printer = prt
Exit For
End If
Next



ho proprio una stampante che si chiama prova. Il risultato non cambia.

è per quello che ho scritto che non ho trovato un codice che andava

[oregon]

A me funziona (con la stampante Microsoft XPS Document Writer) e XP 32.

[pierchi]

Dim w As New WshNetwork
w.SetDefaultPrinter ("prova")
Set w = Nothing

con questo funziona.

Ma ho dovuto nei riferimenti, abilitare
windows script object model.


Adesso, provo il codice nel post sopra, con questo riferimento attivo

[pierchi]

Confermo che non va.

Non saprei :|

[oregon]

Di che stampante si tratta? Perché si chiama "prova" ?

Che versione hai di VB6?

[MItaly]

Uhm, forse c'è un misunderstanding... stiamo parlando di cambiare la stampante predefinita di sistema per l'utente corrente, non ciò a cui l'oggetto Printer fa riferimento nel programma, corretto?

[oregon]

Io intendo il cambio di stampante per la stampa da programma nella sessione corrente, NON intendo cambiare la stampante di default.