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 !

[Eric Boisvert]

quelque chose comme ça peut-être?

Code :

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

1
2
3
4
5
 
const
    OPEN_CODE=Chr(27) + chr(112) + chr(48)+chr(53) + chr(53);
begin
    Escape(Printer.Handle,PASSTHROUGH,length(OPEN_CODE),OPEN_CODE,nil);

[Chayanne47]

Merci pour vos réponses,

j'ai testé mais il me renvoie un message d'erreur :
la zone de données passée à un appel système est insuffisante

voici le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
OPEN_CODE:=Chr(27) + chr(112) + chr(48)+chr(53) + chr(53);
 
Printer.PrinterIndex := Printer.Printers.IndexOf('EPSON TM-T88IV');
 
Escape(Printer.Handle,PASSTHROUGH,length(OPEN_CODE),OPEN_CODE,nil);
 
Showmessage(SysErrorMessage(GetLastError));

[Andnotor]

Mais as-tu essayé simplement ceci:

Code :

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

1
2
3
4
5
Printer.BeginDoc;
Printer.Canvas.Font.Size := 10;
Printer.Canvas.Font.Name := 'control';
Printer.Canvas.TextOut(0, 0, 'A');
Printer.EndDoc;

'A' étant le code d'ouverture du tiroir, 'G' l'impression du premier logo contenu en flash ram, 'H' du deuxième, etc.

[Chayanne47]

salut,
merci pour ta réponse
alors cela fonctionne mais il me sort une petite bande de papier de 6 mm
à cause du enddoc

y a t il un paramètre car je n'ai pas trouvé

merci

[Andnotor]

Well... Appelons ça un dommage collatéral

Mais si tu inclus le changement de police et l'envoi du code à la fin de l'impression du ticket de caisse (le même bloc BeginDoc...EndDoc), tu n'y verras que du feu. Une ou deux fois par jour (peut-être) lors de l'ouverture manuelle du tiroir, ben tu perdras 6mm sur ton rouleau de 50m

Maintenant, si tu te sens concerné par ces 6mm, depuis la TM-T88II et le driver Advanced (OPOS ADK), tu peux aussi gérer l'imprimante (et les périphériques connectés: tiroir, afficheur) par automation: TOPOSPOSPrinter, TOPOSCashDrawer et TOPOSLineDisplay. Mais c'est légérement plus compliqué...

[edam]

pour une imprimante "TM@IURI With Cut" parallèle, voilà le code, et il ne sort aucun boue de papier:

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
 
  TStrucPrinter=record
       bufl:word;
       buff:array[0..255] of char;
    end;
 
Procedure OpenTiroir;
var
      test:Integer;
      bu:TStrucPrinter;
const
     fc1=#27+'@'+#27+'p'+#0+#16+#32+#27+'@';
begin
      test:= PASSTHROUGH ;
 
      if Escape(Printer.Handle,QUERYESCSUPPORT,sizeof(test),@test,nil)=0 then
        exit;
      Printer.SetPrinter(pchar(NamPrinter),'WINSPOOL',nil,0);
      Printer.BeginDoc;
      StrPCopy(bu.buff,FC1);
      bu.bufl:=StrLen(bu.buff);
      Escape(Printer.Handle,PASSTHROUGH,0,@bu,nil);
      Printer.EndDoc;
end;

voir aussi