Séléction des imprimantes dans la mise en page [Résolu]
hanadakia48
Messages postés mercredi 21 mai 2014Date d'inscription
30 mai 2018
Dernière intervention
-
13 nov. 2017 à 17:15 - Dernière réponse : hanadakia48
Messages postés mercredi 21 mai 2014Date d'inscription
30 mai 2018
Dernière intervention
- 14 nov. 2017 à 15:15
Voici le code qui m'affiche ce formulaire. Maintenant je veux ajouter le combo qui contient les noms des imprimantes
Dim pgprint As PageSettings
pgprint = New PageSettings()
Dim configprint As PrinterSettings
configprint = New PrinterSettings()
dlgpgsetup.PageSettings() = pgprint
dlgpgsetup.AllowPrinter = True
dlgpgsetup.PrinterSettings = configprint
dlgpgsetup.ShowDialog()
EDIT : Ajout des balises de code (la coloration syntaxique).
cs_Le Pivert5454
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
20 octobre 2018
Dernière intervention -13 nov. 2017 à 18:07
0
Merci
Bonjour,
comme ceci:
Imports System.Drawing.Printing
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
ComboBox1.Items.Add(PrinterSettings.InstalledPrinters.Item(i))
ComboBox1.SelectedIndex = 0
Next
End Sub
End Class
cs_Le Pivert5454
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
20 octobre 2018
Dernière intervention
>
Whismeril12122
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
21 octobre 2018
Dernière intervention -13 nov. 2017 à 19:54
Salut Whismeril,
cela existe d'une autre manière avec un bouton supplémentaire, mais le code donné ne fonctionne pas!
Whismeril12122
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
21 octobre 2018
Dernière intervention
>
cs_Le Pivert5454
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
20 octobre 2018
Dernière intervention -13 nov. 2017 à 20:31
Oui, mais on reste bien dans les formulaires de windows.
Pour le code, c'est du VB 2005, ça a du changer depuis.
J'y jette un oeil.
Whismeril12122
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
21 octobre 2018
Dernière intervention
>
Whismeril12122
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
21 octobre 2018
Dernière intervention -13 nov. 2017 à 20:53
Il semble qu'à l'époque de la sortie de Vista, les développeurs Microsoft aient décidé que ce formulaire ne donnait plus accès au choix des imprimantes.
Il faut utiliser un PrintDialog
Dim Doc As New PrintDocument
Dim PageSetup As New PrintDialog
With PageSetup
.AllowSomePages = True
.Document = Doc
.ShowDialog()
End With
With Me.TextBox6
.Text = Doc.PrinterSettings.PrinterName & Environment.NewLine
.Text = .Text & "Nb de copies : " & Doc.PrinterSettings.Copies.ToString & Environment.NewLine
.Text = .Text & "Assemblées : " & Doc.PrinterSettings.Collate.ToString & Environment.NewLine
.Text = .Text & "Couleur : " & Doc.DefaultPageSettings.Color.ToString & Environment.NewLine
.Text = .Text & "Orientation : " & If(Doc.DefaultPageSettings.Landscape, "Paysage", "Portrait") & Environment.NewLine
.Text = .Text & "Format : " & Doc.DefaultPageSettings.PaperSize.ToString & Environment.NewLine
End With
hanadakia48
Messages postés mercredi 21 mai 2014Date d'inscription
30 mai 2018
Dernière intervention
>
Whismeril12122
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
21 octobre 2018
Dernière intervention -14 nov. 2017 à 15:15
C'est ce que j'ai fait au final. Je l'ai écrit entièrement.
Merci beaucoup pour vos réponses.
