|
Registriert seit: 10. Apr 2006
Ort: Leverkusen
970 Beiträge
Delphi 6 Professional
|
AW: UTF-8 Drucker Befehle direkt an Drucker senden
15. Dez 2021, 17:48
Hmm..
In deinem Original Code hättest Du nur zwei Zeile ändern müssen.. 
Delphi-Quellcode:
begin
//init
AnsiData := UTF8Encode(Template.Text); <--------------
dwCount := Length(AnsiData ); <--------------
if OpenPrinter('Printername', hPrinter, nil) then
begin
(Ja ich Verwende Delphi 6 Pro und will NICHT wechseln!)
|