imprimir ticket con logo y abrir cajon

[[Delphius]]

Yo la verdad es que no tengo ni la más remota idea sobre como operar los cajones, pero si dices que de forma "separada" lograste andar, quizá sea lo mejor y más sano.
No descartaría que sea bastante probable de que no pueda mezclarse ambas cosas. En cierta forma, tiene sentido: una cosa es imprimir un ticket, y otra es que de forma indirecta por medio de la impresora se envíe la orden/comando al cajón. La impresora no puede atender las dos cosas a la vez. O imprime o abre el cajón.
La orden de apertura no es un documento más y no se guarda en la cola.

Saludos,

[anubis]

Casimiro Notevi. Sobre el rawmode:=true para enviar codigos a la impresora debe de estar asi sino no funciona, al menos en la parte del codigo de programa que saque de los foros. Sino lo pongo o lo dejo en false, a la hora de enviar los codigos a la impresora, se queja la aplicacion y dice que debe estar en rawmode:=true.

Delphius. Si, son dos cosas diferentes segun estoy viendo. Por un lado logo y ticket y por el otro la apertura. El problema surge, cuando cierro un begindoc..enddoc y vuelvo a abrir begindoc..enddoc para abrir el cajon. La verdad es que se tarda y no debiera ser asi. Se que alguien debe de haber implementado algo mas rapido para sus programas.

Todavia no he dado con ello, pero vere que hago para resolver.

pense que con printer.texout se podian mandar codigos a la impresora, pero no hacen nada .

Gracias a los dos. Os dire si he resuelto algo. .

[anubis]

Perfecto amigos. Gracias.

Deje las dos partes:

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
  rawmode:=false;
    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
    Canvas.TextOut(
      MARGIN_LEFT,
      MARGIN_TOP + i*printer.Canvas.TextHeight(imprimir_ticket.Strings[i]),
      imprimir_ticket.Strings[i]);
     end;
  finally
    EndDoc;
    mimapadebits.Free;
 with Printer do
  begin
    PRINTER.PrinterIndex := 0;
    RawMode := True;
  BeginDoc;
       printstring(#27+#112+#0+#25+#250+lineending);  //ABRE CAJON
      EndDoc;
  end;           
   end;
end;

En el primer BeginDoc, imprime el logo y el ticket, y en el segundo ya me abre el cajon. No hay tiempo de espera, asi que es transparente para el usuario.

Gracias.