Asi no funciona tampoco, lo que si funciona, pero por separado,
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
with Printer do
begin
printer.PrinterIndex:=0;
RawMode := True;
BeginDoc;
font.Name:='arial';
font.Size:=6;
begin
end;
printstring(#27+#112+#0+#25+#250+lineending);
enddoc;
end;
end;
procedure tform1.PrintString(S: String);
var
Written: Integer;
begin
Printer.Write(S[1], Length(S), Written);
end;
Asi, con eso solo si funciona, si mezclo las dos cosas: la primera que puse en el post para imprimir el logo y ticket no funciona, me da error diciendo que printer esta en raw mode.
edito: ya combine los dos, y si me imprime y saca el cajon, lo unico malo que, como hay dos begindoc..enddoc, el segundo tarda en mandar el comando. Porque ademas, le puse en el primer bloque rawmode:=false.
sigo perdido, la idea era que saliera todo en el mismo bloque.