Hallo,
hat schon jemand einen QR-Code auf einen Epson TM88 IV über ESC-Sequenzen gedruckt?
Leider komme ich mit der Beschreibung nicht recht weiter.
Diese Daten schicke ich an den Drucker:
Delphi-Quellcode:
function TfKTESCSequences.GetESCSequenceQRCode: String;
begin
{ Initialize printer }
Result := #27 + #64;
{ Auf Drucker umschalten }
Result := Result + #27 + #61 + #1;
{ Selectet print modes, Font A }
Result := Result + #27 + #33 + #0 + 'Font A' + #27 + #33 + #0 + cCRLF;
{ Daten für QR }
Result := Result + #29 + #40 + #107 + #4 + #0 + #49 +#65 + #50 + #0;
Result := Result + #29 + #40 + #107 + #3 + #0 + #49 +#67 + #20; //#5
Result := Result + #29 + #40 + #107 + #3 + #0 + #49 +#69 + #48;
Result := Result + #29 + #40 + #107 + #3 + #0 + #49 +#80 + #48 + 'www.mgm.at';
Result := Result + #29 + #40 + #107 + #3 + #0 + #49 +#81 + #48;
{ Print and feed n lines }
Result := Result + #27 + #100 + #10;
{ Papier abschneiden }
Result := Result + #29 + #86 + #1 + #0;
end;