Depuis que certaines applications ont été migrées de Delphi 6 à Delphi 2010, les impressions code-barre sur imprimantes TEC fonctionnent très mal, voire plus du tout (ce qui pose d'énormes problèmes auprès des utilisateurs).
Voici le code utilisé pour lancer l'impression :Et voici le reste :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Printer.BeginDoc; DirectPrint(szFichierInter); Printer.EndDoc;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 procedure DirectPrint(s: String); var PTBlock: TPassThroughData; begin PTBlock.nLen := Length(s)+ 2; StrPCopy(@PTBlock.Data, AnsiString(s)); Escape(Printer.Handle, PASSTHROUGH, 0, @PTBlock, nil); end;Le code n'a pas changé, et j'utilise des fonctions simples (Begindoc et Enddoc). La seule différence que je vois, c'est que Delphi 2010 est unicode.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 TPassThroughData = record nLen: Integer; Data: Array[0..65535] of AnsiChar; end;
Quelqu'un a t'il déjà rencontré le problème ?
Quelqu'un utilise t'il une autre façon d'imprimer sur des TEC ?
Partager