impression en builder c++6

Version imprimable

11/05/2010, 19h03
youkami

impression en builder c++6

Slt, je prepare pour mon memoire et je travail avec builder c++ 6 sur une application qui gere les employes d'une societe, et j'ai besoin d'imprime des fiches,mais je ne sais pas comment ,aider moi svp c'est vraiment urgent
mercie d'avance
11/05/2010, 19h17
dz_robotix

@youkami,

tes fiches elles sont où exactement?
11/05/2010, 20h01
pottiez

Salut,
pour faire une impression il faut utiliser la classe TPrinter et ses méthodes, mais certain objets comme le TChart par exemple permette d'imprimer directement leurs rendu si tu leur passe ton objet TPrinter.
Fait une recherche sur cette objet ;)
11/05/2010, 20h03
cedni

Salut

Vois çà , c est tres instructif

http://jp-blondelle.developpez.com/t...?page=sommaire
12/05/2010, 14h28
youkami

slt dz robotix, mes fiches sont dans mon disque dur

Salut

Non ?

Code:

1
2
3
4
5
6
7
8
9
10
OpenDialog1->InitialDir=ExtractFilePath(Application->ExeName) ;
OpenDialog1->Execute() ;
 
ShellExecute(Handle,  // Handle de la fenêtre parent
                  "print", // Action à effectuer
                  OpenDialog1->FileName.c_str(), // Fichier
                  NULL, // Paramètres
                  NULL, // Répertoire par défaut
                  SW_SHOW // Manière d'afficher
                  );

12/05/2010, 16h36
youkami

slt les amis, les fiches ils doivent etre integre dans l'application
12/05/2010, 17h10
cedni

Elles sont de quel format tes fiches ??
12/05/2010, 17h55
youkami

ils sont sous forme word(par example le titre de conge , ordre de mission.....)
12/05/2010, 18h01
cedni

Et que veux tu faire exactement de tes fiches ?

Sois precis
12/05/2010, 18h20
youkami

je doit remplir ces fiches automatiquement(nom,prenom.....)et apres l'imprimer
12/05/2010, 19h19
dz_robotix

Salut,

Tu peux utiliser les composants Quick Report, ainsi tu pourras créer tes propres fiches et les remplire automatiquement (généralement en se connectant à une BDD) et les imprimer bien sur.

Essaie de voir l'onglet QReport.;)
12/05/2010, 21h20
blondelle

Salut youkami
Si tu ne desire pas utiliser un composant dedie, tu peu realiser une selection et copie de la page Word a imprimer, la coller sur le Canvas d'un Metafichier et imprimer ce Metafichier, il y a dans le lien fourni par cedni un exemple d'impression d'une copie d'ecran utilisant cette technique.
17/05/2010, 15h08
youkami

slt dz rebotix comment je peut utilise le QReport svp
17/05/2010, 16h55
dz_robotix

De chez Delphi,

tu pourras t'inspirer:

http://delphipage.free.fr/quickreport.html

http://nono40.developpez.com/tutorie...i/quickreport/

Citation:

Envoyé par youkami

slt dz rebotix comment je peut utilise le QReport svp

Pourquoi utiliser un composant alors que l'on peut faire cela par programme

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h>
#include <Clipbrd.hpp>
#include <Printers.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSWord, vWDocuments, vWDocument, vFileName ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
        {
    vMSWord = Variant::GetActiveObject("Word.Application");
//    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
vMSWord.OlePropertySet("Visible", true);
 vFileName = "c:\\Debut de lettre.doc";
 vWDocuments = vMSWord.OlePropertyGet("Documents");
 vWDocument = vWDocuments.OleFunction("Open", vFileName);
 vMSWord.OlePropertyGet("Selection").OleFunction("WholeStory");
 vMSWord.OlePropertyGet("Selection").OleProcedure("Copy");
 TMetafile *pMetafile = new TMetafile;
 pMetafile->Assign(Clipboard());
  // imprimer
 Printer()->BeginDoc();
 Printer()->Canvas->Draw(0, 0, (pMetafile ));
 Printer()->EndDoc();
 delete pMetafile;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    vWDocuments.OleFunction("Close", NULL, NULL);
    vMSWord.OleFunction("Quit");
    // on libere les Variants
    vMSWord = Unassigned;
Application->Terminate();
}
//---------------------------------------------------------------------------

ce code ouvre word selectionne tout le contenu de la feuille (image compris) le colle sur un TMetafile et imprime texte et image, il ne reste qu'a gerer les marges et la presentation

Mais j'ai l'impression qu'il fait une gestion de personnel, du coup je lui ai conseillé les QReport, pour récuperer les informations concernants les employés à partir d'un BDD et les afficher selon la personne dans les fiches puis les imprimer.

Citation:

Envoyé par blondelle

Pourquoi utiliser un composant alors que l'on peut faire cela par programme

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h>
#include <Clipbrd.hpp>
#include <Printers.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSWord, vWDocuments, vWDocument, vFileName ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
        {
    vMSWord = Variant::GetActiveObject("Word.Application");
//    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
vMSWord.OlePropertySet("Visible", true);
 vFileName = "c:\\Debut de lettre.doc";
 vWDocuments = vMSWord.OlePropertyGet("Documents");
 vWDocument = vWDocuments.OleFunction("Open", vFileName);
 vMSWord.OlePropertyGet("Selection").OleFunction("WholeStory");
 vMSWord.OlePropertyGet("Selection").OleProcedure("Copy");
 TMetafile *pMetafile = new TMetafile;
 pMetafile->Assign(Clipboard());
  // imprimer
 Printer()->BeginDoc();
 Printer()->Canvas->Draw(0, 0, (pMetafile ));
 Printer()->EndDoc();
 delete pMetafile;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    vWDocuments.OleFunction("Close", NULL, NULL);
    vMSWord.OleFunction("Quit");
    // on libere les Variants
    vMSWord = Unassigned;
Application->Terminate();
}
//---------------------------------------------------------------------------

ce code ouvre word selectionne tout le contenu de la feuille (image compris) le colle sur un TMetafile et imprime texte et image, il ne reste qu'a gerer les marges et la presentation

17/05/2010, 18h07
blondelle

Salut dz_robotix
Je ne pense pas, mais c'est a lui de nous le dire, et puis ce bout de code interessera certainement les visiteurs
17/05/2010, 18h39
youkami

slt blondelle mais ce code ne marche pas
17/05/2010, 19h26
blondelle

Ce code fonctionne chez moi, sur quelle ligne a tu une erreur
20/05/2010, 11h29
youkami

slt dz robotix j'aimerai bien utilise Qreport mais j'ai pas bien compris commemt il fonctionne, si vous pouvais m'aide encore plus svp :?