[anubis]

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 := impresora;
   printer.PrinterIndex:=0;
    RawMode := True;
  BeginDoc;
     font.Name:='arial';
     font.Size:=6;

   // for i := 0 to IMPRIMIR_ticket.Count - 1 do
    begin
    //  printstring(imprimir_ticket.Strings[i]+lineending);
    end;
printstring(#27+#112+#0+#25+#250+lineending);
   (*  printstring(' '+lineending);
     printstring(' '+lineending);
     printstring(' '+lineending);
     printstring(' '+lineending);
     printstring(' '+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.