PrtLabel

procedure PrtLabel (Form:TForm;row:integer;line:integer;Original:integer;dataset:Tdataset); //google
var
i,j:integer;
begin
with dataset do
begin
first;
for j:=0 to line-1 do
begin
if not eof then
begin
for i:=0 to row-1 do
Printqrlabel(Form,Original+row*j+i,Fields[i].asstring);
next;
end else
for i:=0 to row-1 do
Printqrlabel(Form,Original+row*j+i,'');
end;
end;
end;