impression de document

Version imprimable

27/09/2012, 14h05
thierry007

impression de document

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
27/09/2012, 15h43
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.
27/09/2012, 16h55
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...
27/09/2012, 17h32
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.

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

Code:

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

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:

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

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

Citation:

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:

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.

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

Code:

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

Code:

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

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:

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]