creer un apercu avant impression d'un StringGrid

Version imprimable

11/07/2006, 21h41
blondelle

creer un apercu avant impression d'un StringGrid

Je souhaiterais faire un apercu avant impression d'un StringGrid je ne vois pas quel composant utiliser en sachant que je dois respecter les proportions de la page que l'on va imprimer la j'ai besoin d'un coup de pouce car je n'ai rien trouve d'interressant pour demarrer.
12/07/2006, 11h45
blondelle

En utilisant un Timage comme support pour l'apercu est il posssible de le rendre proportionnel a une feuille A4 en ayant du texte et du graphique.
Pour du graphique il y a je crois la fonction StretchDraw.
Pour le texte je n'ai encore rien trouve.
J'ai besoin d'un coup de pouce pour demarrer svp.
13/07/2006, 22h25
blondelle

Je commance a entrevoir une solution a mon probleme j'ai effectue quelques calculs manuel pour commencer.
Je pense utiliser la fonction GetDeviceCaps
Pour commencer a programmer je ne sais pas recuperer le Handle de l'ecran et de l'imprimante quelque soit l'endrois ou on le fait dans le programme, je ne voudrais pas activer l'imprimante pour recuperer le Handle mais en meme temps je voudrais recuperer celui de l'ecran.
20/07/2006, 19h20
Mattetfamilly

Salut Blondelle,

Super ton nouvel avatar...
(-je suis peut être à la bourre)

Pour ce qui est de l'aperçu ça t'intéresserait de le faire avec un QuickReport ou en fait tout simplement un code pour l'impression de la grille par un QuickReport qui lui contient une fonction d'aperçu?

Mattetfamilly.

P.S. je viens de revoir tes autres mails et je pense que cela ne t'intéresse pas, ce n'est pas du tout l'appproche que tu as eu pour le reste de ton dévellopement...
20/07/2006, 19h40
blondelle

merci Mattetfamilly

Mattetfamilly a ecrit:

Citation:

Salut Blondelle,

Super ton nouvel avatar...
(-je suis peut être à la bourre)

C'est un cadeau du pere noel 2005 car j'ai ete tres sage.

Je suis interresse par ton code car la en ce moment je seche sur mon probleme je n'arrive pas a mettre en pratique mes idees.
21/07/2006, 21h47
blondelle

Mattetfamilly a ecrit

Citation:

Pour ce qui est de l'aperçu ça t'intéresserait de le faire avec un QuickReport ou en fait tout simplement un code pour l'impression de la grille par un QuickReport qui lui contient une fonction d'aperçu?

Je suis interresse par ta fonction d'appercu Mattetfamilly pour l'impression du StringGrid
24/07/2006, 21h46
Mattetfamilly

a suivre

Bonsoir,

Ok je me mets un mail pour penser à le récupérer demain au boulot.

Mattetfamilly
24/07/2006, 22h00
blondelle

Mattetfamilly a ecrit

Citation:

Bonsoir,

Ok je me mets un mail pour penser à le récupérer demain au boulot.

Mattetfamilly

Je te remercie Mattetfamilly je te tiens au courant de ce que je pourrez faire comme apercu
25/07/2006, 16h00
BOUBOU81

Moi je le fais, et je passe par le TImage et cela fonctionne parfaitement.
As tu déjà effectué l'impression du StringGrid?
Pour ce qui est du GetDeviceCap c'est aussi cela que j'utilise pour les fonts
25/07/2006, 16h21
blondelle

BOUBOU81 a ecrit:

Citation:

Moi je le fais, et je passe par le TImage et cela fonctionne parfaitement.
As tu déjà effectué l'impression du StringGrid?
Pour ce qui est du GetDeviceCap c'est aussi cela que j'utilise pour les fonts

Oui j'ai fais l'impression du StringGrid le code a fais l'objet d'un post sur le Forum.
L'apercu serait pour effectuer la mise en page
- NB de colonne par page.
- NB de ligne par page.
- Marges Haute.
- Marge Gauche.
ce qui demandera de definir les dimensions des rectangles du StringGrid et on visualisera ce que l'on va imprimer sans imprimer.
25/07/2006, 16h56
BOUBOU81

Perso , je ne sais pas si c'est la meilleur solution je passe par des MetaFile
et le metafilecanvas apres pour l'apercu je passe avec StretchDraw
mon metafilecanvas au canvas de mon TIMAGE, ou draw sur le Printer
Et cela fonctionne correctement si tu recuperes la taille de la page d'imprimante, et que tu mets ton metafilecanvas a la taille de cette page
25/07/2006, 17h17
blondelle

