[anubis]

Hola amigos,

No sabia si esta pregunta debia de venir en este subforo o bien en impresion .

Estoy intentando imprimir un ticket en una impresora ecs, con su logo y el ticket, y posteriormente abrir el cajon, pero este ultimo no abre.
Ya estuve dando vueltas por el subforo de impresion, pero no encontre nada que me sirviera asi que pongo la procedure donde hago todo el asunto a ver si hay algo que estoy haciendo mal.

Código Delphi [-]
procedure tfventas.imprimelinea;
const
  margin_left = 1;
  margin_top=70;
var
 i: Integer;
 MiMapadeBits : TBitMap;
begin
  MiMapadeBits := TBitMap.Create;
  { Creamos el objeto MiMapadeBits }
  MiMapadeBits.Width := PAGE.Width;   { Definimos su anchura }
  MiMapadeBits.Height := page.Height; { Definimos su altura }
  page.BorderStyle:=bsNone; { Definimos el estilo del borde a ninguno }
  page.PaintTo(MIMAPADEBITS.Canvas, 0, 0);
  page.BorderStyle:=bsSingle;


  with printer do
  try
    BeginDoc;
    Canvas.Font.Name := 'COURIER NEW';
    CANVAS.FONT.Style:=[FSbOLD];
    Canvas.Font.Size := 6;
    Canvas.Font.Color := clBlack;

     Canvas.CopyRect(Classes.Rect(1, 0, 365, 60),
      MiMapadeBits.Canvas, Classes.Rect(0, 0, MIMAPADEBITS.Width, mIMAPADEBITS.Height));

    for i := 0 to IMPRIMIR_ticket.Count - 1 do
     begin
    //   page.Height:=margin_top+ i*printer.Canvas.TextHeight(imprimir_ticket.Strings[i]);
    Canvas.TextOut(
      MARGIN_LEFT,
      MARGIN_TOP + i*printer.Canvas.TextHeight(imprimir_ticket.Strings[i]),
      imprimir_ticket.Strings[i]);

     end;
    canvas.TextOut(0,0,#27+#10+#13+#027+#112+#0+#100+#250+#10+#13);
   // canvas.Clear;
  finally
    EndDoc;

    mimapadebits.Free;
  end;

El ticket con logo si imprime, luego he dejado unos espacios para poder cortar el papel manualmente y finalmente me imprime " +p d" Lo pongo para que veais de donde viene y si se pueden combinar las dos cosas, porque en otro lado dice que tiene que imprimir como raw. Ando hecho un lio.

Gracias amigos.