Discussion :

[mamou30]

Est ce que c'est possible de visualiser une état (ex: client12-05-2007.QRP)
avec opendialog.filename(client.QRP) directe pour visualisation

[mamou30]

j'ai chercher un peut et j'ai trouvé une unité qui s'occupe de cette méthode
utilisation de l'unité QRExtra avec la classe TQRPHandler

[mamou30]

je veut faire une état avec quick report ver 3.0.5
j'ai posé un quickrep1 dans une forme et quickrep2 dans une autre forme
et cela pour une impression d'une carte (recto_verso)
quickrep1.preview;
quickrep2.preview;
jusque la je visualise les deux face mais l'ors de fermeture de la dernière état
j'ai un message d'erreur de QRStandardPreview existe déja
l'ors de ce message j'ai pensé a libérer cette classe

Code :

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

1
2
3
4
procedure TForm1.QuickRep1AfterPreview(Sender: TObject);
begin
if ClassName = 'TQRStandardPreview' then Close;
end;

j'ai tester avec quickrep1 puis j'ai ajouter le même code

Code :

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

1
2
3
4
procedure TForm2.QuickRep1AfterPreview(Sender: TObject);
begin
if ClassName = 'TQRStandardPreview' then Close;
end;

mais sans sucés est ce qui'il ya une bonne méthode a ca et merci

[smail21]

bonjour
je viens d'avoir le même message d'erreur, pourtant j'ai des quickreports sur la même fiche, et j'ai pourtant l'habitude de faire comme ça sans erreur.
Que dois-je faire?

[anapurna]

salut

utilise le qrprinter pour charger le fichier

exemple :

Code :

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

1
2
3
4
5
6
7
8
 
   if OpenDialog.Execute then 
   begin
	if Assigned(QrPreview1.QRPrinter) then 
           QrPreview1.QRPrinter.Free;  // on efface si l'instance existe deja
	QrPreview1.QRPrinter := TQRPrinter.Create;
        QrPreview1.QRPrinter.Load(OpenDialog.FileName);
   end;