Discussion :

[BernardBouree]

Bonjour

J'essaye d'imprimer le contenu d'une TextBox à l'aide des fonctions suivantes:

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
41
42
43
44
45
46
47
 Private Sub MenuImprimerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuImprimer.Click
        _sStringToPrint = TxtBoxTexteFichierGed.Text
        With PrintDialog
            .Document = PrintDocument
            .AllowSomePages = True
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                PrintDocument.Print()
            End If
        End With
    End Sub
 
    Private Sub PrintDocumentPrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument.PrintPage
        Dim numChars As Integer
        Dim numLines As Integer
        Dim stringForPage As String
        Dim strFormat As New StringFormat()
        Dim PrintFont As Font
        Static numPage As Integer = 0
        Dim numPremièrePage As Integer = 0
        Dim numDernièrePage As Integer = 0
        PrintFont = TxtBoxTexteFichierGed.Font
        Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
        Dim sizeMeasure As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))
        strFormat.Trimming = StringTrimming.Word
        e.Graphics.MeasureString(_sStringToPrint, PrintFont, sizeMeasure, strFormat, numChars, numLines)
        stringForPage = _sStringToPrint.Substring(0, numChars)
        'Si l'option "Toutes les pages" est cochée on fixe NumDernièrePage à 10000
        'sinon on définit le range
 
        If e.PageSettings.PrinterSettings.PrintRange <> PrintRange.AllPages Then
            numPremièrePage = e.PageSettings.PrinterSettings.FromPage
            numDernièrePage = e.PageSettings.PrinterSettings.ToPage
        Else
            numDernièrePage = 10000
        End If
        numPage += 1
        If numPage >= numPremièrePage And numPage <= numDernièrePage Then
            e.Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)
        End If
        If numChars < _sStringToPrint.Length Then
                _sStringToPrint = _sStringToPrint.Substring(numChars)
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
        If numPage > numDernièrePage Then e.HasMorePages = False
    End Sub

J'utilise la boite de dialogue PrintDialog pour définir une impression de toutes les pages ou seulement d'une partie.
Dans la fonction PrintDocumentPrintPage j'ai du code qui me permet de sélectionner les pages à imprimer en fonction du choix fait dans la boite de dialogue.
Mais pour les pages qui ne sont pas à imprimer, j'obtiens une page blanche qui sort de l'imprimante.
Comment l'éviter?
Je n'ai pas compris quelle était la ligne de code qui déclenchait l'impression de la page. Je pensais que c'était DrawString mais cela ne semble pas le cas.

Merci de votre aide.

Bernard

[BernardBouree]

Bonjour

N'ayant pas reçu de réponse j'imagine que ma question est mal posée!
J'ai fait quelques progrès dans la compréhension dans la classe system.drawing.printing et j'ai une question plus simple

Dans la documentation et les exemples donnés l'impression est déclenchée par une fonction du type indiquée avec la fonction Drawstring qui imprime le texte.

Code :

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

1
2
3
4
5
Private Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument.PrintPage
...
e.Graphics.DrawString(...)
..
End Sub

J'ai mis du code me permettant de choisir les pages à imprimer tel que définit dans une boite de dialogue.

Si je demande à ce que toutes les pages soit imprimées, tout va bien, mais si je demande la page 5 à 10 par exemple, il me sort 4 pages blanches .
Il me semble donc que l'impression est déclenchée dès que l'on entre dans la fonction Printpage même si la fonction DrawString n'est pas appellée.

Donc comment faire pour définir les pages à imprimer sans avoir à imprimer un lot de pages blanches.

Merci

Bernard

[Rainui]

Bonjour,

Avez vous essayé en mode Pas par Pas voir si la Sub PrintDocumentPrintPage est exécutée?

Je ne sais pas si ça peut vous aider mais je suis tombé sur un exemple d'impression sur Msdn : PrintDocument.Print()

[BernardBouree]

Bonjour

Oui bien sûr j'ai essayé le pas à pas et c'est là que j'ai vu que l'impression n'était déclenchée qu'au sortir de la fonction PrintPage.
Merci pour votre exemple mais il ne permet pas de définir les pages à imprimer.

Et si on le modifie pour sauter certaines pages on obtient une page blanche pour ces pages.

Bernard

[Rainui]

Bonsoir,

Je n'ai pas de réponse précise à vous apporter, ne m'étant pas encore intéressé de prêt à l'impression (je passe par des modèles Word quand j'en ai besoin).

Cependant, je suis tombé sur un vieux tutoriel ou vous pourrez certainement trouver des réponses : Imprimer avec VB.Net de J-M Rabilloud

Je donne ma langue au chat et laisse des personnes plus calée répondre.

Désolé de ne pas pouvoir vous aider d'avantage.

[BernardBouree]

Bonjour

Merci pour le document.
Une rapide lecture me fait penser que je vais peut être y trouver mon bonheur!
Cordialement

Bernard