Imprimir QRCODE impressora elgin i9

Boa tarde,

Estou com dificuldade para imprimir um qrcode de uma NFCe na impressora elgin i9,

a impressao do texto sai normal, ai quando chega na parte do qrcode, ele imprime um pedaço a url que vai no qrcode.

Alguem pode me ajudar?


o codigo que estou usando é esse :

procedure printQrcode(szPrintername:String;data:AnsiString);
var
dataLength:Integer;
length_low_byte:Integer;
length_high_byte:Integer;
command:AnsiString;

begin
dataLength:= Length(data)+3;
length_low_byte:= dataLength mod 256;
length_high_byte:=dataLength div 256;


initializePrinter(szPrintername);

//<Function ESC a n> Select justification
command:=Char(27)+Char(97)+Char(0);
WriteRawStringToPrinter(szPrintername,command);


//<Function GS L> Set left margin POSIÇÃO DO QRCODE EM REAÇÂO A MARGEM DA ESQUERDA

command:=Char(29)+Char(76)+Char(150)+Char(0);
WriteRawStringToPrinter(szPrintername,command);

//<Function 165> GS ( k p L p H cn fn n (cn = 49,fn = 65) QR Code: Select the model

command:=Char(29)+Char(40)+Char(107)+Char(4)+Char(0)+Char(49)+Char(65)+Char(50)+Char(0);
WriteRawStringToPrinter(szPrintername,command);

//<Function 167> GS ( k pL pH cn fn n (cn = 49, fn = 67) QR Code: Set the size of module
command:=Char(29)+Char(40)+Char(107)+Char(3)+Char(0)+Char(49)+Char(67)+Char(4);
WriteRawStringToPrinter(szPrintername,command);

//<Function 169> GS ( k pL pH cn fn n (cn = 49, fn = 69) QR Code: Select the error correction level
command:=Char(29)+Char(40)+Char(107)+Char(3)+Char(0)+Char(49)+Char(69)+Char(48);
WriteRawStringToPrinter(szPrintername,command);


//<Function 180> GS ( k pL pH cn fn m d1…dk (cn = 49, fn = 80) QR Code: Store the data in the symbol storage area
//pL and pH are the low- and high-order bytes of a 16-bit integer value that specifies the length in bytes of the following data
command:=Char(29)+Char(40)+Char(107)+Char(length_low_byte)+Char(length_high_byte)+Char(49)+Char(80)+Char(48);
WriteRawStringToPrinter(szPrintername,command);


//send string/url to printer
WriteRawStringToPrinter(szPrintername,data);
//WriteRawStringToPrinter2(szPrintername,data);

//<Function 181> GS ( k pL pH cn fn m (cn = 49, fn = 81) QR Code: Print the symbol data in the symbol storage area
command:=Char(29)+Char(40)+Char(107)+Char(3)+Char(0)+Char(49)+Char(81)+Char(48);
WriteRawStringToPrinter(szPrintername,command);
end;