Séléction des imprimantes dans la mise en page [Résolu]
hanadakia38
Messages postés mercredi 21 mai 2014Date d'inscription
8 février 2018
Dernière intervention
-
13 nov. 2017 à 17:15 - Dernière réponse : hanadakia38
Messages postés mercredi 21 mai 2014Date d'inscription
8 février 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).
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 Pivert5065
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
13 avril 2018
Dernière intervention
>
Whismeril11406
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
19 avril 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!
Whismeril11406
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
19 avril 2018
Dernière intervention
>
cs_Le Pivert5065
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
13 avril 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.
Whismeril11406
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
19 avril 2018
Dernière intervention
>
Whismeril11406
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
19 avril 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
hanadakia38
Messages postés mercredi 21 mai 2014Date d'inscription
8 février 2018
Dernière intervention
>
Whismeril11406
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
19 avril 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.
