Discussion :

[thierry007]

Bonjour

Je recherche un peut de doc et exemple de code sur

PrintPreviewDialog
PrintDialog
PrintDocument

Et ma question principale pour continuer mes investiguation serait de savoir
quelle est la méthode pour afficher le printDialog en cliquant sur le bonton print du PrintPreviewDialog

En fait pouvoir achier la boite de dialogue de choix d'umprimante avant ou apres le previewdialog

[Jean-Marie Grave]

Bonjour Thierry007.

Nous nous retrouvons, et ce n'est pas l'effet du hasard.

Vous trouverez ce qui vous intéresse dans Philippe Lasserre pages 689 à 693. Personnellement, j'en ai fait mon miel.

Amicales salutations.

[thierry007]

Ha la oui, re-bonjour

mais le problème c'est que cette doc est en fait a peut de chose prêt la même que chez Crosoft, mais ce que je cherche c'est comment aller de PrintPreviewDialog vers printDialog en cliquant sur le bouton print du PrintPreviewDialog...

En fait quand j'ai vu la preview , pouvoir choisir l'imprimante sur la quelle je souhaite envoyer le document...

[Jean-Marie Grave]

Je vais donc faire comme la fois précédente, vous préparer un petit quelque chose, et vous demander d'attendre un ou deux jours.

À bientôt.

[thierry007]

Bien après qq recheche, je peut ajouter un objet de type button... wouaouw

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 Public WithEvents BtnChoixPrinter As New ToolStripButton
 
 CType(PrintPreviewDialog1.Controls(1), ToolStrip).Items.Add(BtnChoixPrinter)
 
  With BtnChoixPrinter
                  .Image = New Bitmap(My.Application.Info.DirectoryPath & "\prtchoix.png")
                  .ToolTipText = "Choix imprimante"
                  .Text = "Choix Imp."
                  .Width = 110
            End With

Maintenant je souhaite retirer ou rendre invisible le bouton qui fait partie d'origine du controle PrintPreviwDialog

[thierry007]

DAns le même concept , je veux imprimer sur 2 ou plusieurs pages, mais le code ici ,ne fait pas le sut de page , quelqu'un peut m'orienter dans le code ci dessous

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
21
22
23
24
25
26
27
 Private Sub PageDocumentToPrint_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PageDocumentToPrint.PrintPage
            Dim Ligne As Int16
 
            e.Graphics.PageUnit = GraphicsUnit.Millimeter
 
            Ligne = 100
 
            For i = 1 To 70
 
                  e.Graphics.DrawString(TextBox1.Text & " - " & i & " - " & Ligne, PrintFont, Brushes.Black, 100, Ligne)
 
                  Ligne += 4
 
                  If Ligne >= 260 Then
 
                        Ligne = 100
                        e.HasMorePages = True
 
                  Else
 
                        e.HasMorePages = False
 
                  End If
 
            Next
 
      End Sub

[thierry007]

Le but dans mon cas est de pouvoir imprimer des listings ou autre
parfois sur plusieurs centaines de page....
Je regarde a détecter plus ou moins mon bas de page et passer a la page suivante


dans votre code vous appeler chaque fois une page

Par contre pour le premier code c'est a concervé -> merci bien

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
21
22
23
24
25
26
27
 Private Sub PageDocumentToPrint_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PageDocumentToPrint.PrintPage
            Dim Ligne As Int16
 
            e.Graphics.PageUnit = GraphicsUnit.Millimeter
 
            Ligne = 100
 
            For i = 1 To 70
 
                  e.Graphics.DrawString(TextBox1.Text & " - " & i & " - " & Ligne, PrintFont, Brushes.Black, 100, Ligne)
 
                  Ligne += 4
 
                  If Ligne >= 260 Then
 
                        Ligne = 100
                        e.HasMorePages = True
 
                  Else
 
                        e.HasMorePages = False
 
                  End If
 
            Next
 
      End Sub

