1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Séléction des imprimantes dans la mise en page [Résolu]

Signaler
Messages postés
48
Date d'inscription
mercredi 21 mai 2014
Statut
Membre
Dernière intervention
30 mai 2018
 -
Messages postés
48
Date d'inscription
mercredi 21 mai 2014
Statut
Membre
Dernière intervention
30 mai 2018
 -
Bonjour tout le monde,



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).

Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.
Jordane45


Merci d'avance

3 réponses

Réponse 1 / 3
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
 544
Bonjour
c'est quoi dlgpgsetup?

Réponse 2 / 3
Messages postés
48
Date d'inscription
mercredi 21 mai 2014
Statut
Membre
Dernière intervention
30 mai 2018
c'est un contrôle pageSetupDialog que j'ai ajouté au formulaire
Réponse 3 / 3
Messages postés
7377
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 mai 2021
 122
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
Afficher les 6 commentaires
Signaler
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
 544
Tu ne peux c’est un formulaire windows.
Si tu veux un formulaire avec ce combobox, à toi de l'écrire entièrement
Signaler
Messages postés
7377
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 mai 2021
 122 >
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
Salut Whismeril,

cela existe d'une autre manière avec un bouton supplémentaire, mais le code donné ne fonctionne pas!

Voir page 12 du PDF:

http://docplayer.fr/13029621-Imprimer-avec-vb-net-2005-1-introduction-3-concepts-generaux-3.html
Signaler
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
 544 >
Messages postés
7377
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 mai 2021
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.
Signaler
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
 544 >
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
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


Source
https://social.msdn.microsoft.com/Forums/windows/en-US/29b17b85-3c33-4eb1-9a8c-84f1360f7347/pagesetupdialogallowprinter-true-not-work-in-windows-vista?forum=winforms
Signaler
Messages postés
48
Date d'inscription
mercredi 21 mai 2014
Statut
Membre
Dernière intervention
30 mai 2018
 >
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
C'est ce que j'ai fait au final. Je l'ai écrit entièrement.
Merci beaucoup pour vos réponses.
Répondre Posez votre question