comment faire la mise en page de l impression directe sur un port com

Version imprimable

Bonjour à tous,
j ai besoin de votre sur la mise en page d une impression directe sur un port com.
j ai une imprimante epson tm-t88iii, et elle est très lente dans l'impression en utilisant le driver windows mais très rapide en utilisant l impression directe sur le port com, alors j ai ajouté un composant tcomport, je l ai configuré et j arrive à lancé l impression comme suit:
Code:

1 2 3 4 5 6 7 ComPort1.Connected := True; ComPort1.WriteStr('Mon text 1' + #13#10); ComPort1.WriteStr('Mon text 2' + #13#10); ComPort1.WriteStr('Mon text 3' + #13#10); ComPort1.WriteStr('Mon text 4' + #13#10); ComPort1.Connected := False;
et l impression se fait toujours a gauche.

Comment faire pour centrer le texte, souligné, le mettre en gras, et surtout imprimer en décalant le texte selon la taille de la marge.. etc

Merci pour votre aide

Remarque: juste d'avance sachez que le mode Printer genre:
Code:

1 2 3 Printer.BeginDoc; Printer.Canvas.Font.Size := 10;
ne fonctionne pas, l'imprimante est toujours lente à imprimer

18/04/2013, 19h03
tourlourou

Grâce aux séquences d'échappement, probablement : http://fr.scribd.com/doc/26547463/ESC-POS-Command-Guide
18/04/2013, 20h13
kameleon80

Citation:

Envoyé par tourlourou

Grâce aux séquences d'échappement, probablement : http://fr.scribd.com/doc/26547463/ESC-POS-Command-Guide

Merci beaucoup Tourlourou, ça fonctionne très bien, mais svp, vous avez cherché quoi comme mot clé pour trouver ça, presque 5 jours que je cherche mais j ai rien trouvé
18/04/2013, 23h22
Andnotor
Citation:
Envoyé par kameleon80

Remarque: juste d'avance sachez que le mode Printer genre:

Code:

1 2 3 Printer.BeginDoc; Printer.Canvas.Font.Size := 10;

ne fonctionne pas, l'imprimante est toujours lente à imprimer
Suivant la police utilisée, tu es en mode graphique. Pour imprimer à pleine vitesse en passant par un canvas (ou BeginDoc, EndDoc), il faut sélectionner une police d'imprimante (mode caractère). De mémoire pour les anciens drivers : 20cpi, 15cpi ou 10cpi. Pour les récents (POS ADK) : FontA, FontB, etc.
19/04/2013, 00h30
kameleon80

Citation:

Envoyé par Andnotor

Suivant la police utilisée, tu es en mode graphique. Pour imprimer à pleine vitesse en passant par un canvas (ou BeginDoc, EndDoc), il faut sélectionner une police d'imprimante (mode caractère). De mémoire pour les anciens drivers : 20cpi, 15cpi ou 10cpi. Pour les récents (POS ADK) : FontA, FontB, etc.

je comprends ce que vous dites mais en pratique je vois pas comment procéder, c avec plaisir si vous pouvez nous éclaircir ça, merciiii

Egalement pour l'impression rapide d'un logo stocké dans l'imprimante et l'ouverture du tiroir caisse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
with Printer, Canvas do
begin
  BeginDoc;
 
  //Impression du 1er logo stocké dans l'imprimante
  Font.Size := 10;
  Font.Name := 'control';
  TextOut(0, 0, 'G');  //Logo 1 = G
 
  //Texte (police à choisir en fonction du driver)
  Font.Name := 'FONTA11';
  //Font.Name := '15 CPI';
  TextOut(0, 0, 'Hello world');
 
  //Ouverture du tiroir si connecté
  Font.Size := 10;
  Font.Name := 'control';
  TextOut(0, 0, 'A');
 
  EndDoc;
end;

Pour charger une image dans l'imprimante, TM Flash logo ;)