Discussion :

[Chayanne47]

Bonjour,
Voila j'ai un imprimante thermique installé sur un PC.
j'utilise les pilotes pour imprimer.
je voudrai savoir si on peu envoyer une séquence ESCAPE à l'imprimante pour que le tiroir s'ouvre sans passer par l'envoie de données sur le port puisque celui si est occupé par le pilote.

exemple de code que j'ai testé

Code :

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

1
2
3
4
5
6
7
8
var
Imp : TextFile;
begin
AssignPrn(Imp);
Rewrite(Imp);
WriteLn(imp,Chr(27) + chr(112) + chr(48)+chr(53) + chr(53)); 
CloseFile(Imp);
end;

Merci d'avance pour votre aide.
bonne journée

[Andnotor]

Avec les imprimantes Epson (TM-T88xxx) par exemple, tu as une police control (à mettre à 10pt) pour piloter le tirroir caisse.

Il suffit allors de faire un Printer.Canvas.TextOut .

[Chayanne47]

merci pour ta réponse

j'ai donc fait

Code :

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

1
2
3
Printer.canvas.font.name := 'control';
Printer.canvas.font.size := 10;
Printer.Canvas.TextOut(0,0,Chr(27) + chr(112) + chr(48)+chr(53) + chr(53));

il me dit l'imprimante n'imprime pas pour l'instant.

si je met

Code :

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

1
2
3
4
AssignPrn(Imp);
Rewrite(Imp);
 
CloseFile(Imp);

autour il me sort une petite bande de papier

[Droïde Système7]

Salut,

il me dit l'imprimante n'imprime pas pour l'instant.

Il me semble bien que ce message arrive lorsque l'impression est lancée, mais que le pilote ne détecte aucune impression en son canvas de printage.

En plus tout ça est lié à la dépendance du type de pilote, par rapport à la marque d'imprimante

@+

[Andnotor]

il me dit l'imprimante n'imprime pas pour l'instant.

Il manque un Printer.BeginDoc et un Printer.EndDoc.

[Chayanne47]

j'ai bien mis un Printer.BeginDoc et un Printer.EndDoc.
mais il m'imprime une bande de 1.5 cm
avec rien dessus

[Andnotor]

Je te donnais un exemple pour les imprimantes Epson. Je ne peux que te suggérer de regarder la doc de ton imprimante !