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.
     

  • 相关阅读:
    spring boot 启动类 添加组件
    spirng boot 添加过滤器
    spring cloud spring-hystrix 缓存
    spring cloud spring-hystrix
    spring cloud spirng整合feign
    spring cloud feign
    cxf-client
    spring cloud客户端启用负载均衡
    spring cloud 负载均衡自定义
    VS2013 配置pthread
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2940896.html
Copyright © 2011-2022 走看看