BOUBOU81 a ecrit:

Citation:

Perso , je ne sais pas si c'est la meilleur solution je passe par des MetaFile
et le metafilecanvas apres pour l'apercu je passe avec StretchDraw
mon metafilecanvas au canvas de mon TIMAGE, ou draw sur le Printer
Et cela fonctionne correctement si tu recuperes la taille de la page d'imprimante, et que tu mets ton metafilecanvas a la taille de cette page

La meilleur solution est celle qui fonctionne.
Je ne connais pas les MetaFile je ne sais donc pas les utiliser.
A tu un exemple pour pouvoir demarrer.
Je te remercie d'avance.
25/07/2006, 19h31
blondelle

J'ai une idee qui vient de me traverser l'esprit est ce qu'il est possible de copier, ou transferer le Canvas par exemple de l'impression, vers le Canvas d'un TImage.
Si oui comment faire.

mon code...

Bonsoir,

Moi aussi, à un moment donné, je passes par du Metafile:
pour déterminer le nombre de page / enregistrer / imprimer / et il semble aussi pour l'aperçu.

Voici un petit programme qui fait impression / sauvegarde / chargement / consultation / réimpression.
Pièce jointe 3229
Dans la fenêtre Etalcomplet, il yua quelques fonctions supplémentaires pour l'impression d'étiquettes.

Ce code permet:

d'imprimer une grille avec titre en 2 lignes (revoir si les titres sont nécessaires et s'ils ne prennent pas trop de place par rapport au grille.
de sauvegarder le fichier image de cette grille dans un fichier
de charger ce fichier pour le consulter ultérieurement.
réimprimer le contenu du fichier
Possibilité d'indiqué un n° d'identification du document avec n° et date de révision.

Attention, il utilise QuickReport et son affillié: QRPreview pour la consultation.

A priori, ce code nécessite d'être repris pour ton utilisation: insertion du code pour l'affichage et affichage de la fenêtre de Prévisualisation juste avant l'impression.
Dans la fenêtre Etalcomplet, juste après le code :
Code:

1 2 EtalComplet->QuickRep1->Prepare();
insére le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Vucertif->QRPreview1->QRPrinter=EtalComplet->QuickRep1->QRPrinter; Vucertif->CSpinEdit1->MaxValue=Vucertif->QRPreview1->QRPrinter->PageCount; if(Vucertif->CSpinEdit1->MaxValue==1) Vucertif->CSpinEdit1->Enabled=false; else Vucertif->CSpinEdit1->Enabled=false; Vucertif->QRPreview1->Zoom=Vucertif->CSpinEdit2->Value; Vucertif->QRPreview1->PageNumber=1; Vucertif->CSpinEdit1->Value=1; Vucertif->Label3->Caption=IntToStr(CSpinEdit1->MaxValue); Vucertif->Label2->Enabled=true; Vucertif->Label3->Enabled=true; Vucertif->Label4->Enabled=true; Vucertif->Label5->Enabled=true; Vucertif->Label6->Enabled=true; Vucertif->CSpinEdit1->Enabled=true; Vucertif->CSpinEdit2->Enabled=true; Vucertif->Imprimer1->Enabled=true; Vucertif->Printele->Enabled=true; Vucertif->ShowModal();
Et dans ce cas, tu peux supprimer les lignes de code
du type:
Code:

1 2 EtalComplet->PrintQRP
L'opérateur valide l'impression en ordonnant une impression dans la fenêtre de consultation.
Tu peux mettre un élément de menu "Annuler" avec un ModalResult=mrCancel pour que l'uitilisateur empêche la sauvegarde du fichier image si tu souhaites conserver cette sauvegarde.

