Discussion :

[Papy214]

Bonjour les gens,

Toujours dans mon impression de tickets sous FMX ...
J'ai résolu la majeure partie des problèmes rencontrés mais je coince sur un dernier : la hauteur du papier.
Bêtement, je pensais que la hauteur était "infinie" vue la longueur du rouleau ....
Mais, comme j'utilise le canvas pour imprimer, j'ai une largeur de 512 que je maitrise et une hauteur de .... 2104
Problème, si mon ticket comporte beaucoup de lignes, j'en ai qu'un morceau à l'arrivée.
Etant pour l'instant sous Windows uniquement, j'ai tenté le code suivant:

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
26
 
  procedure SetupPrinter(PaperWidth, PaperLength, PaperSize: Integer);
  var
    ADevice, ADriver, APort: array [0 .. 255] of char;
    DevMode: THandle;
    PtrDevMode: PDevMode;
    PDev: TPrinterDevice;
  begin
    PDev := Printer.ActivePrinter;
    TPrinterWin(Printer).GetPrinter(ADevice, ADriver, APort, DevMode);
    if DevMode <> 0 then
    begin
      PtrDevMode := GlobalLock(DevMode);
      with PtrDevMode^ do
      begin
        //strcopy(dmDevicename, ADevice);
        StrCopy(dmDevicename, ADevice);
        dmFields      := dmFields or DM_PAPERWIDTH or DM_PAPERLENGTH or DM_PAPERSIZE;
        dmPaperWidth  := PaperWidth;
        dmPaperLength := PaperLength;
        dmPaperSize   := PaperSize; // for custom
      end;
      GlobalUnlock(DevMode);
      Printer.ActivePrinter := PDev;
    end;
  end;

Mais ça ne fonctionne pas . Mon canvas a toujours la même hauteur.


Z'auriez une idée pour changer ça ?

Précision: Je ne peux pas imprimer en mode texte parce que je dois imprime aussi des code-barres et des logos.

[Paul TOTH]

ça te fait déjà un ticket de 30cm de long

ne peux tu pas enchaîner deux pages d'impression sans couper le papier ?

[Papy214]

Oui bien sur, ça fait déjà un joli ticket ... mais imagine un ticket de supermarché un jour de soldes

En fait, au début, je n'ai pas pensé à ce problème, imaginant qu'un imprimante à ticket pouvait une longueur "illimitée" .
Et un test client hier a enchainé un ticket de caisse avec un ticket d'avoir. et c'est là qu'on s'est rendu compte du problème.

Pour l'instant, j'ai résolu par un enddoc/begindoc avant le ticket d'avoir qui coupe le papier.

Il est vrai que je n'ai pas essayé le NewPage en remplacement. Peut-être qu'il ne coupera pas le papier à ce moment.
Je testerai demain au bureau.

Je pensais à pouvoir changer le papier comme on le voit dans les propriétés de l'imprimante. La dernière possibilité dans la liste proposée serait largement suffisante mais impossible de trouver comment sélectionner cette option avec Delphi.

[tourlourou]

Sauf à enchaîner les pages sans coupure du papier, comme le suggérait Paul, pour fixer la hauteur de la page (dmPaperLength, en 1/10émes de millimètres), il faudrait connaître la hauteur du canevas nécessaire au ticket (donc utiliser un canevas annexe de dimension "infinie") et la résolution verticale (dmYResolution), non ? Et fixer dmPaperSize à 0 ?

[Papy214]

Je vais essayer l’enchaînement de pages et je reviendrai donner le résultat.

Merci pour votre contribution

[Papy214]

Première bonne nouvelle : le newpage ne coupe pas le papier.

Je n'ai plus qu'à adapter mon code à ce comportement pour changer ma position Y si je dépasse le max.

Merci encore