Discussion :

[Andry]

Salut à tous.
J'ai déjà posté cette question mais j'ai pas de réponse concrete.
J'ai une application MDI.
Une fiche avec Compo QuickReport.

Comment puis je faire pour pouvoir imprimer correctement :
Dois je mettre la form contenant le QuickRep à FsMDI aussi ou le laisser à fsNormal.
COmment pourrait je créér ma fiche at runtime.

Merci de vos réponse

[JustMe]

J'ai une solution à te proposer.

1 - Tu utilise Une Fiche MDIChild avec un QRPreview1 mais pas un QuickRep. (La fiche est nommée par Example FormPreview).
2 - Dand la fiche qui contient le QuickRep (nommée par example FormQuickRep) et dans l'événement du QuickRep OnPreview Tu met :

Code :

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

1
2
FormPreview.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
{Cette ligne de code passe la prévisualisation de ton état de la fenêtre standard de prévisualisation vers le QRPreview.}

3 - Enfin pour previsualiser ton état tu crée la Form de prévisualisation et tu appele le preview du QuickRep comme connu.
avec :

Code :

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

1
2
FormPreview:=TFormPreview.Create(Application);
FormQuickRep.QuickRep1.Preview;

Normalement ça doit marcher. j'espère que ça va t'aider.

[Andry]

Merci Peti_Delphiste.

Est ce que la form qui contient QuickRep est aussi du Style FsMDIChild ou Fnormal.?

Merci

[JustMe]

La form qui contient le QuickRep n'est qu'un parent pour le quickrep (on ne peut pas mettre l'objet dans le vide) elle doit avoir fsNormal pour qu'elle ne soit pas visible.

[Andry]

Ca ne marche pas encore . J'ai une message d'erreur à cette endroit

Code :

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

1
2
 
PRepInForm.QRPreview.QRPrinter := QuickRep.QRPrinter;

Le message : 'Access violation at address 055A06F in module SAV.exe. Read of address 000002F0' quand je lance l'appli .
Et si je clic sur Ok ca continue mais l'impression ne se fait pas

Je vais voir pourquoi

A+

[JustMe]

Tu es sur que tu a créé la forme qui contient le QRPreview avant l'appel de la méthode preview du Quickrep?

[Andry]

Bien sur que oui Petit_Delphiste

J'ai mis FReport : Form Contenant QuickRep à FsNormal et je l'ai laissé en auto création.
J'ai mis dans FPreview une form en fsMDIChild un QrPreview
Puis j'ai créé une procedure qui va faire le necessaire.

Code :

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

1
2
3
4
5
 
procedure TFReport.QuickRepPreview(Sender: TObject);
begin
    FPreview.QuickPreview.QrPrinter := QuickRep.QRPrinter;
end;

et au moment de l'apercu

Code :

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

1
2
3
4
5
6
7
 
procedure TMainForm.PreviewFiche;
var Child : TFPreview
begin
    child :=  TFPreview.Create(Application);
    FReport.QuickRep.Preview
end;

mais ça bug au moment du passage de la previsualisation

A+

[JustMe]

procedure TFReport.QuickRepPreview(Sender: TObject);
begin
FPreview.QuickPreview.QrPrinter := QuickRep.QRPrinter;
end;

et au moment de l'apercu

procedure TMainForm.PreviewFiche;
var Child : TFPreview
begin
child := TFPreview.Create(Application);
FReport.QuickRep.Preview
end;

Tu as une forme nommée FPreview ensuite tu crée une form nommée child c'est la qu'il ne trouve pas la forme FPreview dans

Code :

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

FPreview.QuickPreview.QrPrinter := QuickRep.QRPrinter;

Alors dans ta procedure de prévisualisation tu écrit :

Code :

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

1
2
3
4
5
procedure TMainForm.PreviewFiche; 
begin 
    FPreview :=  TFPreview.Create(Application); 
    FReport.QuickRep.Preview 
end;

et pas question de child ici .
j'espère que ca marcherait cette fois-ci.

[Andry]

J'ai finalement trouvé la source du problème Petit-Delphiste en l'executant pas à pas.
J'ai du mettre FPreview en variable global dans MainUnit au lieu de mettre FPreview en variable local de la procedure MainForm.Preview.

Maintenant j'arrive à avoir l'apercu.

Merci à vous tous