为什么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 显示固定的行数,就是不管有没有数据都只显示那么多行``
谢谢~~!!!
并且预览的时候只在最后一条记录下面显示空行```~~~~~~
基本设置代码如下:
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 显示固定的行数,就是不管有没有数据都只显示那么多行``
谢谢~~!!!
------------------------------------
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;
我是想问怎么样把 那个Footer汇总打印出来``不问别的 ``谢谢`了``
认真点````谢谢`
突然发现自己的帖子只有自己回帖```