Discussion :

[gegila]

Bonjour à tous

Je bute sur un petit pB d'impression de la totalité d'une grille

J'utilise une Base de données Sqlite
Je vais trier ma table selon certains critères et afficher le tri dans une nouvelle grille et c'est cette grille que je veux imprimer
Si les données sélectionnées ont quelques lignes alors pas de Problèmes, par contre si le nb de données affichées sont plus nombreuses que l'affichage,
seules celles comprises dans la fenêtre d'affichage sont imprimées

Au plus j'agrandi ma fenêtre au plus j'obtiens le nombre de ligne souhaité.

Donc si le nb de ligne est > aux Mb de lignes pouvant être affichées je je peux pas les afficher en totalité

Voici comment est géré mon programme d'affichage

Code Pascal :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
// *******************
// Bloc impression
// *******************
 
procedure TfmTriParDate.frxUserDataSetTriDateCheckEOF(Sender: TObject; var Eof: Boolean);
begin
  Eof := lig > DBGridTri.RowCount - 2;
end;
 
procedure TfmTriParDate.frxUserDataSetTriDateFirst(Sender: TObject);
begin
  lig := 1; // premier enregistrement
end;
 
procedure TfmTriParDate.frxUserDataSetTriDateGetValue(const VarName: string; var Value: Variant);
begin
  if SameText(VarName, 'DateEnregistre') then
    Value := DBGridTri.Cells[2, lig];
  if SameText(VarName, 'Types') then
    Value := DBGridTri.Cells[3, lig];
  if SameText(VarName, 'NumChq') then
    Value := DBGridTri.Cells[4, lig];
  if SameText(VarName, 'Tiers') then
    Value := DBGridTri.Cells[5, lig];
  if SameText(VarName, 'Cat') then
    Value := DBGridTri.Cells[6, lig];
  if SameText(VarName, 'Debit') then
    Value := DBGridTri.Cells[7, lig];
  if SameText(VarName, 'Credit') then
    Value := DBGridTri.Cells[8, lig];
end;
 
procedure TfmTriParDate.frxUserDataSetTriDateNext(Sender: TObject);
begin
  Inc(lig); // prochaine ligne
end;
 
// *********************************
procedure TfmTriParDate.BtImprimerClick(Sender: TObject);
var
  MemoCpt, MemoBanque, MemoTotCpt, MemoDebit: TfrxMemoView;
 
begin
 
  // ***** Impression du Compte
  // nom du Rapport: FrImpFiltreDetailsCpt.fr3
 
  MemoCpt := frxReportFiltreCpt.FindObject('MemoCpt') as TfrxMemoView;
  MemoCpt.Text := LblDetailNomCpt.Caption;
 
  MemoBanque := frxReportFiltreCpt.FindObject('MemoBanque') as TfrxMemoView;
  MemoBanque.Text := Banque;
 
  MemoDebit := frxReportFiltreCpt.FindObject('MemoDebit') as TfrxMemoView;
  MemoDebit.Text := FormatFloat('#,##0.00', DBGridTri.ColumnSum(7, 1, DBGridTri.RowCount - 2)) + #128;
 
  MemoTotCpt := frxReportFiltreCpt.FindObject('MemoTotCpt') as TfrxMemoView;
  MemoTotCpt.Text := FormatFloat('#,##0.00', DBGridTri.ColumnSum(8, 1, DBGridTri.RowCount - 2)) + #128;
 
  frxReportFiltreCpt.PrepareReport();
  frxReportFiltreCpt.PreviewOptions.Zoom := 1.45; // pour avoir 145 %
  frxReportFiltreCpt.ShowPreparedReport;
 
end;

Merci de vos réponses

[SergioMaster]

Bonjour,

Moi cela me semble tout à fait logique que seul le nombre "visible" de lignes de la grille soit affiché. AMHA, votre erreur c'est de confondre grille et données.

Si vous voulez faire un impression de la table, il est beaucoup plus simple de faire le lien avec la source de données (table ou requête) via un frxdbDataset qu'avec un frxUserDataSet

[gegila]

Merci pour la réponse Serge

C'est en effet l'impression de la Grille qu'il me faut et non celle de la table

[SergioMaster]

par contre si le nb de données affichées sont plus nombreuses que l'affichage,
seules celles comprises dans la fenêtre d'affichage sont imprimées

c'est logique, la grille ne contient que les lignes affichées pas le nombre de lignes de la source de données , je ne comprends vraiment pas ce qui est voulu.
Tel que codé ce n'est pas une image écran de la grille mais tout comme

[gegila]

Merci beaucoup Serge

Je m'excuse j'ai du m'absenter 2 jours et je n'ai eu l'occasion de te répondre.

En effet je suis passé par une table et en passant par un frxDbdataSet cela marche sans problème.