Discussion :

[jcharles]

Bonjour,

voilà pour eviter de lancer directement un previsu QReport qui pose des probléme dans une appli en MDI, j'ai créé (sur les conseils de ce forum) un FormPreview, j'arrive donc à l'afficher (oufs) mais je ne sais pas maintenant comment faire pour pouvoir avoir les meme boutons que dans la previsu d'un Qreport ( Changer de page, selectionner une imprimante, imprimer, zoomer, etc...).

si vous avez quelques idées à me donner.

Merci d'avance
JC

[Lung]

Moi, je fais comme ca :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TFormMiseEnPage.BtnPrecedentClick(Sender: TObject);
begin
   QRPreview.PageNumber := QRPreview.PageNumber - 1;
   StatusBar.Panels.Items[1].Text := '.Page :  ' + IntToStr(QRPreview.PageNumber) + '/' + IntToStr(QRPreview.QRPrinter.PageCount) + '.';
 
   if QRPreview.PageNumber = 1 then
      BtnPrecedent.Enabled := False;
   if QRPreview.PageNumber < QRPreview.QRPrinter.PageCount then
      BtnSuivant.Enabled := True;
 
   BtnImprimer.SetFocus;
end;
 
procedure TFormMiseEnPage.BtnSuivantClick(Sender: TObject);
begin
   QRPreview.PageNumber := QRPreview.PageNumber + 1;
   StatusBar.Panels.Items[1].Text := '.Page :  ' + IntToStr(QRPreview.PageNumber) + '/' + IntToStr(QRPreview.QRPrinter.PageCount) + '.';
 
   if QRPreview.PageNumber > 1 then
      BtnPrecedent.Enabled := True;
   if QRPreview.PageNumber = QRPreview.QRPrinter.PageCount then
      BtnSuivant.Enabled := False;
 
   BtnImprimer.SetFocus;
end;
 
procedure TFormMiseEnPage.BtnConfImprimanteClick(Sender: TObject);
begin
   QRPreview.QRPrinter.PrintSetup;
end;
 
procedure TFormMiseEnPage.BtnImprimerClick(Sender: TObject);
begin
   QRPreview.QRPrinter.Print;
end;

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
17
18
19
procedure TFormOutilsZoom.BtnZoomAjusteClick(Sender: TObject);
begin
   FormMiseEnPage.QRPreview.ZoomToWidth;
end;
 
procedure TFormOutilsZoom.BtnLargeurAjusteeClick(Sender: TObject);
begin
   FormMiseEnPage.QRPreview.ZoomToFit;
end;
 
procedure TFormOutilsZoom.BtnZoomOutClick(Sender: TObject);
begin
   FormMiseEnPage.QRPreview.Zoom := FormMiseEnPage.QRPreview.Zoom - 10;
end;
 
procedure TFormOutilsZoom.BtnZoomInClick(Sender: TObject);
begin
   FormMiseEnPage.QRPreview.Zoom := FormMiseEnPage.QRPreview.Zoom + 10;
end;

[jcharles]

un grand MERCI à Lung

c'est vraiment trés sympa et ça fonctionne impeccable.
il ne reste plus qu'a mettre ça en place sur mon preview pour tout mes etats.

encore Merci
jc

[Lung]

N'oublie pas de cliquer sur le bouton [Résolu].