...
uses Printers;
procedure TForm1.btnImprimirClick(Sender: TObject);
var
i,x,y: Integer;
s: string;
begin
with TPrinter.Create do
try
i:= 1;
BeginDoc;
x := Printer.PageWidth div 15;
y := Printer.PageHeight div 50;
Canvas.Font.Name:= 'Times new Roman';
Canvas.Font.Color:= clBlack;
Canvas.Font.Height:= Printer.PageHeight div 100;
ClientDataSet.First;
while not ClientDataSet.Eof do
begin
s:= ClientDataSet.FieldByName('Campo1').AsString +' '+
ClientDataSet.FieldByName('Campo2').AsString +' '+
ClientDataSet.FieldByName('CampoN').AsString;
Canvas.TextOut(x, i*y , s);
ClientDataSet.Next;
Inc(i);
end;
Canvas.TextOut(x, i*y, Edit1.Text);
Inc(i);
Canvas.TextOut(x, i*y, Edit2.Text);
EndDoc;
finally
Free;
end;
end;