bonjour à tous
je cherche à optimiser l'impression sous vb 2010
Voila mon problème
aucun souci d'impression mais une lenteur dans la création des pages a prévisualiser
2 à 3 secondes par page en preview en je vais avoir besoin d'imprimer en masse une centaine de pages nécessairement en passant par une prévisualisation
Je ne trouve pas le moyen d'accélerer le processus
Sous access ,avec des états,, c'est habituellement rapide d'où ma question...
Si quelqu'un a un idée je suis preneur
Je fournis mon code si besoin..
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
 
    Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Static Dim PageNumber As Integer = 5
        Static Dim Rectoverso As Integer = 0
 
 
        If PageNumber > 0 Then
            Select Case Rectoverso
                Case 0
                    e.Graphics.DrawString("recto page " & PageNumber, New Font("Arial", 80, FontStyle.Bold), Brushes.Black, 150, 125)
                    Rectoverso = 1
                    e.HasMorePages = True
                Case 1
                    e.Graphics.DrawString("verso page " & PageNumber, New Font("Arial", 80, FontStyle.Bold), Brushes.Black, 150, 125)
                    Rectoverso = 0
                    PageNumber -= 1
                    e.HasMorePages = True
            End Select
        End If
        If PageNumber = 0 And Rectoverso = 0 Then e.HasMorePages = False
    End Sub
Merci d'avance