Impression et QuickReport

Une précision s'impose : j'utilise Delphi 5 entreprise et le QuickReport livré avec.

Mon problème est lié à une DBGrid que j'aimerais imprimer par un QuickReport pour pouvoir ajouter des infos autres que le contenu de ma DBGrid.
Mon problème n'est pas lié à ma DBGrid mais à mon QuickReport.

Je m'explique :

J'ai ajouté une boîte de dialogue dans la forme où est ma DBGrid pour configurer une imprimante.
Je récupère les infos de configuration de l'imprimante (taille papier, orientation) par l'API Windows.
Je crée un QuickReport avec cette configuration. Je visualise ou non mon QuickReport (la visualisation n'est pas obligée et l'option sera d'ailleurs supprimée)

Jusque là pas de problème cela fonctionne comme je veux.

Le hic c'est quand j'imprime : l'imprimante n'est pas configurée.
Donc si par défaut elle était en A5 avant le lancement du programme, si je la configure en A4 par programme et que j'applique cela à mon QuickReport, quand je l'imprime, je n'ai que ce qui rentre dans un format A5. Pourtant quand je visualise le QuickReport toutes les données y sont.

Qu'est-ce que j'ai oublié ?
Cela fait un moment que je tourne là dessus et je suis à court d'idées !

Merci pour votre aide.

as tu mis à jour la bonne imprimante dans ton report ? :
qrmonrapport.PrinterSettings.PrinterIndex := Numero_imprimante_danswindows;

Oui.
Et de toute façon si j'utilise l'imprimante par défaut je devrais retrouver les paramètres que je lui ai redéfinis puisque si on ne donne pas printerindex c'est l'imprimante par défaut qui est prise, non?

si tu lances l'impression avec le bouton imprimer dans l'écran de prévisualisation, est-ce que tu as le même problème ?

Même en lançant l'impression avec le bouton du quickreport je n'ai pas le bon résultat :(
D'ailleurs si je vais voir la configuration de l'imprimante par le bouton du quickreport c'est celle qui y était au lancement du programme que je vois et pas celle que je lui ai donnée.

Dans la doc il est dit que le quickreport applique automatiquement les infos de taille papier à l'imprimante mais visiblement ce n'est pas ce qui ce passe.
Peut-être à cause du custom ?

Pour générer mon quickreport j'ai utilisé le code mis à disposition par Stephane Vidouse ( http://svidouse.developpez.com/impression-grille/ ).

je joins un projet exemple qui je l'espère pourra t'aider.

// this function retrieves the current user selection of
// bin code. It can easily be adapted to include other
// DevMode members, like collate, print quality etc
// Global variables may be set, allowing other parameters to be
// retrieved. See 'UserCollateCode' below.

salut

a priorie tu n'applique pas le choix que tu fait

pour cela il te faut faire ceci

Code:

---

1 2 3 4 5 6

QRPreview.QRPrinter.PrintSetup; if Assigned(QuickRep) then begin QuickRep.PrinterSettings.ApplySettings(QRPreview.QRPrinter); end;

---

ne connaaissant pas ton code il faut assigne la printer de ta preview au quickreport

@+ Phil

Pour Zarbouine :

Le code ne peut pas fonctionner car il y a des évenements du quickreport que je n'ai pas dans ma version (j'ai la version gratuite fournie avec Delphi).


Pour Anapurna :
Je ne passe pas par un QrPreview.

Je fais un Prepare pour générer mon QuickReport et ensuite je fais soit un QuickReport.preview pour visualiser ou un QuickReport.print pour imprimer directement sans visualiser.

Conclusion : je tourne toujours en rond !

En fait le problème vient du fait que j'ai mis papersize à custom et que j'ai ensuite défini les hauteur et largeur de page.
En effet si je met A4, A3, A5 ... à la place de custom, l'imprimante est bien configurée.
J'ai donc contourné le bug et résolu mon problème en proposant un choix de papier pour mettre dans papersize les valeurs prédéfinies connues.

Merci de vous être penchés sur mon problème.