Discussion :

[Arthur59]

Bonsoir a tous,

voila, j'utilise la fonction Form1->Print(); pour imprimer ma fenetre dans laquelle il y a deux ComboBox, un dont le contenu est specifie dans C++-Builder, et l'autre dont le contenu est specifier par lecture dans un fichier .ini.
Cela fonctionne tres bien, sauf que ce qui est ecrit dans le deuxieme ComboBox n'est pas imprimer...
J'ai fait pas mal de recherche la dessus, rien trouver de concret.

Merci pour votre aide...

[sat83]

Bonjour, peux tu montrer un bout de code?

Entre autre le chargement du ComboBox avec le fichier ini.

Parce que j'ai testé sous BCB5 et ça fonctionne, les 2 ComboBox et leurs contenu apparaissent sur l'impression.

[EDIT]
Rectificatif : Ca fonctionne avec la propriété Style des ComboBox à csDropDownList, mais pas avec csDropDown.

[Arthur59]

Exact, la propriété Style du 2eme ComboBox est à csDropDown; l'utilisateur
doit pouvoir ajouter des items si necessaire.
Le 1er combo est a csDropDownList. Il ne peut pas etre modifie par l'utilisateur.

J'utilise C++-Builder 4 pro.

[sat83]

Une grosse magouille serait de créer un dynamiquement un Combobox juste le temps de 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
//Création d'une combobox
    TComboBox *cbox = new TComboBox(Form1) ;
    cbox->Parent = Form1 ;
//Affectation de la valeur à afficher
    cbox->Style = Stdctrls::csDropDownList ;
    cbox->Items->Add( ComboBoxQuiMarchePas->Text ) ;
    cbox->ItemIndex = 0 ;
//On place la combobox temporaire par dessus l'autre
    cbox->Top    = ComboBoxQuiMarchePas->Top ;
    cbox->Left   = ComboBoxQuiMarchePas->Left ;
    cbox->Width  = ComboBoxQuiMarchePas->Width ;
    cbox->Height = ComboBoxQuiMarchePas->Height ;
//On masque la combobox
    ComboBoxQuiMarchePas->Visible = false ;
    Application->ProcessMessages() ;
//On imprime
    Form1->Print() ;
//On detruit la combobox temporaire
    delete cbox ;
//On réaffiche la combobox
    ComboBoxQuiMarchePas->Visible = true ;

Si il te faut absolument le visuel de ta Form, ca fonctionne, mais c'est pas très propre!

Sinon tu peux te diriger vers une autre solution pour imprimer tes infos...

[sat83]

Tu peux également passer par une capture d'écran dans le Presse-Papier que tu imprimer (ou sauvegarde en JPG). Le but est de simuler l'appui sur les touches "Alt+Imp écran" qui place dans le presse-papier une capture de la fenêtre courante:

Code :

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

1
2
3
4
#include "clipbrd.hpp"
#include "jpeg.hpp"
#include "graphics.hpp"
#include "Printers.hpp"

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
   keybd_event(VK_MENU,0xb8,0 , 0); // Simulation de la touche "Alt"
    keybd_event(VK_SNAPSHOT,0,0,0); / Simulation de la touche "Impr écran"
    keybd_event(VK_MENU,0xb8,KEYEVENTF_KEYUP,0); // relachement de la touche "Alt"
    Application->ProcessMessages() ;
    if (Clipboard()->HasFormat(CF_BITMAP))
    {
        // Instanciation 
        TJPEGImage *jpg = new TJPEGImage() ;
        Graphics::TBitmap *bmp = new Graphics::TBitmap();
 
        //récupération du presse papier dans un BMP, puis un JPEG
        bmp->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP), 0);
        jpg->Assign(bmp) ;        
 
        jpg->CompressionQuality = 80 ; // qualité du JPEG [0-100]
        jpg->SaveToFile( "C:\\essaiJPG.jpg" ) ; // enregistrement dans un fichier de la capture d'écran
 
        // Impression
        Printer()->BeginDoc();;
        Printer()->Canvas->Draw(1,1,jpg);    
        Printer()->EndDoc();;
 
        //liberation des ressources
        delete bmp ;
        delete jpg;
    }

C'est un exemple améliorable, à ajuster selon tes besoins!

[Arthur59]

Finalement j'ai fait plus simple:

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
 
void __fastcall TForm1::ImprimerClick(TObject *Sender)
{
Label1->Caption=ComboMach->Text;
Label2->Caption=ComboPer->Text;
 
   TPrinter * Prntr = Printer();
   Prntr->Orientation = poLandscape;
 
   PrinterSetupDialog1->Execute();
   Form1->Print();
 
Label1->Caption="MACHINE";
Label2->Caption="PERIODE";
 
delete Prntr;
}

Les Labels 1 et 2 etand l'intitulé des Combos.

En tout cas merci bien sat83 pour ton aide.