Discordance d'affichage avec SHOWDIALOG
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 :
Code:
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 |
L'exécution affiche bien une fenêtre semblable à celle qui est indiquée dans le tutoriel, mais il manque le bouton "Imprimante".
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. :P :lol:
PS Merci aussi à Développez.com qui est un trésor d'informations. :D ;)
DISCORDANCE D'AFFICHAGE AVEC SHOWGIALOG
Bonjour clementmarcotte,
Merci pour cette réponse rapide. :D :D
Oui, il s'agit bien de la même boîte (Je ne l'avais pas jointe à mon message, car je ne sais pas comment faire pour la copier !)
Après réflexion, il me semble que la discordance est due à la différence de version, je viens d'avoir l'idée de remplacer PageSetupDialog par PrintDialog, et là, on obtient une boîte qui donne l'accès à l'imprimante et à ses caractéristiques, mais pas celles de la page, ce qui me paraît normal. (Par contre, je ne sais toujours pas comment copier la boîte, je vais chercher pour ma prochaine discussion). :roll:
La voie pour obtenir l'accès à l'imprimante et à la page semble donc passer par PageSetupDialog plus PrintDialog et, comme tu me l'indiques, par PrintPreviewDialog.
Ton indication m'a éclairé, je vais creuser de ce côté là, ça va m'occuper pour quelques jours ! :zoubi:
Un grand merci pour intérêt que tu as porté à mon cas, ça rassure de voir qu'on n'est pas seul ! ;)
Bien cordialement
jedry
2 pièce(s) jointe(s)
DISCORDANCE D'AFFICHAGE AVEC SHOWGIALOG
Bonjour,
Je suis aux anges, grâce à tes indications, j'ai réussi !
Pour information, voilà la première boîte obtenue avec PageSetupDialog
Pièce jointe 358916
Et la seconde, avec PrintDialog
Pièce jointe 358923
D'autre part, je m'applique à démystifier PrintPreviewDialog
Merci encore :D:P:lol:
Bien cordialement
jedry