Fórum Imprimir conteúdo do dbgrid #324346

procedure T_frmModelo.DBGridPrintFooter(Sender: TObject);
begin
with TBaseReport(Sender) do
    begin
    GotoXY(0,SectionBottom);
    NewLine; //Pula Linha
    PrintJustify( ´Pág.: ´+FormatFloat(´000´,CurrentPage),0,pjRight,0, SectionRight);
    end;
end;

procedure T_frmModelo.DBGridPrintHeader(Sender: TObject);
var i:Integer;
    x: Extended;
    pj: TPrintJustify;
begin
  with Sender as TBaseReport do
  begin

    SetPen(clGray,psSolid,5,pmCopy);
    GotoXY(SectionLeft,SectionTop);
    MoveTo(SectionLeft,YPos);
    LineTo(SectionRight, YPos);

    SetFont(´Arial´, 14);
    NewLine;
    PrintCenter(´TITULO DO RELATORIO´ ,(SectionLeft+SectionRight)/2);
    NewLine;
    SetFont(´Arial´, 12);
    PrintCenter(´SUBTITULO´ ,(SectionLeft+SectionRight)/2);

    SetFont(´Arial´,8);
    NewLine;
    PrintJustify( DateToStr(Now),0, pjLeft,SectionLeft,SectionRight );
    PrintJustify( TimeToStr(Now),0,pjRight,0, SectionRight);
    NewLine;
    MoveTo(SectionLeft,YPos);
    LineTo(SectionRight, YPos);
    NewLine;
    ClearTabs;
    x := 0.5; // Polegada
    for i := 0 to DBGrid1.Columns.Count-1 do
      begin
      if DBGrid1.Columns[i].Alignment = taLeftJustify then
         pj := pjLeft
      else if DBGrid1.Columns[i].Alignment = taRightJustify then
         pj := pjRight
      else
         pj := pjCenter;
      SetTab(x,pj,DBGrid1.Columns[i].Width/PixelsPerInch,0,0,0);
      x := x + (DBGrid1.Columns[i].Width+5)/PixelsPerInch;
      end;
    SetFont(DBGrid1.TitleFont.Name,DBGrid1.TitleFont.Size);
    Bold := True;
    for i := 0 to DBGrid1.Columns.Count-1 do
      PrintTab( DBGrid1.Columns[i].Title.Caption );
    Bold := False;
    NewLine;
    MoveTo(SectionLeft,YPos-FontHeight+0.05);
    LineTo(SectionRight, YPos-FontHeight+0.05);
    NewLine;
  end;
end;

function T_frmModelo.DBGridPrintPage(Sender: TObject;
  var PageNum: Integer): Boolean;
var i:Integer;
begin
  qryGrid.DisableControls;
  qryGrid.First;
  with Sender as TBaseReport do
      begin
      SetFont(DBGrid1.Font.Name,DBGrid1.Font.Size);
      while not cm.qryBrowse.Eof do
         begin
         if odd(cm.qryBrowse.RecNo) then // verifica se e impar
            begin
            SetBrush($E0E0E0,bsSolid,NIL);
            SetPen(0,psClear,0,pmCopy);
            Rectangle(SectionLeft,YPos-FontHeight,SectionRight,YPos);
            end
         else
             SetBrush($FFFFFF,bsSolid,NIL);

         for i := 0 to DBGrid1.Columns.Count-1 do
             PrintTab( DBGrid1.Columns[i].Field.Text );
         NewLine;
         qryGrid.Next;
         if YPos >= (SectionBottom-SectionTop) then NewPage;
         end;
      Result := False;
      end;
  qryGrid.First;
  qryGrid.EnableControls;
end;

procedure T_frmModelo.actRelatorioExecute(Sender: TObject);
begin
with _dmPrincipal.RvSystem1 do begin
   SystemPrinter.MarginBottom := 0.5;
   SystemPrinter.MarginTop := 0.5;
   SystemPrinter.MarginLeft := 0.5;
   SystemPrinter.MarginRight := 0.5;
   OnPrintHeader := DBGridPrintHeader;
   OnPrintPage := DBGridPrintPage;
   OnPrintFooter := DBGridPrintFooter;
   Execute;
   OnPrintHeader := NIL;
   OnPrintPage := NIL;
   OnPrintFooter := NIL;
end;