Création d'un document (imprimable, aperçu, exportable)

**Anified** · 23/01/2007, 11h31

Salut,

Je cherche à créer un document de cette façon:
- Ajout d'un en-tête (présent sur plusieurs pages)
- Ajout du contenu (un tableau)
- Ajout d'un bas de page

* Problème: le contenu (tableau) doit être coupé s'il y'a plusieurs pages.
* Problème: le bas de page + l'entête dépend du numéro de la page

Je dois aussi pouvoir:
* Imprimer la page
* Aperçu de la page

J'ai essayé avec le RichEdit mais il n'y a pas d'en-tête, tableaux.

Que pensez-vous de ça svp ? Que me conseillez-vous pour réaliser ça ?

**lenrok** · 23/01/2007, 12h50

Bonjour LewisNetworks,

Voici une partie d'un petit programme de gestion de tournoi. Dans laquelle se trouve la gestion des pieds de page/tête de page. le saut automatique si imformation ne tient pas sur une page.
Pour ce faire, j'utilise TMemo pour afficher le résultat et TEdit pour la saisie.
Ce TMemo sert au renvoie vers l'impression...

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
//-------------------------------------------------------------------------

#include <vcl.h>
#include <vcl\printers.hpp>
#include <Printers.hpp>
#pragma hdrstop

#include "Tournoi.h"
#include "APropos.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

