[VB6] Impostare stampante predefinita

[marco1970]

Salve a tutti gli amici del forum
vorrei sapere come, da codice, posso impostare una stampante come predefinita senza usare l'ocx COMMONDIALOG.

Grazie

Marco

[Pieruccio]

ciao a te, dunque:
richiama la sub passando il nome della stampante che vuoi utilizzare come predefinita:
esempio Call SettaStampanteDefault("CANON BJC 5100")

Private Sub SettaStampanteDefault(NomePrn As String)
Dim StampanteDefault As Printer
For Each StampanteDefault In Printers
If Printer.DeviceName = NomePrn Then
Set Printer = StampanteDefault
Exit For
End If
Next
End Sub

ovviamente il nome che immetti deve corrispondere al nome di una stampate installata

bye :mavieni:

[marco1970]

ti ringrazio per il tempo dedicatomi ma in questo modo (che conosco) setto la stampante predefinita solo per la mia applicazione mentre io voglio impostare la stampante predefinita in windows.
In pratica voglio cambiare la stampante predefinita senza passare per le impostazioni di windows ( tasto avvio - impostazioni - stampanti ecc...).
Per il momento sto cercando alcune funzioni nelle api di windows ma nulla ancora.
se hai suggerimenti ki accetto volentieri.

Grazie Marco

[Pieruccio]

puoi creare un piccolo eseguibile che poi metti in Esecuzione automatica che verrà eseguito ad ogni avvio.

[marco1970]

non voglio creare un exe ed eseguirlo all'apertura di windows ma gestirlo da software.

Grazi e Marco