Discussion :

[tonton67]

Bonjour,
Comment imprimer plusieurs documents indépendants (ou une sortie PDF).
Quand j'entre dans la procédure frReport1GetValue(); il parcourt la liste puis il m'imprime la fiche de la dernière personne de la liste.
Merci pour une suggestion.

[jurassic pork]

Hello,

Explique nous mieux ton problème :
1 - Dis-nous ce que tu as en entrée (d'où viennent les données ?) et ce que tu veux en sortie.
2 - De quelle liste parles tu ?
3 - Montre-nous ton code.

Ami calmant, J.P

[tonton67]

Bonjour,

Les données à imprimer sont chargées dans une StringGrid, depuis SQLite3.

Une procédure prépare la StringGrid, ensuite je prépare le rapport :

Code :

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

1
2
3
4
         frReport1.Options:= [roHideDefaultFilter];
         S := 'le nom du fichier pdf';
         frReport1.PrepareReport;
         if frReport1.PrepareReport then frReport1.ExportTo(TfrTNPDFExportFilter, S);

La procédure frReport1GetValue() est appelée, puis elle boucle jusqu'à la fin de la StringGrid. Je trouve dans le document final (imprimé ou pdf) uniquement les données de la dernière ligne de la StingGrid.

Ma question :
Comment créer un état pour chaque ligne de la StringGrid ?

Merci d'avance.

[jurassic pork]

Hello,
tu peux jeter un oeil à mon exemple de base de données (inclus dans les distributions de Lazarus : Lazarus\examples\Database\Image_Mushrooms ). Dedans je fais un print de champignons qui sont dans une stringGrid.
Par rapport à ce projet j'ai rajouté un bouton export to PDF avec ce code :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Bt_ExpPDFClick(Sender: TObject);
begin
   frReport1.LoadFromFile(ExtractFilePath(application.ExeName) +
    'Mushroom_Report.lrf');
   if frReport1.PrepareReport then
      frReport1.ExportTo(TfrTNPDFExportFilter, 'D:\temp\Champignons.PDF');
end;

En pièce jointe ce que j'obtiens en PDF

Ami calmant, J.P

[tonton67]

Bonsoir,
Merci pour votre aide, j'avais des confusion entre les bandes : la bande principale et l'entête du rapport, de ce côté c'est réglé.
Il me reste un autre problème : j'ai trois StringGrid dans ce rapport mais elles n'ont pas le même nombre de lignes, l'une sur la 1ère page, les 2 autres sur la seconde page.
j'ai ajouté un compteur par StringGrid dans les 3 évènements : OnCheckEOF, OnFirst et OnNext, le résultat n'est pas satisfaisant.
Je pense que ce n'est pas faisable.
Bonne soirée