impression en builder c++6

**youkami** · 11/05/2010, 19h03

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

**dz_robotix** · 11/05/2010, 19h17

@youkami,

tes fiches elles sont où exactement?

**pottiez** · 11/05/2010, 20h01

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

**cedni** · 11/05/2010, 20h03

Salut

Vois çà , c est tres instructif

http://jp-blondelle.developpez.com/t...?page=sommaire

**youkami** · 12/05/2010, 14h28

slt dz robotix, mes fiches sont dans mon disque dur

**cedni** · 12/05/2010, 15h28

Salut

Non ?

Code :

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

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
                  );

**youkami** · 12/05/2010, 16h36

slt les amis, les fiches ils doivent etre integre dans l'application

**cedni** · 12/05/2010, 17h10

Elles sont de quel format tes fiches ??

**youkami** · 12/05/2010, 17h55

ils sont sous forme word(par example le titre de conge , ordre de mission.....)

**cedni** · 12/05/2010, 18h01

Et que veux tu faire exactement de tes fiches ?

Sois precis

**youkami** · 12/05/2010, 18h20

je doit remplir ces fiches automatiquement(nom,prenom.....)et apres l'imprimer

**dz_robotix** · 12/05/2010, 19h19

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.

**blondelle** · 12/05/2010, 21h20

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.

**youkami** · 17/05/2010, 15h08

slt dz rebotix comment je peut utilise le QReport svp

**dz_robotix** · 17/05/2010, 16h55

De chez Delphi,

tu pourras t'inspirer:

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

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

Envoyé par youkami

slt dz rebotix comment je peut utilise le QReport svp

**blondelle** · 17/05/2010, 17h45

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

Code :

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

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

**dz_robotix** · 17/05/2010, 18h01

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.

Envoyé par blondelle

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

Code :

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

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