Cette sauvegarde prend rapidement des proportions en octets...
Au boulot, compte tenu du nombre de fichier généré avec cette méthode (environ 5000 par an... j'ai du ajouter une fonctionnalité pour mettre dans un fichier zip le fichier généré et le résultat fut éloquent: le fichier ne faisait plus que 25% de sa taille.

BON COURAGE
:lahola: :pc:

25/07/2006, 21h02
Mattetfamilly

Oups: bonne idée mais bon courage...

Citation:

Envoyé par blondelle

J'ai une idee qui vient de me traverser l'esprit est ce qu'il est possible de copier, ou transferer le Canvas par exemple de l'impression, vers le Canvas d'un TImage.
Si oui comment faire.

J'ai déjà essayé, il semble que cela soit faisable mais je n'ai pas franchement réussi.
Le plus difficile, et j'en avais besoin était de géré les "pages"

Mattetfamilly.
25/07/2006, 21h14
blondelle

Je te remercie Mattetfamilly pour ton fichier et tes explications je vais voir comment je peus utiliser tous ca je pense en avoir pour un moment en cas de probleme je te contacterais.
encore merci
25/07/2006, 22h42
blondelle

Mattetfamilly a ecrit:

Citation:

Voici un petit programme qui fait impression / sauvegarde / chargement / consultation / réimpression.

J'ai commence a regarder ton programme j'ai corrige quelques declarations d'include par contre il y a dans la Forme "Etalcomplet" dans la fiche "certificats.cpp" un appel a CSpinEdit1 j'y ai vu un include "Cspin.h" j'ai verifie dans les fichiers include BCB il y est, mais j'ai des erreurs sur ce composant et dans les Formes je ne vois rien qui s'appelle comme cela.
26/07/2006, 20h38
Mattetfamilly

Citation:

Envoyé par blondelle

J'ai commence a regarder ton programme j'ai corrige quelques declarations d'include par contre il y a dans la Forme "Etalcomplet" dans la fiche "certificats.cpp" un appel a CSpinEdit1 j'y ai vu un include "Cspin.h" j'ai verifie dans les fichiers include BCB il y est, mais j'ai des erreurs sur ce composant et dans les Formes je ne vois rien qui s'appelle comme cela.

En effet ce sont des paquets de composant exemple de Borland.
CSPinEdit te permet de gérer un compteur dont tu limites les valeurs inférieures et supérieures.
Si le paquet n'est pas installé, c'est normal que tu ne vois pas les composants

Dans le programme il y en a trois:
1 dans la fiche Etalcomplet: gestion de l'impression de nos étiquettes d'expéditions.
Pour ce qui est de ton utilisation tu peux supprimer sa déclaration, mais aussi les fonctions suivantes sans problème pour l'impression des grilles:
AddSticker
AddStickerPos
PrintBandOfSticker
RinitIndexSticker
LoadSticker
SaveCompleteSticker

Les deux autres sont dans la fenêtre Vucertif:
Le 1er gére le zoom et le second gére la page en cours de consultation.
Si tu ne peux pas intégrer le paquet correspondant, tu devras effectuer quelques modifications.

Peux tu intégrer les composants exemple de Borland où se trouve le CSPinEDit??

Sinon je te proposerais des modifications.
26/07/2006, 20h54
Mattetfamilly

Si tu ne peux pas réintégrer le paque des exemples borland (je ne sais pas du tout comment il s'apelle et mon Builder est au boulot...)

1) dans le fichier vucertificat.h, tu crée la variable Max_Page en int.
2) dans le fichier vucertificat.cpp, tu remplaces toutes les occurences de CSPinEdit1->MaxValue par Max_Page.
3) dans le fichier vucertificat.cpp, tu remplaces toutes les occurences de CSPinEdit1->MinValue par 0 (valeur zéro).
4) dans le fichier vucertificat.cpp, en tête du fichier ajoutes:

Code:

#define MinZoom 50

5) dans le fichier vucertificat.cpp, en tête du fichier ajoutes:

Code:

#define MaxZoom 200

Remarque ce sont deux valeurs que tu pourras ajusté par lma suite en fonction du confort d'utilisation.
6) dans le fichier vucertificat.cpp, tu remplaces toutes les occurences de CSPinEdit2->MinValue par "MinZoom"
7) dans le fichier vucertificat.cpp, tu remplaces toutes les occurences de CSPinEdit2->MaxValue par "MaxZoom"
8) dans le fichier vucertificat.h, tu supprimes la déclaration de CSPinEdit1
9) dans le fichier vucertificat.h, tu supprimes la déclaration de CSPinEdit2
10) Fais un Clique droit sur ta fiche "Etalcomplet" et choisis "voir comme texte".
11) Dans le fichier texte ainsi affiché, supprimes la déclaration de CSPinEdit1
12) Dans le fichier texte ainsi affiché, supprimes la déclaration de CSPinEdit2
13) Fais un clique droit sur le fichier texte ainsi affiché ou sur son onglet et choisis "Voir comme fiche".
14) Sur la fiche Vucertif, tu mets un Edit1, en face du Label dont le caption est "Page".
15) Sur la fiche Vucertif, tu mets un Edit2, en face du Label dont le caption est "Zoom".
16) Dans le fichier vucertificat.cpp, Remplaces toutes les occurences de CSPinEdit1->Text par Edit1->Text
17) Dans le fichier vucertificat.cpp, Remplaces toutes les occurences de CSPinEdit2->Text par Edit2->Text
18) Dans le fichier vucertificat.cpp, Remplaces toutes les occurences de CSPinEdit1->Enabled par Edit1->Enabled
19) Dans le fichier vucertificat.cpp, Remplaces toutes les occurences de CSPinEdit2->Enabled par Edit2->Enabled

