UTF-8 Drucker Befehle direkt an Drucker senden

[TUX_der_Pinguin]

Zitat von HolgerX:

Hmm..

In deinem Original Code hättest Du nur zwei Zeile ändern müssen..

Zitat von TUX_der_Pinguin:

Delphi-Quellcode:

begin
  //init
  AnsiData := UTF8Encode(Template.Text);   <--------------
  dwCount := Length(AnsiData );            <--------------

  if OpenPrinter('Printername', hPrinter, nil) then
  begin

Danke, das hat es noch einfacher gemacht.