Boucle For dans boucle While pour impression sur plusieurs pages ??!!

Question

Salut, j'ai un gros souci avec mon application !!!!!!!!! Je fais une impression d'une liste, et ma liste est tr&#232;s longue, Pour mon impression, il ne me sort qu'une feuille. Est ce que quelqu'un peut m'aider &#224; y voir plus claire !! C'est tr&#232;s urgent !! 
voila mon bout de code : 


Dim LinesPerPage 
As 
Single = 0



Dim yPos 
As 
Single = 0



Dim count 
As 
Integer = 0



Dim leftMargin 
As 
Single = e.MarginBounds.Left



Dim topMargin 
As 
Single = e.MarginBounds.Top



Dim sNom, sPrenom, sOrg, sTel, sFax 
As 
String



Dim total, pos, TotalPers 
As 
Integer



Dim ligne = 0



Dim Line 
As 
String = 
Nothing



'calcul le nombre de lignes par pages


LinesPerPage = e.MarginBounds.Height / Font.GetHeight(e.Graphics)


ligne = 
CType(MultiListboxPersonnalite.SelectedIndex, 
Integer)


total = MultiListboxPersonnalite.Items.Count



While count < LinesPerPage


TotalPers = LblCountListGe.Text



'Titre 


e.Graphics.DrawString("PERSONNALITES", 
New Font("Arial", 13, FontStyle.Regular), Brushes.Black, 480, 20)



'nombre de contacts 


e.Graphics.DrawString("(" & TotalPers & ")", 
New Font("Arial", 13, FontStyle.Regular), Brushes.Black, 640, 20)


e.Graphics.DrawString("Nom", 
New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 30, 50)


e.Graphics.DrawString("Pr&#233;nom", 
New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 200, 50)


e.Graphics.DrawString("Organisme", 
New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 400, 50)


e.Graphics.DrawString("T&#233;l&#233;phone", 
New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 800, 50)


e.Graphics.DrawString("Fax", 
New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 950, 50)


pos = 75



For ligne = ligne 
To total - 1



'r&#233;cup&#232;re les informations


sNom = 
CType(
CType(
CType(MultiListboxPersonnalite.Items(ligne), 
Object), System.Data.DataRowView).Row, System.Data.DataRow).ItemArray(3).ToString


sPrenom = 
CType(
CType(
CType(MultiListboxPersonnalite.Items(ligne), 
Object), System.Data.DataRowView).Row, System.Data.DataRow).ItemArray(4).ToString


sOrg = 
CType(
CType(
CType(MultiListboxPersonnalite.Items(ligne), 
Object), System.Data.DataRowView).Row, System.Data.DataRow).ItemArray(16).ToString


sTel = 
CType(
CType(
CType(MultiListboxPersonnalite.Items(ligne), 
Object), System.Data.DataRowView).Row, System.Data.DataRow).ItemArray(22).ToString


sFax = 
CType(
CType(
CType(MultiListboxPersonnalite.Items(ligne), 
Object), System.Data.DataRowView).Row, System.Data.DataRow).ItemArray(25).ToString


e.Graphics.DrawString(sNom & ControlChars.Tab & ControlChars.Tab, 
New Font("Arial", 9, FontStyle.Regular), Brushes.Black, 30, pos)


e.Graphics.DrawString(sPrenom & ControlChars.Tab & ControlChars.Tab, 
New Font("Arial", 9, FontStyle.Regular), Brushes.Black, 200, pos)


e.Graphics.DrawString(sOrg & ControlChars.Tab & ControlChars.Tab, 
New Font("Arial", 9, FontStyle.Regular), Brushes.Black, 400, pos)


e.Graphics.DrawString(sTel & ControlChars.Tab & ControlChars.Tab, 
New Font("Arial", 9, FontStyle.Regular), Brushes.Black, 800, pos)


e.Graphics.DrawString(sFax & ControlChars.CrLf, 
New Font("Arial", 9, FontStyle.Regular), Brushes.Black, 950, pos)


pos = pos + 25


count += 1



If pos > 1040 
Then


Line = pos



Exit 
While



End 
If



Next ligne



End 
While



'si plusieurs pages



If 
Not (Line 
Is 
Nothing) 
Then


e.HasMorePages = 
True



Else


e.HasMorePages = 
False



End 
If



Mais lorsque je mets : le bout de code pour indiquer qu'il y a plusieurs pages, l'impression ne se fait plus.

Gobillot · Answer

For ligne = ligne 
To total - 1



cette boucle ne se fera qu'une fois,

ligne va atteindre la valeur total en fin de boucle, et &#233;tant donn&#233; que
total n'est pas chang&#233; &#224; l'int&#233;rieur de la boucle, au prochain passage
la boucle For ne se fera plus.



t'es sur que c'est pas plut&#244;t:

For ligne = 1 
To total - 1



ou alors il faudrait que total soit cumul&#233;




Daniel

cs_gnes · Answer

Oui au d&#233;but j'avais mis For ligne = 0 to total -1. Apr&#232;s j'ai mis  ligne, car je voulais que ca boucle dessus, mais je dois mal m'y prendre. Mais le probleme, c'est qu'il n'atteint pas le total donc c'est pourquoi il doit imprimer la suite de la liste sur une autre page. mais ca ne marche pas, je ne sais pas du tout comment m'y prendre la.

Gobillot · Answer

a gnes >  pas pu m'empecher !



il ya aussi la sortie de boucle quand pos d&#233;passe 1040

ce serait pas plut&#244;t: Exit For



If pos > 1040 Then

   Line = pos

   Exit For

   End If

Daniel

cs_gnes · Answer

Ah oui, ca peut etre une solution, c'est pi etre sa que j'ai loup&#233;. mais j'avais une question : pourquoi lors que je mets le e.HasMorePages = TRUE bah l'impression ne se lance pas du tout, mais le nombre de pages &#224; imprimer s'incr&#233;mente mais ne s'arrete pas?? voila, j'aimerais comprendre ceci.

cs_gnes · Answer

Cela ne marche toujours pas !!!!!!!!!!! Quelqu'un a-t-il une solution pour m'aider !!!!!!!!!!!!!!!! C'est tr&#232;s urgent !!!!

Boucle For dans boucle While pour impression sur plusieurs pages ??!!

5 réponses

Discussions similaires