20) Dans le fichier vucertificat.cpp, Remplaces toutes les occurences de CSPinEdit1->Value tel que:
si c'est du type CSPinEdit1->Value = ...; alors mets: Edit1->Text=IntToStr(...);
sinon remplaces CSPinEdit1->Value par StrToInt(Edit1->Text)
21) Dans le fichier vucertificat.cpp, Remplaces toutes les occurences de CSPinEdit2->Value tel que:
si c'est du type CSPinEdit2->Value = ...; alors mets: Edit2->Text=IntToStr(...);
sinon remplaces CSPinEdit2->Value par StrToInt(Edit2->Text)

Après cela, je penses que cela devrait fonctionner.
26/07/2006, 20h56
blondelle

Mattetfamilly a ecrit:

Citation:

En effet ce sont des paquets de composant exemple de Borland.
CSPinEdit te permet de gérer un compteur dont tu limites les valeurs inférieures et supérieures.
Si le paquet n'est pas installé, c'est normal que tu ne vois pas les composants

J'ai regarde dans les fichiers borland mais je n'ai rien trouve a quel endroit ca se trouve

sinon est ce que CSpinEdit1 est une sorte de Tedit
26/07/2006, 20h59
blondelle

Apparamment tu ma pris de vitesse tu repond avant d'avoir vu la question est ce que tu lis dans les pensees.
26/07/2006, 21h05
Mattetfamilly

Ah ah...
Je me suis douté en réfléchissant à table que ce ne serait pas évident de trouver le fameux paquet...

Bon courage...

[Question]
Pourquoi as tu du modifié des include?
et lesquels si ce n'est pas CSPin.h?
[/Question]
26/07/2006, 21h50
blondelle

Mattetfamilly a ecrit:

Citation:

Ah ah...
Je me suis douté en réfléchissant à table que ce ne serait pas évident de trouver le fameux paquet...

Je n'ai pas eut le temps de lancer une recherche sur les disques, mais la je vais le faire

J'ai modifie

Citation:

//#include "C:\0_Prog_EnCours\commun\certificats.h"
en
#include "certificats.h"

commme je n'ai pas ce fichier a cette adresse j'ai pense que cela devrait aller
29/07/2006, 21h49
Mattetfamilly

Alors?

Cela t'as dépanné?

Tu t'en est sorti?

Mattetfamilly.
01/08/2006, 11h01
blondelle

Mattetfamilly a ecrit:

Citation:

Alors?

Cela t'as dépanné?

Tu t'en est sorti?

Je ne m'en sort pas je n'ai que des erreurs en plus je ne connais pas le composant Qreport, et rentrer dans le code dans ces conditions c'est trop dificile, je vais donc laisser de cote pour l'instant, je suis parti pour passer trop de temps a chercher pour ne pas avancer.

Je te remercie Mattetfamilly pour tes explications et le mal que tu t'ai donne, mais il me faut progresser avant de pouvoir continuer sur ce programme.
08/08/2006, 21h55
Mattetfamilly

Demain je suis en déplacement et la voiture que l'on m'a confié n'a pas d'autoradio alors durant le trajet pour rentrer tout à l'heure (environ 1heure de trajet...) j'ai pensé programmation et j'ai repensé à ton topic...

Est-ce qu'avec un pdfCreator, tu ne pourrais pas gérer ton aperçu?
Tu imprimes ta grille avec pdfCreator vers un fichier temporaire, tu lances Acrobat avec pour paramètre ton fichier temporaire via une commande execl ou spawnl à laquelle tu mets le paramètre qui te mets ton application "en pause" tant que Acrobat n'est pas fermé...
Lorsque Acrobat a été fermé, juste après ta commande execl ou spawnl tu mets un messages oui/non pour demander à l'utilisateur s'il veut imprimer le fichier aperçu? si c'est oui tu fais un Shellececute avec la commande Print...

