Ehlib的打印问题(200分)

  • 主题发起人 主题发起人 mblk
  • 开始时间 开始时间
如果打印确实不正常的话,可以适当增大
brichh
如inc(brichh,PenW)等等
 
在那里加inc(brichh,PenW) ? 能否把PageHeader放在BeforeGridText的后面?
 
www.playicq.com。我改的已经放到上面去了。在数据库这一栏
 
inc(brichh,PenW) 放在循环之前;
至于PageHeader放在BeforeGridText的后面改起来比较麻烦,
这可要你自己改了,我只能做到这样了,抱歉!
 
fangws_hzb,能否告诉我序号及名称
 
zjjzl,说的具体些, 是放在哪两条语句之间好吗?
 
while True do begin
 
zjjzl, 加入 inc(brichh,PenW) 后,表格的竖线又出头了
 
各位大哥:我的EHLIB老装不上去(说找不到文件),能不能给我发一个(D6)?

邮箱:lld_hz@163.com
 
zjjzl,我没有注意,出现了重大错误,虽然每页都可显示beforetext所定义的标题,但每
页的表头都没了.
 
谁可以给我发ehlib,e_mail:wulinkun999@sohu.com,我给他200
这是我仅有的积分。谢谢了
 
如果打印还好的话,inc(brichh,PenW)还是不加吧,毕竟打印才最主要的,模拟显示在不同比例下是不尽相同
后面重大错误不知是一直有还是后来才有的,如是前者的话,那就很麻烦了,得重新看源码了
 
to taiwan99:
fangws_hzb已经告诉你在那儿下载了,在http://202.117.210.31/delphi/下也有,自己去下吧。
 
zjjzl,重大错误是一直都有的
 
zjjzl,重大错误是一直都有的
 
我这边试过了好的,可能是你漏掉了一条语句,将你的代码贴出来,我来检查一下
 
zjjzl, 我用的是delphi7.0, 我的代码如下:
procedure PrintOutInfo;
var
richh,brichh : integer; //**
saveCalcInfoMode:boolean;
begin
//首先必须保证beforetext与aftertext两者高度不得超过DataPrintRec的高度,否则将陷入死循环;
saveCalcInfoMode:=CalcInfoMode;
CalcInfoMode := True;
PrintRichText(TRichEditStrings(AfterGridText));
richh:=PrintOffset;
PrintOffset:=0;
PrintRichText(TRichEditStrings(BeforeGridText));
brichh:=PrintOffset;//**
PrintOffset:=0; //**
CalcInfoMode := saveCalcInfoMode;
// if brichh+richh>=DataPrintRec.Bottom-DataPrintRec.Top { +Grid的最小高度 } then
// 此处加入发出错误信息代码


InitPolyBookmark(PBm1);

inc(brichh,PenW);

while True do begin

PrintOffset:=brichh;
PBm2 := CalcPrintRows(PBm1, DataPrintRec.Top + brichh { *** } , DataPrintRec.Bottom-richh - PenW);
PrintOffset := DrawRowsRange(PBm1,PBm2) + PenW;
PrintRichText(TRichEditStrings(AfterGridText));
PrintOffset := 0; //**
PrintRichText(TRichEditStrings(BeforeGridText));//**
if (PBm2.EOF = True)
then Break
else PrintOffset := 0;

PBm1 := PBm2;
end;

VPrinter_Canvas.BRUSH.Style := bsClear;
VPrinter_Canvas.Brush.Color := clWhite;

end;


 
一样的,我这边很好,发个截图过来看看
 
设置后应该每页都有,我现在对DBGRIDEH进行了功能扩展和集成,
形成新控件DBGridEhPrintBuilder.pas,我们的项目都用它。
新功能有:对数据集排序、
右键菜单(剪切,复制,粘贴,删除,全选,预览,保存,打开,查找)
新方法:
procedure Preview;
procedure Print;
procedure SaveSelectDataToFile;
procedure LoadDataFromFile;
新属性:
property UsePopupMenuEx: boolean;
property ReportPage: TReportPage;
property ReportTitle: string;
 
zjjzl, 截图已发出


 
后退
顶部