zoukankan      html  css  js  c++  java
  • dbgrideh通用打印

    {*******************************************************}
    {                                                       }
    {       通用打印模块                                    }   
    {                                                       }
    {       版权所有 (C) 2008 咏南工作室(陈新光)          }
    {                                                       }
    {*******************************************************}

    unit uPrint;

    interface

    uses
      DBGridEh,PrnDbgeh,SysUtils,Graphics,Forms,Printers,windows;

    procedure Prnt(AGrid:TDBGridEh;AOwner:Tform;APageHeader:string='';
      ALineType:TPageColontitleLineType=pcltnon);

    implementation

    //==============================================================================
    // linetype取值{pcltDoubleLine;pcltsingleline;pcltnon}
    // AOwner:TForm TPrintDBGridEh.Create(AOwner); 负责TPrintDBGridEh类对象FREE
    // TPrinterOrientation = (poPortrait, poLandscape); 纸张竖、横
    //==============================================================================

    procedure Prnt(AGrid:TDBGridEh;AOwner:TForm;APageHeader:string='';
      ALineType:TPageColontitleLineType=pcltnon);
    var
      prn:TPrintDBGridEh;
    begin
      if AGrid.DataSource.DataSet.IsEmpty then exit;
      prn:=TPrintDBGridEh.Create(AOwner);
      with prn.PageHeader do
      begin
        Font.Name:='宋体';
        Font.Size:=12;
        Font.Style:=[fsbold];
        LineType:=ALineType;
        CenterText.Text:=APageHeader;
      end;
      prn.DBGridEh:=AGrid;
      prn.Preview;
    end;

    end.
     

  • 相关阅读:
    sgu101Domino
    KM模版
    UVA11383 Golden Tiger Claw(KM算法)
    POJ3565Ants(KM算法)
    POJ3041Asteroids(二分图最小点覆盖)
    UVA1175 Ladies' Choice(稳定婚姻问题,二分图)
    POJ1273Drainage Ditches(裸的最大流)
    UVA1201 Taxi Cab Scheme(POJ2060)DAG的最小路径覆盖
    二分图最大匹配数模版
    11419 SAM I AM(二分图)
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2940896.html
Copyright © 2011-2022 走看看