Discussion :

[akli_agha]

En attendant l'ouverture de mon tiroir-caisse connecté au port RJ11 qui peine à arriver, Je souhaiterais savoir s'il est possible de modifier les options d'une imprimante.

Exemple : Empêcher le tiroir-caisse de s'ouvrir à l'impression d'un ticket. ça peut se faire manuellement mais je veux le faire par programme.

Merci.

D7, Windows 8.1, Imprimante TP-80A

[SergioMaster]

Bonjour,

comme tout imprimante tickets cela doit pouvoir se faire via des commandes ESC, il ne m'a fallu que 2 minutes pour trouver le manuel correspondant à la TP-80

[akli_agha]

Bonjour,

comme tout imprimante tickets cela doit pouvoir se faire via des commandes ESC, il ne m'a fallu que 2 minutes pour trouver le manuel correspondant à la TP-80

Oui, merci mais comment passer l'instruction en delphi ??

[free07]

Oui, merci mais comment passer l'instruction en delphi ??

Avec une autre recherche, tu peux trouver des solutions comme décrit ici

[akli_agha]

Avec une autre recherche, tu peux trouver des solutions comme décrit ici

Comment expliquer cette commande ? Que veut dire n= 1,2,49,50 ? Et le tableau avec, apparemment 8 bits ?
Comment la passer à l'imprimante ?

Merci de votre aide.

[free07]

Bonjour,

Si j'en crois la doc, cette commande ne peut être utilisée que pour celles qui sont connectées sur le port série, c'est donc restrictif... si l'imprimante est connectée en usb, est ce que la commande fonctionnera ?

[SergioMaster]

Si j'en crois la doc, cette commande ne peut être utilisée que pour celles qui sont connectées sur le port série, c'est donc restrictif... si l'imprimante est connectée en usb, est ce que la commande fonctionnera ?

Bonjour,

si l'imprimante est en USB alors il y a un driver, s'il y a drivers alors l'unité Printers devrait permettre d'accéder à l'imprimante et ses paramètres
si l'imprimante est sur le port série il faut utiliser le même genre de code que dans le post pour l'ouverture du tiroir caisse (avec TComport)

rapidement : pour la commande du tableau , en utilisant de l'Hexadécimal on passera
x1D x72 et un octet le fameux n qui sera composé des valeurs choisies
par exemple : x03 papier jusqu'au détecteur et pas d'ouverture tiroir caisse : explication en binaire x03=00000011 bit 0 on, bit 1 on
ce n'est que du binaire il suffit de bien lire la doc, chaque bit de l'octet correspond à une commande, x72 correspond au type de la commande

[akli_agha]

Merci pour votre aide.

J'essaie d'envoyer ces paramètres via TPrinter mais ça ne donne rien. Le tiroir s'ouvre toujours !
Voici ce que j'envoie avant d'imprimer :

Esc := chr(29) + chr(114) + '3';

D7, W8

[SergioMaster]

Bonjour,

pas assez clair, indiquer simplement la commande ne me donne aucune piste pour savoir comment vous l'envoyez à l'imprimante !

on ne sait toujours pas s'il s'agit d'une imprimante USB ou Série, comme vous indiquez que vous utilisez TPrinter je présume qu'il s'agit d'une USB mais rien ne le confirme ! un jour , au siècle dernier (dans les années 80), un chef de projet anglophone qui me formait m'a dit "don't ASS/U/ME" c'est une maxime que j'utilise souvent depuis.

P.S. lorsque j'ai indiqué

si l'imprimante est en USB alors il y a un driver, s'il y a drivers alors l'unité Printers devrait permettre d'accéder à l'imprimante et ses paramètres

je n'ai jamais dit ensuite que dans ces cas là on utilisait ensuite les séquences d'échappement. De plus, qui dit séquence d'échappement dit souvent qu'il faut d'abord le chr(27) soit ESC avant le reste de la séquence. Je n'ai pas le temps, l'envie et les moyens de tester tout ça, vérifiez dans le manuel

[Paul TOTH]

si l'imprimante est en USB alors il y a un driver, s'il y a drivers alors l'unité Printers devrait permettre d'accéder à l'imprimante et ses paramètres

ce n'est pas tout à fait vrai.

pour les imprimantes EPSON TM-T88V (les plus répandues si j'ai bien compris), je suis capable de détecter leur présence SANS le driver, et je propose alors de l'installer. Mais une fois le driver installé, il faut encore déclarer une imprimante dans Windows - ce que je ne fais pas puisque j'envoie directement l'impression au driver sans passer par une imprimante

exemple

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  usb: THandle;
  nb  : Cardinal;
begin
  usb := CreateFile('\\?\usb#vid_04b8&pid_0202#513650463573330000#{5dd901c0-bcf4-11d1-9738-008029e6a5b3}\TM', GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  WriteFile(usb, Str[1], Length(Str), nb, nil);
  CloseHandle(usb);
end;

et je fais la même chose en réseau quand elle a un port Ethernet, auquel cas il n'est même pas nécessaire de la déclarer sous Windows. Je la détecte par un broadcast UDP puis lui envoie l'impression en TCP.

[SergioMaster]

Bonjour,

tu as raison Paul, je me suis mal exprimé, j'aurais effectivement du dire :

"si l'imprimante est en USB alors il y a un driver," et si ce dernier est installé, alors l'unité ........

bref je ne me suis jamais trouvé dans le cas d'une imprimante ticket sur port USB et ton code est bien sympathique
je ne pense pas que l'imprimante TP-80A diffère beaucoup du "standard EPSON"