Discussion :

[Jiyuu]

Bonsoir,

Quelqu'un peut-il me dire comment effectuer une impression sur deux pages.
Mon programme génère beaucoup d'infos, mais il n'y a qu'une seule partie qui sort.

D'avance merci

[sam_XIII]

si tu sais qu'il y a encore des pages tu dois mettre

Code :

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

e.HasMorePages = true;

sinon voici un article sur les impressions en vb.NET

[Jiyuu]

Bonjour,

Je ne dois pas l'utiliser correctement car lorsque je lance un aperçu, le nombre de page défile sans fin à priori.

Peux-tu m'aiguiller?

[Jiyuu]

Bonsoir,

Je ne parviens toujours pas à imprimer sur plusieurs pages et je ne trouve d'exemples ou d'aides sur les deifférents sites.

Quelqu'un peut-il me donner une idée pour faire cette impression

Merci

[Jiyuu]

Désolé de revenir à la charge, mais personne n'a de solution pour moi...

[bidou]

montre nous ton code

[Jiyuu]

Voic un extrait du code que j'utilise:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim Arial11 As New Font("Arial", 11)
Dim Xpos, Ypos As Single
Dim ChaineImpr As String
Using MyGr As Graphics = e.Graphics
Dim SautLigne As Single = MyGr.MeasureString("X", Arial12G).Height
Dim SautColonne As Single = MyGr.MeasureString("X", Arial11).Width
'Debut boucle 1: Impression d'une image
Dim Photo As New Bitmap(ACCUEIL.LOGO.Image)
MyGr.DrawImage(Photo, 0.0F * e.MarginBounds.Width / 3.0F, 0.0F, 400, 100)
'Fin boucle 1

'Début boucle 2: Impression d'un text
'Ecriture dans Colonne 7
Xpos = SautColonne * 40.0F
Ypos = SautLigne * 7.0F
ChaineImpr = "Text " + TextBox1.Text
MyGr.DrawString(ChaineImpr, Arial11, Brushes.Black, Xpos, Ypos)
'Etc ...
Xpos = SautColonne * 40.0F
Ypos = SautLigne * 70.0F
ChaineImpr = "Text " + TextBox1.Text
MyGr.DrawString(ChaineImpr, Arial11, Brushes.Black, Xpos, Ypos)
'Etc...

End Using

End Sub


Dans mon cas, je pense qu'environ à partir de Ypos = SautLigne * 45F il faut que j'imprime sur une autre page.

Si je mets dans mon code:
e.HasMorePages = true alors le nombre de page tourne sans s'arrêter.
si je termine par:
e.HasMorePages = false, là il ne se passe plus rien et je ne peux pas appeler plusieurs pages.

D'avance merci pour l'aide

[bidou]

Tu ne peux pas gérer ton code comme cela.


Dans le principe tu dois :
Calculer la position Y
Si Y est supérieure à la hauteur de page, mettre HasMorePage à true et sortir de la procédure PrintPage qui va alors être appelée de nouveau.

Ton calcul de Y devra alors repartir d'une position initiale.

L'affectation de HasMorePage doit juste précéder la sortie de PrintPage

[Jiyuu]

Excuse moi mais j'ai besoin d'une petite précision

Comment sortir et relancer le PrintPage?