ou bien après l'impression avec PdfCreator, tu charges le pdf dans l'ocx d'acrobat que tu auras placé sur la Form pour l'aperçu...
Ces solutions te permettent aussi de conserver un pdf du fichier imprimé en le renommant. Pour cela tu peux aussi ajouter un message oui/non pour lui demander s'il faut conserver un pdf de cette impression...

Je sais, c'est tordu, compliqué et très particulier... mais qui sait...
08/08/2006, 22h07
blondelle

Je te remercie Mattetfamilly de penser a moi.
Je suis parti sur un Timage j'arrive a faire un apercu dans une boucle, je tente de le modifier pour pouvoir le commander par deux boutons afin d'avancer ou reculer dans le fichier, c'est un peu long a debugger, mais je pense y arriver, je posterai le code des que j'aurais quelque chose qui fonctionne.

Citation:

Envoyé par blondelle

Je te remercie Mattetfamilly de penser a moi.
Je suis parti sur un Timage j'arrive a faire un apercu dans une boucle, je tente de le modifier pour pouvoir le commander par deux boutons afin d'avancer ou reculer dans le fichier, c'est un peu long a debugger, mais je pense y arriver, je posterai le code des que j'aurais quelque chose qui fonctionne.

L'idée me parait bonne... Est-il possible de la tourner autrement:
Tu crée une image Timage pour chaque page en dynamique (attention, cela signifie qu'il faudra les supprimer à la fin.
Au lieu de mettre la grille dans le canvas de l'imprimante, tu la mets sur des images qui te permettent de faire de la prévisualisation ensuite tu imprimes les images ou tu imprimes chaque image sur le canvas de l'imprimante...

Le code pour une page serait du style:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 TImage *LaPage[25]; // Variable globale hors des boucles //S'il y a plus de 25 pages à prévoir augmenter le //nombre 25 int PageEnCoursdimpression; //Variable de boucle for(PageEnCoursdimpression=0;PageEnCoursdimpression<nbDePageTotale;PageEnCoursdimpression++) { LaPage[PageEnCoursdimpression]=new Timage(TForm2); LaPage[PageEnCoursdimpression]->Parent=Form2; LaPage[PageEnCoursdimpression]->Name="Page"+IntToStr(PageEnCoursdimpression); LaPage[PageEnCoursdimpression]->Visible =false; LaPage[PageEnCoursdimpression]->Width=Printer()->PageWidth; LaPage[PageEnCoursdimpression]->Height=Printer()->PageHeight; LaPage[PageEnCoursdimpression]->Center=true; LaPage[PageEnCoursdimpression]->AutoSize=false; LaPage[PageEnCoursdimpression]->Stretch=true; //Code pour l'impression de la grille de la page en cours d'impression dans le canvas de l'image LaPage[PageEnCoursdimpression]; LaPage[PageEnCoursdimpression]->Update(); } //Prévisualisation if(Form2->ShowModal()==mrOk) {//La prévisualisation a répondu ok pour imprimer la grille visualisée. ///impression Printer()->BeginDoc() for(PageEnCoursdimpression=0;PageEnCoursdimpression<nbDePageTotale;PageEnCoursdimpression++) { Printer()->NewPage(); Printer()->Canvas->StrechDraw(LaPage[PageEnCoursdimpression]->Canvas,0,0,Printer()->PageWidth,Printer->PageHeight); } Printer()->EndDoc(); } for(PageEnCoursdimpression=0;PageEnCoursdimpression<nbDePageTotale;PageEnCoursdimpression++) delete(LaPage[PageEnCoursdimpression]);
Je ne suis pas sûr exactement du nom de chacune des fonctions, mais il est certains qu'elles existent (je suis à la maison et je n'ai pas le buider sous le coude... mais au boulot, où je n'ai toujours pas obtenu une connexion internet digne de ce nom...)

09/08/2006, 22h57
blondelle

Je te remercie Mattetfamilly.
l'apercu ne me servira pas pour imprimer j'ai une fonction qui fait cela tres bien et je pense l'appeler a partir de l'apercu, je pense m'en servir juste pour faire des verifications sur les pages, et parametrer la mise en page.
C'est surtout le temps qui me manque comme tout le monde.
Merci pour ton code si tu l'ecrit sans bcb chapeau car j'en suis incapable.