Discussion :

[annedeblois]

Bonjour,

Après avoir créé une classe dérivée de PrintDocument, je désire tester la possibilité d'aperçu avant impression. En faisant le code suivant:

Code VB.NET :

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

1
2
3
4
5
 
        Dim prnPreviewDialogMachinTruc As New PrintPreviewDialog
        Dim monRapport As New MaClasseImpression
        prnPreviewMachinTruc.Document = monRapport
        prnPreviewMachinTruc.ShowDialog()

J'obtiens un magnifique aperçu avant impression, qui me montre toutes les pages à imprimer. C'est super, quoi! Seulement, lorsque je clique sur le bouton d'impression situé au coin supérieur gauche, ça n'imprime que la page 1 (et je ne puis choisir l'imprimante, mais ça... si c'est conçu comme ça... au pis aller c'est moins prioritaire).

Y a-t-il des trucs que je dois préciser dans les propriétés de monRapport? Si oui, lesquelles? D'avance, merci beaucoup!

[Pilloutou]

J'avais eu le même problème mais j'avais fait une erreur de programmation parce que quand tu imprimes depuis le preview, il reconstruit tout.
Je suppose que tu utilises une variable pour savoir si tu dois changer de page ou pas et savoir s'il te reste des pages à imprimer, non ?
Vérifie si à la fin du preview cette ou ces variables sont bien réinitialisés.
Enfin moi c'est le problème que j'avais eu, après c'est peut-être voire même certainement autre chose.

[annedeblois]

Beh., j'sais pas trop.. j'ai ceci à la fin de la procédure OnPrintPage (dans laquelle je mets tous mes éléments graphiques):

Code VB.NET :

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

1
2
3
4
5
6
7
 
            If (Me.currentPage < Me.totalPages) Then
                e.HasMorePages = True
                Me.currentPage = Me.currentPage + 1 ' On incrémente le compteur
            Else
                e.HasMorePages = False
            End If

Si tu dis que tout est reconstruit, normalement mon constructeur (re)fait les connexions à la base de données et refait les éléments graphiques... (EDIT - et il interroge la BDD pour savoir combien d'enregistrement, afin de savoir combien de page imprimer) Enfin! il ne m'a jamais renvoyé d'exception concernant une connexion ratée à la BDD ou des données vides pour les images.

Anne, un peu confuse...

P.S.: À moins que le clic du petit bouton ne fasse que rappeler la procédure OnPrintPage (mais là encore j'aurais des tas d'erreurs pour cause de DataSet pas initialisé, et la page 1 ne se serait certainement pas imprimée avec des données).

[Pilloutou]

Non pardon, je voulais effectivement dire qu' OnPrintPage est rappelé de nouveau.

J'entendais pas recontruit les éléments que tu imprimais.

Globalement si je reprends ton code, lorsque l'utilisateur clique sur le bouton impression, OnPrintPage est appelé et l'aperçu de l'impression est affiché, n'est-ce pas ?
La variable currentPage s'est incrémentée et une fois que l'aperçu est affichée, cette variables vaut le nombre de page totales.
Par contre, une fois l'aperçu affiché, l'utilisateur lorsqu'il clique sur Imprimer, OnPrintPage est de nouveau appelé, alors que ta variable currentPage est égale au nombre de page totales.
Donc selon moi essaye:

Code vb.net :

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

1
2
3
4
5
6
7
If (Me.currentPage < Me.totalPages) Then
                e.HasMorePages = True
                Me.currentPage = Me.currentPage + 1 ' On incrémente le compteur
            Else
                e.HasMorePages = False
                Me.currentPage = 0
            End If

Enfin là comme ça je pense à ça.
Tiens moi au courant.

[annedeblois]

Ah! tiens donc, j'avais oublié ce détail. J'essaie cela tout de suite!!!

(edit - et pardon, je crois avoir mal compris)

[annedeblois]

En mettant le Me.currentPage à 0, .NET s'est cabré en me disant qu'aucune rangée de valeur -1 n'est possible dans la table de la BDD, c'est que j'avais mis une correspondance nombreRangees = me.currentPage -1 plus haut dans mon code. Alors, en corrigeant le code comme ceci:

Code vb.net :

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

1
2
3
4
5
6
7
If (Me.currentPage < Me.totalPages) Then
                e.HasMorePages = True
                Me.currentPage = Me.currentPage + 1 ' On incrémente le compteur
            Else
                e.HasMorePages = False
                Me.currentPage = 1
            End If

...ç'a fonctionné nickel!!

[Pilloutou]

Oh bah je suis bien content

A bientôt