Añadiendo printers al uses, puedes usar un codigo semejante al siguiente para imprimir texto por la impresora, es facil...

var x, y: Integer;
begin
  Printer.BeginDoc;         
  with Printer.Canvas do
  begin
    x := Printer.PageHeight div 50;                 
    y := Printer.PageWidth div 15;            
    Font.Name:= 'tahoma';
    Font.Height:= x*2;                 
    Font.Color:= clblack;                 
    TextOut (x,y * 3, 'Teeeeexxxxtttoooooo');                
    Printer.EndDoc;         
  end; 
end; 

Julio Caldas (04/03/2005, 16:38) Este codigo esta bueno, hasta es compatible con el edit, pero con listbox o un memo, no, usted puede hacerme llegar como puedo imprimir los datos que tengo en un listbox, memo o imprimir todo un stringgrid, puede ser, cualquier informacion mi mail [email protected]. Sin mas se despide Julio.