Fórum Como imprimir conteudo DBgrid #244082

procedure TRPDBGrid.MontaRptFortes;
var
  i,
  posicao : Integer;
  coluna,
  titulo,
  subTitle: TRLLabel;
  campo   : TRLDBText;
begin
  posicao := 5;
  if DataSource = nil then Exit;
  FortesReport := TFortesReport.Create(nil);
  try
    with FortesReport do
    begin
      RLReport.DataSource := DataSource;
      if Report.Title <> ´´ then
      begin
        titulo := TRLLabel.Create(FortesReport);
        titulo.Font := FReport.FFontTitle;
        titulo.Align := faCenterTop;
        titulo.Parent := RLTitle;
        titulo.Caption := FReport.Title;
        titulo.Left := 0;
      end
      else
        RLTitle.Visible := False;
      if Report.SubTitle <> ´´ then
      begin
        subTitle := TRLLabel.Create(FortesReport);
        subTitle.Font := FReport.FFontSubTitle;
        subTitle.Align := faCenter;
        subTitle.Parent := RLSubTitle;
        subTitle.Caption := FReport.SubTitle;
        subTitle.Top := 3;
        subTitle.Left := 0;
      end
      else
        RLSubTitle.Visible := False;
      for i := 0 to pred(Columns.Count) do
      begin
        coluna := TRLLabel.Create(FortesReport);
        coluna.Parent := RLColumnHeader;
        coluna.Caption := Columns[i].Title.Caption;
        coluna.Top := 3;
        coluna.Left := posicao;
        coluna.Font.Style := [fsBold];
        campo := TRLDBText.Create(FortesReport);
        campo.Parent := RLDetail;
        campo.DataSource := DataSource;
        campo.DataField := Columns[i].Field.FieldName;
        campo.Left := posicao;
        campo.Top := 2;
        campo.Font.Size := 8;
        posicao := posicao + Columns[i].Width;
      end;
      RLReport.Preview;
    end;
  finally
    FortesReport.Free;
    FortesReport := nil;
  end;
end;