用Ehlib二次开发报表打印程序，实现财务凭证的打印（三）

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,jrect: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_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.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_WORDBREAK or DT_VCENTER or DT_SINGLELINE);

共2页  1 2