Discussion :

[hanitax]

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;

[Charly910]

Bonjour,

cela me parait normal que tu n'imprimes que 16 enregistrements au maximum, puisque tu fais un exit du While au bout de 16 enregistrements ?

A+

Charly

[Charly910]

Bonjour,

essaye un "NewPage " à la place du Exit (si tu écris sur Printer)

Charly

[hanitax]

j'ai essayé newpage , mais il n'ecrit pas sur la nouvelle page , alors que moi je veux qu'il continue l'impression des autres produits sur la nouvelle page

[SergioMaster]

Bonjour,

Parce qu'il faut réinitialiser le compteur, en gros cela donne ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
n:=0;
While not Adotable3.EOF do 
begin
...
if n=16 then
 begin
   n:=0;
   Newpage;
 end;
n:=n+1;
adotable3.Next;
...
end;

Au vue du nombre de questions que tu as posées sur le forum à ce sujet
je me permet cependant de poser une question : est-ce voulu/imposé de faire une édition via begindoc ... endoc et les canvas plutôt que d'utiliser les générateurs d'états fournis ou existant pour Delphi ? (QuickReport, Rave, FastReport ......) ou est-ce par méconnaissance de ces composants ?

[hanitax]

merci SERGIO ca marche mnt , juste un tout petit souci , le dernier enregistrement dans la premier page se répéte dans la deuxiéme page!!
et pour répondre à votre question , ce n'est pas question de méconnaissance des autres composants , mais c pcq j'ai déja la feuille d'impression dont les champs sont bien tracées , alors qu'il me faudrais juste envoyé les données vers imprimante en utilisant les canvas,car ces dernières me permet de choisir une tel position pour écrire sur l'imprimé.