[/quote]

[Jean-Marie Grave]

Bonjour thierry007.

Je réponds d'abord à la question initiale.

J'ai réalisé pour cela un petit programme qui tient sur un formulaire nommé Accueil, sur lequel j'ai déposé divers contrôles

Classe Button, name = bImp, Text = "Imprimer"
Classe Button, name = bPge, Text = "Ouvrir dPge"
Classe Button, name = bPré, Text = "Ouvrir dPré"
Classe Button, name = bPrt, Text = "Ouvrir dPrt"
Classe PageSetupDialog, name = dPge
Classe PrintPreviewDialog, name = dPré
Classe PrintDialog, name = dPrt

Et voici le code utilisé

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Imports System.Drawing.Printing
Imports System.Drawing.Color
Public Class Accueil
    Private Prt As New PrintDocument, Grp As Graphics
 
    Private Sub Accueil_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        AddHandler Prt.PrintPage, AddressOf Me.Prt_PrintPage
        dPge.Document = Prt
        dPré.Document = Prt
        dPrt.Document = Prt
    End Sub
 
    Private Sub Prt_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Grp = e.Graphics 
        Dessiner()
    End Sub
 
    Private Sub Dessiner()
        Dim Fnt As New Font("Times New Roman", 10, FontStyle.Regular)
        Dim Pnc As New SolidBrush(Color.Black)
        Dim Pnt As New PointF(100, 200)
        Grp.DrawString("Toto, manges ta soupe.", Fnt, Pnc, Pnt)
    End Sub
 
    Private Sub bImp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bImp.Click
        Prt.Print()
    End Sub
 
    Private Sub bPge_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPge.Click
        dPge.ShowDialog()
    End Sub
 
    Private Sub bPré_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPré.Click
        dPré.ShowDialog()
    End Sub
 
    Private Sub bPrt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPrt.Click
        dPrt.ShowDialog()
    End Sub
End Class

En cliquant sur les différents boutons, vous pourrez tester tout ce qui se passe. À mon avis, c'est le PrintDialog qui est le plus intéressant, car en cliquant sur son bouton Préférences, on accède directement à la boîte de dialogue du pilote de l'imprimante.

Amicales salutations.

[Jean-Marie Grave]

Et maintenant, pour illustrer l'impression sur plusieurs pages, voici les modifications que j'ai apportées à mon programme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Class Accueil
    Private Prt As New PrintDocument, Grp As Graphics, i As Integer = 1

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 Private Sub Prt_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Grp = e.Graphics
        If i = 1 Then
            DessinerPage1()
            i = 2 : e.HasMorePages = True
        ElseIf i = 2 Then
            DessinerPage2()
            i = 3 : e.HasMorePages = True
        ElseIf i = 3 Then
            DessinerPage3()
            e.HasMorePages = False
        End If
    End Sub
 
    Private Sub DessinerPage1()
        Dim Fnt As New Font("Times New Roman", 10, FontStyle.Regular)
        Dim Pnc As New SolidBrush(Color.Black)
        Dim Pnt As New PointF(100, 200)
        Grp.DrawString("Toto, manges ta soupe,", Fnt, Pnc, Pnt)
    End Sub
 
    Private Sub DessinerPage2()
        Dim Fnt As New Font("Times New Roman", 10, FontStyle.Regular)
        Dim Pnc As New SolidBrush(Color.Black)
        Dim Pnt As New PointF(100, 200)
        Grp.DrawString("et tu grandiras.", Fnt, Pnc, Pnt)
    End Sub
 
    Private Sub DessinerPage3()
        Dim Fnt As New Font("Times New Roman", 10, FontStyle.Regular)
        Dim Pnc As New SolidBrush(Color.Black)
        Dim Pnt As New PointF(100, 200)
        Grp.DrawString("Nan, j'ai pas faim.", Fnt, Pnc, Pnt)
    End Sub