Печать с предварительным просмотром

procedure TForm2.Button1Click(Sender: TObject);
var
i:Integer;
t:Integer;
begin
  //ïîäêëþ÷àåì QuickReport ê äàííûì, äàííûå áåðåì èç Grid
  PrevForm.GridRep.DataSet:=Form2.DBGrid1.DataSource.DataSet;
  t:=1;
  //ñîçäàåì äèíàìè÷åñêè êîìïîíåíòû
  //îòîáðàæåíèÿ øàïêè òàáëèöû TQRLabel
  //è ïîëåé TQRDBText, ðàâíîå êîëè÷åñòâó ïîëåé â Grid
  for i:=0 to Form2.DBGrid1.FieldCount-1
     do begin
     PrevForm.QRLabel.Create(Components[i]);
     PrevForm.QRDBText.Create(Components[i]);
  //äëÿ ñîçäàííûõ êîìïîíåíò óêàçûâàåì ìåñòî,
  //ãäå îíè äîëæíû íàõîäèòüñÿ è çíà÷åíèÿ,
  //êîòîðûå îíè äîëæíû îòîáðàæàòü
  with
  PrevForm.TQRLabel.Create(Self) do begin
  caption:=Form2.DBGrid1.Columns[i].Title.Caption;
  left:=t;
  parent:=PrevForm.GridRep.Bands.ColumnHeaderBand;
  end;
  with
  PrevForm.TQRDBText.Create(Self) do begin
  Dataset:=Form2.DBGrid1.DataSource.DataSet;
  DataField:=Form2.DBGrid1.Fields[i].FieldName;
  left:=t;
  parent:=PrevForm.GridRep.Bands.DetailBand;
  end;
  //ñäâèãàåì ñëåäóþùèé ñîçäàííûé êîìïîíåíò íà 70
  // åäèíèö âïðàâî.Ýòó âåëè÷èíó êîíå÷íî æå ìîæíî
  // íàñòðîèòü óäîáíåå,íàïðèìåð,ïðèâÿçàâ ê äëèíå,
  // øèðèíå è ò.ä. ñîçäàííûõ êîìïîíåíò
  t:=t+70;
  end;
  PrevForm.GridRep.Preview;
end;
end;

GridReport.GridRep.DataSet := Form2.DBGrid1.DataSource.DataSet;
  GridReport.QRSubDetail1.DataSet := Form2.DBGrid1.DataSource.DataSet;
 GridReport.QRDBText1.DataField := GridReport.QRDBText1.DataSet.Fields[0].AsString;
  GridReport.GridRep.Prepare;
GridReport.GridRep.PreviewModal;