Buenas de nuevo,
He conseguido, gracias vosotros, foreros, imprimir en impresora de tickets cargando las impresoras asignando la impresora con printer.printers y luego con
Código Delphi
[-]with Printer do
begin
PRINTER.PrinterIndex:=COMBOBOX1.ItemIndex;
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
Canvas.Brush.Style := bsClear;
for i := 0 to IMPRIMIR.Count -1 do
Canvas.TextOut(200,200 + (i *
Canvas.TextHeight(IMPRIMIR.Strings[i])),
IMPRIMIR.Strings[i]);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
Pero tengo el problema que si imprimo una o dos lineas por ejemplo, me saca la tira completa.
Hay alguna forma de sacar el ticket justo?.