Discussion :

[clovis]

Bonjour,
(BCB 6 perso)

Comment mettre dans une boxe les imprimantes systeme disponible?

J'essais en vain d'envoyer vers une imprimante un StringList sans succes.
J'ai trouver dans les exemples fournis qques infos mais j'aimerais pouvoir envoyer le fichier directement vers l'imprimante sans l'intermediaire d'un PrintDialog.
Merci de bien vouloir m'aider
A+

[blondelle]

clovis a ecrit:

Bonjour,
(BCB 6 perso)

Comment mettre dans une boxe les imprimantes systeme disponible?

J'essais en vain d'envoyer vers une imprimante un StringList sans succes.
J'ai trouver dans les exemples fournis qques infos mais j'aimerais pouvoir envoyer le fichier directement vers l'imprimante sans l'intermediaire d'un PrintDialog.
Merci de bien vouloir m'aider
A+

Un lien qui fonctionne sur le FORUM il te reste a l'adapter a tes besoins.

http://www.developpez.net/forums/sho...d.php?t=161296

[clovis]

Merci, Je vais lire tout ca

[clovis]

Bonjour,
J'obtiens une page blanche?
J'ai donc essaye avec un code le plus simple possible:

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
// setup printer
       int pageline=3,
          hauteurText=10;
 
       TPrinter *Prntr = Printer();
       Prntr->BeginDoc();
       Prntr->PrinterIndex=-1;
       Prntr->Orientation=poLandscape;
 
       Canvas->Font->Name = "Courier";
       Canvas->Font->Size = hauteurText;
 
       // print a banner
       Prntr->Canvas->TextOutA(20,hauteurText*pageline,"Ligne 1 Essai ;-)") ;
       pageline+=2;
       Prntr->Canvas->TextOutA(20,hauteurText*pageline,"Ligne 2 Essai ;-)") ;
       Prntr->EndDoc();

Toujour sans succes. Une idee?
Merci d'avance

[henderson]

Salut !

Peut-être faut-il initialiser les propriétés Brush et Font du canvas de l'imprimante ?

Par exemple :

Code :

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

1
2
3
4
Prntr->Canvas->Brush->Style = bsClear;
Prntr->Canvas->Font->Name = "Arial";
Prntr->Canvas->Font->Size = 10;
Prntr->Canvas->Font->Color = clBlack;

Ensuite imprimer...

A plus !

[blondelle]

clovis a ecrit:

Bonjour,
J'obtiens une page blanche?
J'ai donc essaye avec un code le plus simple possible:


Code :
// setup printer
int pageline=3,
hauteurText=10;

TPrinter *Prntr = Printer();
Prntr->BeginDoc();
Prntr->PrinterIndex=-1;
Prntr->Orientation=poLandscape;

Canvas->Font->Name = "Courier";
Canvas->Font->Size = hauteurText;

// print a banner
Prntr->Canvas->TextOutA(20,hauteurText*pageline,"Ligne 1 Essai ;-)") ;
pageline+=2;
Prntr->Canvas->TextOutA(20,hauteurText*pageline,"Ligne 2 Essai ;-)") ;
Prntr->EndDoc();
Toujour sans succes. Une idee?
Merci d'avance

Regarde dans le code du lien, dans la boucle centrale, celle qui dessinne et ecrit une ligne, il y a comme henderson la ecrit l'utilisation des proprietes Brush ca m'avait d'ailleurs pose quelques problemes, (je suis surpris que le code ne marche pas chez toi car il a ete teste sur plusieurs ordinateurs equipes de plusieurs types d'imprimantes).

Si tu veu simuler une grille, il te faut tracer le rectangle avant d'ecrire avec la fonction TextOutA, sinon le rectangle recouvre le texte qui bien sur n'apparait pas.

[clovis]

Bonjour,
Merci pour ces infos.
Je vais ce soir y ajouter tout cela et réessayer demain
A+
Merci encore

[blondelle]

clovis a ecrit:

Bonjour,
Merci pour ces infos.
Je vais ce soir y ajouter tout cela et réessayer demain
A+
Merci encore

J'ai essaye ton code j'ai supprime deux lignes qui provoquaient une erreur il fonctionne seulement les lignes s'ecrivent l'une sur l'autre tu doit les positionner avec la fonction rectangle.

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
 
// setup printer
       int pageline=3,
          hauteurText=10;
 
       TPrinter *Prntr = Printer();
       Prntr->BeginDoc();
//       Prntr->PrinterIndex=-1;
//       Prntr->Orientation=poLandscape;
 
       Canvas->Font->Name = "Courier";
       Canvas->Font->Size = hauteurText;
 
       // print a banner
 
       Prntr->Canvas->TextOutA(20,hauteurText*pageline,"Ligne 1 Essai ;-)") ;
       pageline+=2;
       Prntr->Canvas->TextOutA(20,hauteurText*pageline,"Ligne 2 Essai ;-)") ;
       Prntr->EndDoc();
}

TRect r = Rect(x, y, x1, y1);
Prntr->Canvas->Rectangle(r);
Prntr->Canvas->TextOutA(x, y, "texte a afficher");

la premiere ligne defini le rectangle pour l'affichage du texte.
la deuxieme ligne trace le rectangle.
la troisieme ligne affiche le texte a la position x, y dans le rectangle trace

[clovis]

Bonjour,
Merci beaucoup pour ces infos complementaires.
Je n' ai pas pu essayer ma nouvelle version aujourd'hui.

Je ne pensais pas qu'il fallait d'abord avoir un rectangle.

Encore merci

[clovis]

Bonjour.
Et un grand merci. En effet avec le rectangle ça marche impec!!! :-))