Discussion :

[alexbigfoug]

Bonjour !

Je sais que cette question a déjà été posé, j'ai trouvé quelques solutions mais cela n'a pas été une grande réussite pour moi.
Bon tout est dans le titre. Je travaille sous Visual Studio 2008.

Voici le code que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim prt As Printer
 
For Each prt In Application.Printers
Me.lstImprimantes.AddItem(prt.DeviceName)
Next

Mais malheureusement j'ai une erreur sur Application, je suppose que je dois importer quelque chose pour pouvoir utiliser Application.printer...

Si vous avez d'autres exmple de code je suis aussi preneur

Bonne journée et merci d'avance de votre aide !!

[Shadam]

rechercher

[alexbigfoug]

Merci Shadam !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Récupération de la liste des imprimantes
        Dim printers As System.Drawing.Printing.PrinterSettings.StringCollection
        printers = System.Drawing.Printing.PrinterSettings.InstalledPrinters()
        For x As Integer = 0 To printers.Count - 1
            Liste_imprimante.Items.Add(printers(x))
        Next
 
        'recherche l'imprimante par défaut et la sélectionne
        Dim PD As New System.Drawing.Printing.PrintDocument
        Liste_imprimante.SelectedItem = PD.DefaultPageSettings.PrinterSettings.PrinterName()

Jusque là tout va bien, cela fonctionne.

La réponse à mon sujet est là

Par contre l'autre partie du code m'intéresse également.
Définir l'imprimante par défaut!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim pd As New System.Drawing.Printing.PrintDocument
        pd.PrinterSettings.PrinterName = Liste_imprimante.SelectedItem

Il n'y a pas d'erreur dans l'execution mais en revanche, l'imprimante par défaut ne change pas...

[Shadam]

Bah je ne sais pas trop quoi te dire j'ai juste trouvé ce thread sur le site mais je ne l'ai jamais pratiqué ^^

Quand je dois faire imprimer quelque chose je me sers juste d'un PrintDialog et l'utilisateur se débrouille avec ça ^^

[alexbigfoug]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim net
        net = CreateObject("WScript.Network")
        net.SetDefaultPrinter(Liste_imprimante.SelectedItem)

Ceci fonctionne!