Discussion :

[michel71]

bonjour,

j'ai ecrit ceci

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
        For i = 3 To fin
 
            yPos = topMargin + (count * printFont.GetHeight(ev.Graphics))
 
            'Ecrit le texte dans l'objet graphique
            ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _
                                    yPos, New StringFormat())
 
            If (i < lpp) Then
                If i = 3 Then
                    FileGet(100, enregliste, 3)
                    line = enregliste.text1
                End If
 
                If i = 4 Then
                    FileGet(100, enregliste, 4)
                    line = enregliste.text1
                End If
                If i >= 5 Then
                    FileGet(100, enregliste, i)
                    line = " " + Trim(CStr(enregliste.num)) + "      " + Trim(CStr(enregliste.annee)) 
                End If
            End If
            count = count + 1
 
            'S'il y a encore des lignes, on réimprime une page
 
            If count > lpp Then
                ev.HasMorePages = True
                count = 2
            Else
                ev.HasMorePages = False
            End If
 
        Next i

j'ai 70 lignes à imprimer. la première page fait 60 lignes et je n'arrive pas a faire imprimer les 10 lignes restantes sur la seconde page
actuellement ces lignes s'écrivent sur la première page puis sont écrasées par les lignes prévues sur la première page
Qui peut m'aider
D'avance merci à tous ceux qui voudront bien se pencher sur mon problème

[bidou]

c'est le code d'avant qu'il nous faut, celui de ta méthode print

[michel71]

code print

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
    Private Sub BTimprime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTimprime.Click
        'Evénement survenant lorsque l'utilisateur clique sur le bouton 'Imprimer'
 
 
        Try
            FileOpen(100, My.Application.Info.DirectoryPath + fichier, OpenMode.Random, , , Len(enreg))
            enregliste.text1 = present1 : FilePut(100, enregliste, 2)
            enregliste.text1 = present2 : FilePut(100, enregliste, 3)
            enregliste.text1 = present1 : FilePut(100, enregliste, 4)
 
            Try
                printFont = New Font("Arial", 10)
                Dim pd As Printing.PrintDocument = New Printing.PrintDocument() 'déclaration du PrintDocument
                AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
                pd.Print()
            Finally
                FileClose(100)
            End Try
 
        Catch ex As Exception
            'MessageBox.Show("Une erreur est survenue: - " + ex.Message)
        End Try
 
 
    End Sub