[Peterlolazo]

Pues la verdad lo puse pork ya lo intente y no pude hacerlo...
Lo unico que creo poder hacer es Ponerle una Underline a todo eso....
que se hace con

Código Delphi [-]
Printer.Canvas.MoveTo(x,y);
 Printer.Canvas.LineTo(x,y);

Pero ya seguro que lo sabes

Por ejemplo. Tome el Codigo que me mandaste hace un rato y mira lo que hice...

Código Delphi [-]

procedure THematologia.Button2Click(Sender: TObject);


Var I ,X , Y: integer;
begin
X := 2000;
Y := 900;


        Printer.BeginDoc;
For I := 0 to ControlCount -1 DO
  If Controls[i] is TEdit then
    if TEdit(Controls[i]).Text <> ''then
      Begin

         Printer.Canvas.textout(X,Y,TEdit(Controls[i]).Text);

    Inc(Y,100);

    Printer.Canvas.MoveTo(40,y);

    Printer.Canvas.LineTo(Printer.PageWidth-20,y);

         Inc(Y,100);

      End;
                  Printer.EndDoc;

    end;


end.