probleme de sortie

Question

Bonjour, 
je fais une application de gestion, là j'ai créer une fiche nommée "attestation de travail"  ma fiche est composé de "qrlabel" et de "qrdbtext" quand j'imprime ça me donne un fichier non modifiable, j'ai utilisé ce code:
********************************
attestation.query1.close;
attestation.query1.parambyname('x').asstring:=(dbedit1.Text);
attestation.query1.open;
attestation.quickrep1.preview;
close;
********************** 
or je veux avoir un fichier word mais je ne sais pas comment faire et ça fais longtemps que je cherche sans trouver de solution.
merci d'avance ;)

sp40 · Answer

Salut,
Tu peux exporter ton rapport au format RTF, en ajoutant l'unité QRExport dans la liste des "uses" :

with attestation do begin
     with Query1 do begin
          close;
          parambyname('x').asstring := dbedit1.Text;
          open;
     end;
     QuickRep1.ExportToFilter(TQRRTFExportFilter.Create({Nom de ton fichier d'export}));
end;

sosdelphi · Answer

[Erreur] Unit1ImpAtsCID.pas(73): Identificateur non déclaré : 'TQRRTFExportFilter'
[Erreur] Unit1ImpAtsCID.pas(73): ')' attendu(e) mais identificateur 'Create' trouvé(e)
[Erreur] Unit1ImpAtsCID.pas(73): Types incompatibles : 'Tattestation_travail_CID' et 'Integer'
[Erreur] Unit1ImpAtsCID.pas(75): '.' attendu(e) mais ';' trouvé(e)
[Erreur fatale] Project1page1.dpr(64): Impossible de compiler l'unité utilisée 'Unit1ImpAtsCID.pas'
 l'erreur est dans cette ligne :
QuickRep1.ExportToFilter(TQRRTFExportFilter.Create(D:\111111111));

sp40 · Answer

As-tu ajouté l'unité QRExport dans la liste des uses de ton unité ?
Le nom de fichier est un string, donc à placer entre quotes :

QuickRep1.ExportToFilter(TQRRTFExportFilter.Create('D:\111111111.rtf'));

sosdelphi · Answer

pareille ,
[Erreur] Unit1ImpAtsCID.pas(64): Identificateur non déclaré : 'TQRRTFExportFilter'
[Erreur] Unit1ImpAtsCID.pas(64): ')' attendu(e) mais identificateur 'Create' trouvé(e)
[Erreur] Unit1ImpAtsCID.pas(64): Types incompatibles : 'TComponent' et 'String'
[Erreur] Unit1ImpAtsCID.pas(66): '.' attendu(e) mais ';' trouvé(e)
[Erreur fatale] Project1page1.dpr(67): Impossible de compiler l'unité utilisée 'Unit1ImpAtsCID.pas'

or que j'ai ajouter QRExport   dans uses

sp40 · Answer

Quelle version de QuickReport as tu ? Visiblement le QRRTFExportFilter n'est pas dispo pour la version standard

sp40 · Answer

Poste quand même ton code pour voir... (la procédure complète où tu appelles le  QRRTFExportFilter)

sosdelphi · Answer

procedure TImpAts_CID.visClick(Sender: TObject);
begin
attestation_travail_CID.QuickRep1.Preview;
with attestation_travail_CID do begin
     with Query1 do begin
          close;
          parambyname('x').asstring := dbedit1.Text;
          open;
     end;
     QuickRep1.ExportToFilter(TQRRTFExportFilter.Create('D:\111111111'));
end;
end;

sp40 · Answer

Bon...
Quelle est ta version de QuickReport ?

(et à l'occasion, utilises les balises de code)

sosdelphi · Answer

delphi 7 et quickreport est celui qui vient avec delphi7

cantador · Answer

Bonjour,

Inutile, ça ne marchera pas...
on ne peut pas faire du Word avec QuickReport.

sosdelphi · Answer

Bonjour, 
Alors comment je peux avoir en sortie un fichier modifiable
comme j'ai de champs qui sont récupéré de ma BDD j'ai laissé du vide entre par  exemple nom et prénom (espace pour 30 caractère) mais si le nom de la personne possède  40 caractères l'affichage n'est pas net) et s'il possède 20 caractères il y a trop de vide entre les champs.
merci

Probleme de sortie

11 réponses

Votre réponse

Discussions similaires