[VB6]: Modificare la stampante predefinita

[Pinco Pallino 2]

io per modificare la stampante predefinita uso:

Dim miaStampante As Printer

For Each miaStampante In Printers
    If miaStampante.DeviceName = "Adobe PDF" Then
        Set Printer = miaStampante
        MsgBox "trovata!"
    Exit For
End If
Next

Il msgbox appare quindi la condizione è True...

Non mi da nessun errore ma allo stesso tempo non succede nulla....

[alka]

Cosa dovrebbe accadere di preciso?

[Pinco Pallino 2]

dobrebbe impostare come stampante predefinita di sistema quella da me scelta.....

Faccio questo perchè voglio creare il pdf di un datareport tramite stampa con Adobe PDF

[LMondi]

Se il problema è scegliere una stampante tra tutte quelle disponibili nel sistema, potresti fare così:

Private Sub Command1_Click()
    Dim prn As Printer
    
    ' Scelta della stampante:
    Combo1.Clear
    For Each prn In Printers
        Combo1.AddItem prn.DeviceName
    Next
    
    Combo1.Text = "Seleziona la stampante"
    ' Visualizza la stampante predefinita :
    Label1.Caption = "La stampante predefinita è: " + vbCrLf + Printer.DeviceName

End Sub
' Scelta della stampante:
Private Sub Combo1_Click()
    
    Dim prn As Printer
    For Each prn In Printers
        If prn.DeviceName = Combo1.Text Then
            Set Printer = prn
            Exit For
        End If
    Next
    ' Scrive il nome della stampante scelta nella Lbl2:
    Label2 = "La stampante scelta é: " + vbCrLf + Printer.DeviceName
End Sub

[Pinco Pallino 2]

scusa e non è la stessa cosa che ho fatto io? Solo che invece della combobox lo inserisco io nel codice il nome della stampante da scegliere...?

[LMondi]

Bhe direi che sono solo parenti prossimi.
Il codice che ho postato evidenzia le stampanti installate nel SO, consentendo poi una scelta.
Comunque se il problema non è questo, non ho proprio capito cosa cerchi.

[Pinco Pallino 2]

tu hai usato la combobox per passare il nome della stampante:

Private Sub Combo1_Click()
    
    Dim prn As Printer
    For Each prn In Printers
        If prn.DeviceName = Combo1.Text Then
            Set Printer = prn
            Exit For
        End If
    Next

Io ho usato una stringa scritta a mano:

Private Sub Combo1_Click()
    
    Dim prn As Printer
    For Each prn In Printers
        If prn.DeviceName = "Adobe PDF"Then
            Set Printer = prn
            Exit For
        End If
    Next

Ma il codice per settare la stampante è sempre lo stesso! Credo che il problema sia che anche se l'oggetto printer di default è impostato sulla stampante predefinita non avviene lo stesso al contrario....ovvero se modifico l'oggetto printer non modifico la stampante predefinita di sistema!

quindi col codice che abbiamo noi assegnamo a printer la stampante desiderata ma la predefinita di sistema resta sempre la stessa!

Mettiamo il caso che io non voglia stampare nulla ma solo cambiare la stampante predefinita cliccando un tasto...che dici che conviene fare'?

[Jupy64]

Ciao, prova a vedere qui:
http://support.microsoft.com/default...%3Bit%3B266767

[LMondi]

....ovvero se modifico l'oggetto printer non modifico la stampante predefinita di sistema!

Ora ho capito cosa vuoi ottenere - modificare la prn predefinita del SO.
I due codici selezionano correttamente le stampanti, ma non modificano la predefinita.
Mi chiedo, poi, se è coretta un'operazione del genere; personalmente mi seccherebbe moltissimo che un prog. andasse a modificare i settaggi del mio SO.

[Pinco Pallino 2]

Grazie Jupy era quello che cercavo!

Lmondi lo so che non è molto bello ma tanto ho intenzione subito dopo la stampa di risettare la precedente stampante! Il fatto è che col metodo scritto da te (e da me) non funziona....o meglio io devo stampare un datareport di vb6 senza farlo apparire (l'anteprima) quindi uso l'istruzione

 mioReport.PrintReport

e se prima di quello uso il codice detto da te non funziona....continua a usare la predefinita!