Discussion :

[camatchou]

Bonjour tout le monde

j'utilise Delphi 7 et quickreport pour l'impression de mes états de sorties
Je procède comme ceci : je visualise puis j'imprime mon état avec la souris,
mon objectif c'est l'impression avec la [touche entrée]

Merci d'avance

[SergioMaster]

Bonjour,

cela implique certainement (mes souvenirs quickreport ne sont pas récent) de faire ne sorte que le bouton d'impression de la prévisualisation soit le bouton par défaut si j'ai bien compris la demande.

À mon avis c'est seulement en utilisant son propre "prévisualisateur" (TQRPreview si ma mémoire est bonne) que ce sera possible.
Comment ? Je ne me souviens plus exactement mais inspirez-vous de ce que j'ai pu écrire dans ce forum, (forum où aurait dû être posé cette question) ,
j'en parle par exemple ici

[camatchou]

Bonjour tout le monde,

Merci SergioMaster pour la réponse, je n'ai pas trouvé de solution à mon problème dans les liens que vous avez proposé,
il me semble que quickreport ne gère pas les évenements pendant la prévisualisation des états,
j'ai même essayé d'utiliser ONKEYDOWN de la forme , rien ne marche, apparemment aucune relation entre la forme et quickrep.
Je continue mes recherches et je vous tiendrai au courant.
Merci.

[solilog]

Bonjour
J'avais cela fait (il y a ...). J'avais mis la fenêtre Preview dans le panel d'une autre Form qui elle avait un tButton avec Default à True. Le panel "parent" contenait le preview et le tButton de la Form récupérait le ENTER pour imprimer, ou j'utiliser l'évènement OnKeypressed de la form (avec Form.KeyPreview à true) pour récupérer le #13 du ENTER. Les deux fonctionnaient en D7.
solilog

[SergioMaster]

C'est exactement à ce procédé que je pensais

[camatchou]

Bonjour,

Merci Solilog, j'ai compris un petit peut le principe de ton idée,
je vais essayer de le mettre en application.

Merci.

[camatchou]

Bonjour solilog,

Bête et discipliné comme un robot, j'ai suivi pas à pas les étapes que tu as mentionné
dans ta proposition et l'impression ne se fait que par la souris, je ne sais pas ce que j'ai loupé,
je ne perd pas espoir, je continu mes recherches.

Merci.

[SergioMaster]

Bonjour,

et si vous nous fournissiez la partie code ?

[solilog]

Hello,
Comme le dit Sergio, avec du code c'est mieux.
Pouvez-vous m'indiquer (au moins çà):
- le code où la QuickReport form est créée (c'est là qu'il faut la mettre dans le panel (QRepForm.Parent := Panel1);
- le code où le preview est appelé
Et je regarderai ce soir.
solilog

[camatchou]

Bonjour,

Merci infiniment pour vos soutiens ,
Je vais vous résumer la situation, j'ai deux formes :
- fetudiant : La forme qui contient le bouton qui fait l'appel de l'impression

Code :

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

bl_e.quickrep1.preview;

- bl_e : La forme qui contient le panel qui lui contient le quickrep1 et le tbutton
le keypreview de BL_E est TRUE
le TBUTTON est à DEFAULT:= true;
au niveau du ONKEYPRESS :

Code :

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

if key=#13 then quickrep1.Print;

la prévisualisation se fait correctement, mais l'impression ne se fait qu'avec la souris, la touche Entrée ne fonctionne toujours pas

Bizarre ce Quickreport

[SergioMaster]

Bonjour,

ce n'est pas assez comme information. On vous demande un dfm, un .pas voir un .dpr (pas forcément celui de votre programme).
Un programme test, sans même des données, peut suffire à voir où vous vous fourvoyez. Dans vos explications je ne vois même pas le TQRPreview

[solilog]

Bonjour
Bon c'est pas mal tu arrives à afficher le preview dans un panel, on avance.
Je n'ai plus QR avec ce Delphi, je vais t'aider sans.
Tu affiches ton Preview comme tu le fais déjà.
1 - sans tButton pour le print
- la form qui contient le panel (qui affiche le preview) est KeyPreview=True
- la procedure OnKeyPressed de cette form contient ton code

Code :

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

1
2
3
4
5
procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key=#13) and assigned(bl_e) and bl_e.Visible then
    bl_e.quickrep1.print;
end;

J'ai ajouté assigned() et visible pour ne pas que la form tente d'imprimer hors preview.

2 - avec tButton contenant le print
- le bouton doit être hors du panel qui lui est bloqué par le preview. Ou tu le mets dans un autre panel en dessous),
- il est bien en default=True
- il contient + ou - le même le code

Code :

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

1
2
3
4
5
procedure TForm2.Button1Click(Sender: TObject);
begin
  if assigned(bl_e) and bl_e.Visible then
    bl_e.quickrep1.print;
end;

Attention c'est 1 ou 2, tu ne mets pas de tButton si tu utilises 1
et inversement pas de KeyPreview ni FormKeyPress() si tu tilises 2
solilog

[camatchou]

Bonjour,

Je mets à votre disposition en liaison un petit programme en y intégrant les dernières indications de Solilog.
merci