Bonjour à tous
Eternel débutant, je cherche à percer le mystère de l'impression sous VB.NET.
J'ai trouvé sur Développez.com un tutoriel de J-M RABILLOUD intitulé "Imprimer avec VB.NET (2005)", et dans ce tutoriel le programme ci-après :
L'exécution affiche bien une fenêtre semblable à celle qui est indiquée dans le tutoriel, mais il manque le bouton "Imprimante".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Imports System.Drawing.Printing Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Doc As New PrintDocument Dim PageSetup As New PageSetupDialog With PageSetup .Document = Doc .ShowDialog(Me) End With With Me.TextBox1 .Text = Doc.PrinterSettings.PrinterName & vbCrLf .Text = .Text & "Nb de copies : " & Doc.PrinterSettings.Copies.ToString & vbCrLf .Text = .Text & "Assemblées : " & Doc.PrinterSettings.Collate.ToString & vbCrLf .Text = .Text & "Couleur : " & Doc.DefaultPageSettings.Color.ToString And vbCrLf .Text = .Text & "Orientation : " & IIf(Doc.DefaultPageSettings.Landscape.ToString, "Paysage", "Portrait") & vbCrLf .Text = .Text & "Format : " & Doc.DefaultPageSettings.PaperSize.ToString & vbCrLf End With End Sub End Class
Je travaille avec la version 2017 Community et l'exemple de M. Rabilloud est en 2005, La discordance est-elle due à la différence de version, ou y-a t-il un supplément de codage à apporter ?
Merci d'être indulgent envers le bidouilleur solitaire de 84 berges que je suis, et merci d'avance pour l'éclairage que vous pourrez m'apporter.
PS Merci aussi à Développez.com qui est un trésor d'informations.
Partager