用Ehlib二次開發報表列印程式，實現財務憑證的列印（三） (轉)

用Ehlib二次開發報表列印程式，實現財務憑證的列印（三） (轉)[@more@]

4、列印表頭，我將表頭的各個部分劃成了幾部分，如我的憑證列印的地方，我就劃成了五部分，每部分按佔百分比多少計算。如編制單位就佔頁面寬度的40%等

procedure TF_printpreview.printpageheader(pageheader: Tstrings);
var
  Headrect:Trect;
  count:integer;
begin
  pp_pz.Printer.Canvas.Font.Name:='宋體';
  pp_pz.Printer.Canvas.Font.Color:=clblack;
  pp_pz.Printer.Canvas.Font.Size:=9;
  pp_pz.Printer.Canvas.Font.Style:=[];
  gettextinfo;
  Amountprint:=Amountprint+round(0.8*textheight);//當前邏輯尺的位置
  for  count:=0 to pageheader.Count-1 do
  begin
  case count of
  0:
  HeadRect:=Rect(round(pp_pz.Printer.PageSet.LeftMargin),Amountprint,round(pp_pz.Printer.PageSet.LeftMargin+round(0.4*(pp_pz.Printer.PageWidth))),Amountprint+textheight);//編制單位比例
  1:
  HeadRect:=Rect(headrect.Right,Amountprint,headrect.Right+round(0.16*(pp_pz.Printer.PageWidth)),Amountprint+textheight);//憑證日期比例
  2:
  HeadRect:=Rect(headrect.Right,Amountprint,headrect.Right+round(0.14*(pp_pz.Printer.PageWidth)),Amountprint+textheight);//帳套號比例
  3:
  HeadRect:=Rect(headrect.Right,Amountprint,headrect.Right+round(0.2*(pp_pz.Printer.PageWidth)),Amountprint+textheight);//憑證號比例
  4:
  HeadRect:=Rect(headrect.Right,Amountprint,headrect.Right+round(0.1*(pp_pz.Printer.PageWidth)),Amountprint+textheight);//分頁數號比例
  end;
  pp_pz.Printer.Canvas.TextOut(Headrect.left,headrect.top,pageheader[count]);
  end;
end;

5、列印表格頭

procedure TF_mxzprint.printdetailheader(detailheader: Tstrings);
var
  drect,srect,ct:Trect;
begin
  pp_pz.Printer.Canvas.Font.Name:='宋體';
  pp_pz.Printer.Canvas.Font.Color:=clblack;
  pp_pz.Printer.Canvas.Font.Size:=9;
  pp_pz.Printer.Canvas.Font.Style:=[];
  gettextinfo;
  Amountprint:=Amountprint+textheight;
  pp_pz.Printer.Canvas.Font.Size:=11;
  drect:=rect(PageRect.Left,Amountprint,PageRect.Left+round(0.3*(PageRect.Right-PageRect.Left)),Amountprint+2*textheight);
  drawtext(pp_pz.Printer.Canvas.handle,pchar('摘  要'),length('摘  要'),drect,DT_center or  DT_WORREAK or DT_VCENTER or DT_SINGLELINE);
  addpolyline([drect.left,drect.top,drect.right,drect.top,drect.right,drect.bottom,drect.left,drect.bottom,drect.left,drect.top]);

  drect:=rect(drect.right,drect.Top,drect.right+round(0.4*(PageRect.Right-PageRect.Left)),srect.Bottom);
  drawtext(pp_pz.Printer.Canvas.handle,pchar('科目名稱'),length('科目名稱'),drect,DT_center or  DT_BREAK or DT_VCENTER or DT_SINGLELINE);
  addpolyline([drect.left,drect.top,drect.right,drect.top,drect.right,drect.bottom,drect.left,drect.bottom,drect.left,drect.top]);
  drect:=rect(drect.right,drect.Top,drect.right+round(0.15*(PageRect.Right-PageRect.Left)),srect.Bottom);
  drawtext(pp_pz.Printer.Canvas.handle,pchar('借方金額'),length('借方金額'),drect,DT_center or  DT_WORDBREAK or DT_VCENTER or DT_SINGLELINE);

  addpolyline([drect.left,drect.top,drect.right,drect.top,drect.right,drect.bottom,drect.left,drect.bottom]);
  drect:=rect(drect.right,drect.Top,drect.right+round(0.15*(PageRect.Right-PageRect.Left)),srect.Bottom);
  addpolyline([drect.left,drect.top,drect.right,drect.top,drect.right,drect.bottom,drect.left,drect.bottom,drect.left,drect.top]);
  drawtext(pp_pz.Printer.Canvas.handle,pchar('貸方金額'),length('貸方金額'),drect,DT_center or  DT_WORDBREAK or DT_VCENTER or DT_SINGLELINE);

  addpolyline([drect.left,drect.top,drect.right,drect.top,drect.right,drect.bottom,drect.left,drect.bottom]);
  Amountprint:=amountprint+drect.Bottom-drect.Top;//+textheight;
end;

5、列印表格內容

（與上面相似，程式碼太多，略。。。）

6、列印彙總欄內容（程式碼較多，而且也相似，略）

7、列印功能

  pp_pz.Printer.BeginDoc;
  依次列印標題、列印、表頭等

 PolyPolyline(pp_pz.Printer.Canvas.Handle,PolyPolyPoints.List^,PolyLengths.List^,PolyLengths.Count);  pp_pz.Printer.EndDoc;

 

關鍵：就兩個PolyPolyline和DrawText而已！

請注意，我這是連載，我發現我最後一貼看的人比較多，可光看這篇基本上看不出什麼來的。管理員沒有發表我的第一篇，我現在把第一篇放到了連（二）裡面去了，所以大家不要找連載（一）了！由於時間比較忙，所以有一部分朋友要求要原始碼還沒來的及整理，但我一整理出來我就會發過去的，謝謝大家！

好了，如果大家需要原始碼可以向我索取，to:yczyk@163.com">yczyk@163.com