Такая проблема. С примером я разобрался. Код сгенерированный на Qlabel программа печатает без проблем. А вот когда я пробую вносить какой нить текст из Edit то принтер выдает ошибку.
Вот код
var
Form1: TForm1;
kash, kash2:String;
kash1, kash3:PChar;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
openport('Godex EZ-DT-2'); // Èìÿ áåðåòñÿ èç Ïóñê->Íàñòðîéêà->Ïðèíòåðû è ôàêñû
beginjob(30, 7, 2, 0, 1, 0);
sendcommand('^Q19,5');
sendcommand('^W30');
sendcommand('^H10');
sendcommand('^P1');
sendcommand('^S2');
sendcommand('^AD');
sendcommand('^C1');
sendcommand('^R0');
sendcommand('~Q+3');
sendcommand('^O0');
sendcommand('^D0');
sendcommand('^E35');
sendcommand('~R200');
sendcommand('^L');
sendcommand('Dy2-me-dd');
sendcommand('Th:m:s');
sendcommand('BE,17,75,2,7,60,0,1,123456789012');
//sendcommand('Y39,27, Товар 123456789');
// вот здесь я пробую писать свой текст из Edit1 принтер выдает ошибку
// FileName can not be found
sendcommand(kash3);
sendcommand('Y101,0,ÒÄ Ãëîáóñ Äåêîð');
sendcommand('E');
endjob();
closeport();
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
kash2:=Edit1.Text;
kASh3:=PChar('Y39,27,'+ kash2 );
end;
