Créer un sous état en mode paysage

**zanoubya** · 27/05/2009, 18h19

Bonjour à tous;
J'ai un état qui se compose de deux feuilles la première en portrait et la deuxième en paysage alors comment faire pour les générer dans le cadre d'un seul état? y a t-il une possibilité de créer un sous état ?
Merci

**SergioMaster** · 28/05/2009, 07h24

Bonne question , à laquelle je n'ai jamais réussi à répondre avec Quickreport
(si l'objectif est du genre Portrait/paysage/suite portrait etc...) .

Dans ces cas là je me suis tourné vers Rave

Une solution peut-être : découper l'état en petits états (donc découper les données) pour faire un état composite ?

Il y a peut être d'autres solutions sur le site de qusoft http://www.qusoft.com/Default.aspx page FAQ voir entre autre l'exemple ReportMergeDelphi

Cependant je ne sais pas si cela répond vraiment à la question

**zanoubya** · 28/05/2009, 14h20

Bonjour sergio Merci pour ta réponse;
J'ai cherché dans les FAQS et j'ai trouvé que c'est pas possible de faire les deux au me^me temps avec quickreport la question et sa réponse :
"Q. One of the reports in my Composite Report has Landscape Orientation, and the others are Portrait. The report prints everything in Portrait
A. You can not mix landscape and portrait oriented reports with the composite report.
"
c'est dommage

**SergioMaster** · 29/05/2009, 12h03

d'où mon utilisation de Rave dans ce cas

mantenant je pense a une solution , compliquée mais faisable :
transformer les etats quickreport en pdf et ajouter tous les pdf en un seul document

**zanoubya** · 29/05/2009, 13h50

Bonjour;
Même si c'est compliqué dites moi comment y procéder
Merci

**SergioMaster** · 30/05/2009, 07h56

je te renvoi sur ce lien
pour ce qui est du PDF .

Pour le reste , c'était une idée en passant . Le principe en est plus ou moins expliqué dans le lien indiqué . Chaque page d'un quickreport est en fait un métafile que l'on peut donc copier vers un PDF , l'objectif est donc de copier les pages des différents états Quickreport dans un seul fichier PDF (en fait c'est un peu comme le QRCompositeReport) . La beauté du PDF c'est qu'il accepte les différentes présentation de feuilles paysage/portrait.

Le hic , je n'ai jamais essayé d'ajouter plusieurs QReports de cette façon et donc encore moins les formats de page , dans le principe cela me semble possible .

Cerise sur le gâteau pas besoin d'avoir, je pense, de version pro de quickreport et l'essai (transformé) que j'avais fait pour le PDF était avec D3

Bon courage . Si tu poursuis dans cette voie , tiens moi au courant .
Sinon , il y a RAVE Report

**zanoubya** · 01/06/2009, 10h36

Bonjour;
Merci pour ta réponse.
En fait le lien que vous m'avez envoyé s'agit d'un code qu'il placer où ? c'est au lieu d'utiliser report.preview qu'il faut le mettre ?

Et pour le composant Nishita's PDF Creation VCL (TNPDF) je le trouve pas sur le lien que vous m'avez indiqué http://www.delphi-files.com/Vcl/Tool...VCL-v-2-0.html

Je vais faire mon essaie et vous mettre au courant .
Merci infiniment

**SergioMaster** · 02/06/2009, 09h17

une petite recherche google pour le lien http://www.torry.net/vcl/vcltools/un...n/kn_tnpdf.zip

En fait le lien que vous m'avez envoyé s'agit d'un code qu'il placer où ?

effectivement , car dans mon cas il s'agissait de :

récupérer un fichier QRP précédemment créer
le pré visualiser
puis l'imprimer et/ou le transformer sous un autre format (PDF entre autres)

cependant le principe reste : l'utilisation des METAfiles

**zanoubya** · 02/06/2009, 11h23

Bonjour Merci pour la réponse.
Alors j'ai testé ce composant mais en exécutant, le programme ne reconnait pas le type de données TStringSearchOptions au niveau d'une unité même si celle contient la directive uses StrUtils et dans le dossier Lib il y a déja la bibliothèque StrUtils.dcu
L'erreur générée est la suivante : [Error] StdActns.pas(976): Undeclared identifier: 'TStringSearchOptions'

Ce problème est dû à quoi ?

sachant que j'utilise Delphi7

Merci

**SergioMaster** · 02/06/2009, 13h08

cela fait tres longtemps que je n'ai pas regardé ce composant (que d'ailleurs je n'utilise pas).

J'utilise une dérivée (joint) ou j'ai oté l'enregistrement du composant

de plus si je ragarde la liste des uses je ne vois pas strutils !!!!!

Code :

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

1
2
3
uses
  SysUtils, WinProcs, WinTypes, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Dialogs{$IFDEF USE_ZLIB} ,dZLib{$ENDIF},JPEG;

**zanoubya** · 02/06/2009, 16h53

Alors pour être plus clair le dossier zip que vous m'avez envoyé je l'ai décompressé dans le dossier delphi/Lib.
Le bout de code pour convertir en pdf je l'ai mis dans l'evenement click de mon bouton imprimer et le voilà :

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
 
var  d1,d2 : Tdatetime;
 PPDF : Tnpdf; // création d''un fichier PDF
  MF : TMetaFile;
  B : TBitmap;         // récupération du metaFile pour manipulations
  FileExt : string;
  I : integer;
begin
Title := 'Sauvegarde PDF';
    Filter := 'Fichiers Adobe PDF (*.pdf)|*.PDF';
    FileName := QRPreview1.QRPrinter.Title;
    IF Execute then begin
       IF pos('.',FileName) > 0 then
          FileName := Copy(FileName, 1, pos('.',FileName)-1)+'.pdf'
       else FileName := FileName+'.pdf';
       FileExt := FileName;
      PPDF := TPrintPDF.CREATE(Self);
      PPDF.FileName := FileName;
      PPDF.BeginDoc;
      FOR i := 1 TO QRPrinter.PageCount do begin
        B := TBitmap.CREATE;
        B.PixelFormat := pf24bit;
        MF := QRPrinter.GetPage(i);
        B.Width := MF.Width;
        B.Height := MF.Height;
        B.Canvas.Draw(0,0,MF);
        PPDF.DrawJPEG(52,0,B); // JPEG
        IF (i <> QRPrinter.PageCount) then
          PPDF.NewPage;
        B.Free;
      end;
      PPDF.EndDoc;
      PPDF.Free;
end;

quand j'exécute il donne l'erreur relative à TStringSearchOptions au niveau de l'unité StdActns sachant qu'au niveau de cette unité il y a déja uses StrUtils comme suit

Code :

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

1
2
 
uses SysUtils, Classes, ActnList, StdCtrls, Forms, Dialogs,StrUtils  ;

est ce que j'ai bien procédé ou pas? sinon quoi faire exactement ?

Merci d'avance .

**SergioMaster** · 03/06/2009, 08h15

Envoyé par zanoubya

Alors pour être plus clair le dossier zip que vous m'avez envoyé je l'ai décompressé dans le dossier delphi/Lib.

justement , je n'ai pas envoyé de zip juste le lien sur le composant TPNPDF.

comme dit ensuite , je n'ai pas utilisé le composant, mais juste son unité (voir fichier joint) . Et enfin dans cette unité il n'y a aucune référence a des actnlist je le répete

est ce que j'ai bien procédé ou pas? sinon quoi faire exactement ?

je dirais NON . Ensuite le bout de code (qu'il me semble reconnaitre

)
est utilisé avec un QRPreview ce qui n'est pas a faire dans le cas de la fusion.

seule cette partie est a prendre en considération

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
 
     PPDF := TPrintPDF.CREATE(Self);
      PPDF.FileName := FileName;
      PPDF.BeginDoc;
     // ici rajouter boucle sur les etats (qrreports) de façon a tous les inclure
     // ici il faut trouver un moyen d'assigner le QRPrinter de l'etat de la boucle  
      FOR i := 1 TO QRPrinter.PageCount do begin
        B := TBitmap.CREATE;
        B.PixelFormat := pf24bit;
        MF := QRPrinter.GetPage(i);
        B.Width := MF.Width;
        B.Height := MF.Height;
        B.Canvas.Draw(0,0,MF);
        PPDF.DrawJPEG(52,0,B); // JPEG
        IF (i <> QRPrinter.PageCount) then
          PPDF.NewPage;
        B.Free;
      end;
      // fin de la boucle etat 
 
      PPDF.EndDoc;