j'imprime des noms des produits selon le numéro de la facture que je choisie , une fois je dépasse 16 produits je passe , je continue l'impression sur l'autre feuille , jessaie ce code mais sans vain , il imprime que les 16 et il arrête , moi je veux qu'il passe à la feuille suivante pour continuer l'impression des produits restants :
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 adotable3.DisableControls; adotable3.First; adotable3.Filter:='FACTURE = '+edit1.Text; adotable3.Filtered:=true; while not adotable3.Eof do begin canvas.TextOut(1,i,nom_produit); n:=n+1; i:=i+interligne; if n<=16 then adotable3.Next else exit ; end; adotable3.EnableControls; i:=i+30*interligne; canvas.TextOut(1,i,mnt_pph); enddoc;
Partager