Discussion :

[yanis97]

Bonjour;

J'utilise la version 3.62 de Quickreport et j'essaye de générer un fichier pdf à partir d'un doc QRP stocké dans une base de données et ceci en utilisant le composant "TQRPDFDocumentFilter".
Mais ca ne fonctionne pas car il ne se passe rien.
Ci-joint mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
var
    FichierPDF  : TQRPDFDocumentFilter;
    qrp : TQRPrinter;
    ApplicationPath : string;
begin
   ApplicationPath := ExtractFilePath(Application.ExeName);
   FichierPDF  := TQRPDFDocumentFilter.Create(ApplicationPath +'Report.pdf');
   qrp := TQRPrinter.Create(nil);
   qrp.Load('D:\Temp\etat.qrp');
   qrp.ExportToFilter(FichierPDF);
   FichierPDF .free;
end;

Merci;

[anapurna]

salut

as tu transformé les composants de ton document ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Procedure ExporteDocQr(quickrep : TquickRep;Printer : Tqrprinter; nom : String)
var
   filtre :  TPsQRExportFilter;
begin
   filtre :=  TPsQRPDFFilter.Create(Nom);
   try
     filtre.OriginalQRPrinter := Printer;
     QuickRep.ExportToFilter(filtre);
   finally
     filtre.free;
   end;

@+ Phil

[TicTacToe]

Tu tiens peut être absolument à générer directement un PDF avec Delphi, je voulais juste dire sinon, qu'avec CutePDF gratuit, on peut s'affranchir de générer du PDF avec Quickrep.
De plus on peut mailer directement le fichier PDF générer...

[yanis97]

Tu tiens peut être absolument à générer directement un PDF avec Delphi, je voulais juste dire sinon, qu'avec CutePDF gratuit, on peut s'affranchir de générer du PDF avec Quickrep.
De plus on peut mailer directement le fichier PDF générer...

Bonjour;

Il est bien l'outil mais les docs ne sont pas imprimables donc ca ne sert à rien de construire des docs si derrière on ne peux pas les imprimés.

A+;

[anapurna]

salut

si ma solution te convient peut tu mettre le tag resolu

@+ Phil

[yanis97]

salut

si ma solution te convient peut tu mettre le tag resolu

@+ Phil

Bonjour;

J'ai trouvé un autre composant payant pour réaliser ceci. Par contre si tu saias ou je peux trouver un composant gratuit pour apposer sur des fichiers Quickreport des codes barres, je serais très interessé.

Merci

[TicTacToe]

Il y a quelques jours, il y a eu ce post

http://www.developpez.net/forums/viewtopic.php?t=466025

Bon courage !

[SergioMaster]

Je me permets de remonter ce post pour savoir s'il a été résolu .

C'est pourtant possible cf programme SmartQRP et pourtant , comme yanis97, je bloque .

[Nono40]

Tu essayes de générer le pdf à partir d'un fichier QRP ou directement (méthode anapura) ?
Quelle version de Quick Report ?

[SergioMaster]

en fait , j'ai mis mon post ici
pour répondre simplement :
fichier QRP chargé et Version 3.62 (pro)

[SergioMaster]

résolu
voir post déjà cité ci-dessous

[fs999]

Bonjour,

J'ai trouvé un compo intéressant : TExportQR chez Torry (TQRMultiExport - PDF and Image exporter v.1.0).

Il fonctionne pour QuickReport ou FastReport...

Il peut s'utiliser dans un preview ou dans un report.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  ExportQR.Title := 'Liste des Clients';
  ExportQR1.Subject := '';
  ExportQR1.Author := 'MOI';
  ExportQR1.Producer := 'MOI S.A.';
// Avec dialogue...
  ExportQR1.Preview := QRPreview1;
  ExportQR1.ExportQRFromPreview;
// ou
  ExportQR1.Report := QuickRep1:
  ExportQR1.ExportQR;
 
// ou Sans dialogue...
  ExportQR1.ExportQRPDF(Fichier, True);

J'ai apporté quelques améliorations et compressé un peu le code. Il suffit d'extraire les fichiers dans le répertoire "Source" et de recompiler la librairie.

A+