为什么DBGridEh1的Footer汇总,用PrintDBGridEh1打印不出来?````~~??????
    并且预览的时候只在最后一条记录下面显示空行```~~~~~~
基本设置代码如下:
DBGridEh1.FooterRowCount:=1;
DBGridEh1.SumList.Active:=True;
DBGridEh1.SumList.VirtualRecords:=True; 
DBGridEh1.FooterColor:=clRed;
DBGridEh1.FooterFont.Style:=[fsBold];
DBGridEh1.Columns[0].Footer.ValueType:=fvtStaticText;
DBGridEh1.Columns[0].Footer.Value:='合 计:';
DBGridEh1.Columns[5].Footer.ValueType:=fvtSum;
DBGridEh1.Columns[36].Footer.ValueType:=fvtSum;
DBGridEh1.Columns[37].Footer.ValueType:=fvtAvg;
      -------------------------------------------
   希望各位大侠朋友们帮帮忙``谢谢``
              另外` 怎么让 DBGridEh1 显示固定的行数,就是不管有没有数据都只显示那么多行``
  谢谢~~!!!

解决方案 »

  1.   

    打印函数如下:
    ------------------------------------
    procedure DBGridEhPrnt(AGrid:TDBGridEh;AOwner:TForm;APageHeader1:string='';APageHeader2:string='';ALineType:TPageColontitleLineType=pcltnon;PrintMode:Integer=0);
    var
      prn:TPrintDBGridEh;
    begin
      if AGrid.DataSource.DataSet.IsEmpty then
         exit;
      prn:=TPrintDBGridEh.Create(AOwner);
      prn.Title.Text:=APageHeader2;
      //设置标题
      with prn.PageHeader do
      begin
        //Font.Name:='宋体';
        Font.Size:=20;
        Font.Style:=[fsbold];
        LineType:=ALineType;
        CenterText.Text:=APageHeader1;   
        LeftText.Text:=#13+#10+'左边显示';
      end;
      //设置页脚
      with prn.PageFooter do
      begin
        Font.Size:=10;
        Font.Style:=[fsbold];
        LineType:=ALineType;
        CenterText.Text:='第&[Page]页 共&[Pages]页'; 
        LeftText.Text:='领料组长签名:              ';
        RightText.Text:='物料主管:                ';
      end;
      //设置页边距
      with prn.Page do
      begin
         BottomMargin:=1.5;
         LeftMargin:=1.2;
         RightMargin:=0.5;
         TopMargin:=0.8;
      end;
      //默认纸张设置
      PrinterPreview.Orientation:= poLandscape; //横向预览
      //*************
      {PrinterPreview.Orientation:=poPortrait;//纵向}
      //*************
      prn.DBGridEh:=AGrid;
      Printer.Orientation:=poLandscape;//横向打印
      if PrintMode=1 then
      begin
        prn.Print;
      end
      else
      begin
        prn.Preview;
      end; 
    end;
      

  2.   

    我以前用过PrintDBGridEh1,感觉很不好用,而且格式也不好看。
      

  3.   

    朋友``` 
    我是想问怎么样把 那个Footer汇总打印出来``不问别的 ``谢谢`了``
       认真点````谢谢`
      

  4.   

    Csdn````你让我抑郁了```
        突然发现自己的帖子只有自己回帖```