Discussion :

[wap010]

Bonjour,

j'aimerais imprimer sur de petites étiquettes de 7 sur 2 cm.
J'utilise pour cela un TPrinter et un Canvas.
La première étiquette est bien imprimée mais ensuite la bande d'étiquette est éjectée comme si c'était une feuille A4.
Comment peut-on faire pour modifier la taille du papier via le programme SVP?

Merci d'avance

[blondelle]

Pour que quelqu'un puisse te repondre je pense qu'il faudrait nous faire voir comment tu a procede pour afficher ton etiquette

[wap010]

Désolé,

voici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
TPrinter *Prntr=Printer();
Prntr->BeginDoc();
Prntr->Canvas->Font->Height=35;
Prntr->Canvas->Font->Name="Arial";
Prntr->Canvas->TextOut(10,5,"00474041-02");
Prntr->Canvas->Font->Height=25;
Prntr->Canvas->Font->Name="Courier New";
Prntr->Canvas->TextOut(10,40,"TC CO   CHE2 BLE3 LI");
Prntr->Canvas->Font->Height=55;
Prntr->Canvas->TextOut(140,60,"85.20");
Prntr->EndDoc();

J'ai essayé à l'aide de Prntr->PageHeight et PageWidth mais c'est une propriété en lecture.

[blondelle]

Quelque chose comme ceci devrait te convenir

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
 
int x;
int y;
TPrinter *Prntr=Printer();
Prntr->BeginDoc();
// boucle de colonnes
for (int X = 0; X <= 1;X++)
{
x = X * 400;
// boucle de lignes
for (int Y = 0; Y <= 3; Y++)
{
y = Y * 100;
Prntr->Canvas->Font->Height=35;
Prntr->Canvas->Font->Name="Arial";
// TextOut(Positon X, Position Y, Texte a afficher)
Prntr->Canvas->TextOut(10 + x, 5 + y, "00474041-02");
Prntr->Canvas->Font->Height=25;
Prntr->Canvas->Font->Name="Courier New";
Prntr->Canvas->TextOut(10 + x , 40 + y, "TC CO   CHE2 BLE3 LI");
Prntr->Canvas->Font->Height=55;
Prntr->Canvas->TextOut(140 + x + X, 60 + y, "85.20");
}
}
Prntr->EndDoc();

Je te laisse le soin de l'adapter a tes besoins