Imprimer un stringlist

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+

clovis a ecrit:

Citation:

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.

Citation:

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

Merci, Je vais lire tout ca

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

Code:

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

Salut !

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

Par exemple :
Code:

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 !

clovis a ecrit:

Citation:

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.

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

clovis a ecrit:

Citation:

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:

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(); }
Citation:

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

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

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