//Variable de type entier pour prototypage
int           Nb_Joueur;

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  MasqueJoueur1->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ProgrammeClick(TObject *Sender)
{

  //Variable d'itération boucle de comptage
  int           i, j, cpt;
  int           CptSolution = 1;

  AnsiString Message4=("Non autorisé");

  //Variable de type caractère MasqueJoueur1
  AnsiString    Cpti;

  //Variable de type caractère MasqueJoueur2
  AnsiString    Cptj;

  //Variable de type caractère séparateur données
  AnsiString    Separateur1="Joueur N°";
  AnsiString    Separateur2=" rencontre Joueur N°";

  //Effacement zone d'affichage
  MasqueJoueur1->Lines->Clear();
  Nb_Solution->Caption="    ";
  //Variable cpt et j initialisée à 1
  cpt = 1;
  j=1;

  //Transtypage Chaîne caractère en Entier */
  Nb_Joueur  = StrToInt(Saisie->Text);

  if(Saisie->Text=="")
    {
      ShowMessage(Message4);
    }
  else
    {
      try
        {
          for(i=1;i<=Nb_Joueur;i++)
            {
              if(i==cpt)
                {
                  cpt=cpt+1;
                }
              for(j=cpt;j<=Nb_Joueur;j++)
                {
                  Cpti = IntToStr(i);
                  Cptj = IntToStr(j);
                  MasqueJoueur1->Lines->Add(Separateur1+Cpti+Separateur2+Cptj);
                  MasqueJoueur1->Lines->SaveToFile("Tournoi.txt");
                  //Mise en place compteur de Nbr de solution avec son affichage
                  CptSolution = CptSolution + 1;
                  AnsiString Solution = IntToStr(CptSolution-1);
                  Nb_Solution->Caption = Solution;
                }

            }
        }
      catch(Exception& err)
        {
          ShowMessage(err.Message);
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Configurationdelimpression1Click(TObject *Sender)
{
  PrinterSetupDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Quitter1Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Ouvrir1Click(TObject *Sender)
{
  if(OpenDialog1->Execute())
    {
      if(MasqueJoueur1->Lines->Count>0) MasqueJoueur1->Clear();
      MasqueJoueur1->Lines->LoadFromFile(OpenDialog1->FileName);
      SaveDialog1->FileName = OpenDialog1->FileName;
      
      OpenDialog1->Filter = "Fichiers texte (*.txt)";
      OpenDialog1->FileName;
    }

}
//----------------------------------------------------------------------------
void PrintFooter(TRect& rect, int lineHeight)
{
  //Création du numéro de page. La méthode DrawText()
  //requiert un paramètre char* (et non un objet String).
  char buff[10];
  wsprintf(buff, "Page %d", Printer()->PageNumber);

  //Définition du pied de page
  // Ajout de deux lignes.
  rect.Top     = Printer()->PageHeight -(lineHeight *2);
  rect.bottom  = rect.Top + lineHeight;

  //Centrage du texte.
  DrawText(Printer()->Handle, buff, -1, (RECT*)&rect, DT_CENTER);
  //Traçage d'unr ligne au-dessus du numéro de page.
  Printer()->Canvas->MoveTo(0,rect.top -2);
  Printer()->Canvas->LineTo(rect.Right, rect.Top -2);
}
//-------------------------------------------------------------------------
void __fastcall TForm1::Imprimer1Click(TObject *Sender)
{
  //Définition de la boite de dialogue Imprimer.
  if(PrintDialog1->Execute())
   {
    Printer()->Title = " GESTION TOURNOI - " + OpenDialog1->FileName;

    //Affectation de la police de l'objet à l'imprimante.
    Printer()->Canvas->Font = MasqueJoueur1->Font;

    //Calcul de la hauteur de ligne. On tient compte de la taille de la police
    //et de la résolution de l'imprimante.
    //Appel de la fonction abs(), le résultat pouvant être négatif.
    //On augmente cette valeur de 40% pour l'en tête de page.
    int lineHeight = abs(MulDiv(Printer()->Canvas->Font->Size,
    GetDeviceCaps(Printer()->Handle, LOGPIXELSY), 72));
    lineHeight *=1.4;

    //Calcul du nombre de lignes par page.
    //Trois lignes sont réservées au pied de page.
    int linesPerPage = (Printer()->PageHeight/lineHeight) - 4;

    //L'impression commence à la ligne 4, et non à la ligne 0
    //ce qui permet de définir un en tête de page.
    int lineCount = 4;

    //Envoi de la commande d'impression à Windows.
    Printer()->BeginDoc();
    TRect rect;
    rect.Top    = lineHeight;
    rect.left   = 40;
    rect.Right  = Printer()->PageWidth;
    rect.Bottom = lineHeight *2;
    DrawText(Printer()->Handle, OpenDialog1->FileName.c_str(),1,
    (RECT*)&rect,DT_CENTER);

    //Traitement iétarif des lignes.
    for(int i=0;i<MasqueJoueur1->Lines->Count;i++)
      {
        //Le pied de page est atteint, éjection de la page, impression
        //d'une nouvelle page.
        if(lineCount++==linesPerPage)
          {
            PrintFooter(rect, lineHeight);
            lineCount =4;
            Printer()->NewPage();
          }
        //Extraction de la chaîne suivante et impression à l'aide de TextOut()
        String s = MasqueJoueur1->Lines->Strings[i];
        Printer()->Canvas->TextOut(0, lineCount * lineHeight,s);
      }
    // Ce qui donne...
    PrintFooter(rect, lineHeight);
    Printer()->EndDoc();
  }
}
//-------------------------------------------------------------------------
void __fastcall TForm1::QuitterClick(TObject *Sender)
{
  Close();
}
//------------------------------------------------------------------------

void __fastcall TForm1::AproposClick(TObject *Sender)
{
  AboutBox->Left = 264;
  AboutBox->Top  = 287;
  AboutBox->ShowModal();
}

//-------------------------------------------------------------------------

void __fastcall TForm1::SaisieClick(TObject *Sender)
{
  //Saisie->Text->Clear();
}
//-------------------------------------------------------------------------

J'ai essayé aussi l'impression d'une planche de résultat sous EXCEL

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
55
56
57
58
59
60
61
62
63
...
 //Paramètres nécessaire pour l'impression d'une plache de résultat EXCEL
  float vHaut           = 2.5;
  float vBas            = 2.5;
  float vGauche         = 2.1;
  float vDroit          = 1.3;
  float vEntete         = 1.3;
  float vPieddepage     = 1.3;
  int vEchelle          = 100;
  int vPaysage          = 2;

  //Affichage Valeur Catégorie Officielle Poids
  Label1->Caption = PM1->Caption;

  vMSExcel = Variant::CreateObject("Excel.Application");
  vMSExcel.OlePropertySet("Visible", true);

  //Ouverture d'un classeur existant
  vFileName = "C:\\TOURNOI JUDO\\Etat\\Etat.xls";
  vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
  vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

  //Ouverture de la FICHE DE CALCUL     : Poule
  //du CLASSEUR                         : Etat.xls
  vSheetName = "Poule";
  vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);

  //Formatage des marges d'impression
  //Paramètre : TopMargin       Marge HAUT
  //            BottomMargin    Marge BAS
  //            LeftMargin      Marge GAUCHE
  //            RightMargin     Marge DROITE
  //            HeaderMargin    En tête
  //            FooterMargin    Pied de page
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",vHaut);
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",vBas);
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",vGauche);
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",vDroit);
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("HeaderMargin",vEntete);
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("HeaderMargin",vPieddepage);

  //Echelle d'impression
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("Zoom",vEchelle);

  //Definition orientation page d'impression
  //Portrait    Valeur = 1
  //Paysage     Valeur = 2
  //Pour notre application impression en mode PAYSAGE
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("Orientation",vPaysage);

  //Centrage de l'impression
  //Axe vertical et horizontal
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("CenterVertically",true);
  vWorksheet.OlePropertyGet("PageSetup").OlePropertySet("CenterHorizontally",true);
...
}
//---------------------------------------------------------------------------
void __fastcall TPoule::ImpressionClick(TObject *Sender)
{
  //Impression de la feuille
  vWorksheet.OleProcedure("PrintOut");
}

En esperant que cela puisse t'aider... à réadapter selon les besoins de ton programme...
Bon courage...

**Anified** · 23/01/2007, 15h07

Merci pour ta réponse,

Par contre, si je me trompe pas c'est pas vraiment des "tableaux" ?
Je parle des tableaux de Word.

@++

**Mattetfamilly** · 23/01/2007, 19h49

Il y a quelques temps j'avais préparé le fichier pour une demande Blondelle:
http://www.developpez.net/forums/att...9&d=1153853390

La demande concernait l'impression d'une StringGrid.
Il y a bien un entête et un pied de page à toi de voir si cela te convient.
Cela utilises un QuickReport.
Sinon pour l'interfaçage avec un document Word je déclines.

@+
Mattetfamilly

**Anified** · 23/01/2007, 20h05

Merci pour ton prog,

Juste je trouve pas CSpinEdit dans BCB 6++, tu sais stp ou je peux le trouver ?

@++

**Mattetfamilly** · 24/01/2007, 12h55

Il était dans les composants exemple de BCB5 et BCB6.

Mais j'ai déjà rencontré ce problème la première fois que j'ai proposé ce code.
Vois les commentaire que j'avais mis sur le sujet dans la discussion suivante:
http://www.developpez.net/forums/sho...mer+StringGrid

Attention, il semble que certains include doivent être remodifiés: ils sont le reflet de l'installation sur mon PC au boulot.
il faut remplacer

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

dis moi si tu rencontres d'autres soucis...

@+
Mattetfamilly

Création d'un document (imprimable, aperçu, exportable)

C++Builder

Discussions similaires

Partager

Partager