p;  --参数的用途
     *********************************************************************}
    procedure InitPrinter(PRatio: Integer=1;APWidth: Double=171;
        APHeight: Double=78;APsize: Integer=256;ADeviceName:string='''';
        Adefault:string=''YES'';AOffsetX:Integer=0;AOffsetY:Integer=0); overload;
    procedure InitPrinter(ConfigIni: string;PRatio: Integer=1); overload;
    {********************************************************************
     函数名称:       PrintText
     函数功能:  在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串
     输入参数：      X, Y: Extended; -- 打印起始点,单位为毫米
     输入参数：      LineHeight, TextWidth: Extended;  --行高，待打印矩形宽度
     输入参数：      Txt: string;    -- 待打印的文本
     输入参数：      FontSize: Integer=12    --字体为''宋体'',缺省大小为12，
     输入参数：      TextAlignment: Integer=DT_LEFT  --文本对齐方式,缺省为''左对齐''
     输入参数：      AllowNewLine:Boolean=False  --是否允许换行
     输出参数:       换了几行则返回几,默认为1,未换行      --参数的用途
     *********************************************************************}
    function PrintText(Xmm, Ymm, LineHeight, TextWidth: Extended;
        Txt: string; FontSize: Integer=10; TextAlignment: Integer=DT_LEFT;
        AllowNewLine:Boolean=False):Integer; overload;
    function PrintText(Xmm, Ymm: Extended; Txt: string;FontSize: Integer=10;
        AllowNewLine:Boolean=False):Integer; overload;
    procedure PrintChar(s: PChar);
    procedure PrintEllipse(Xmm1, Ymm1, Xmm2, Ymm2: DOUBLE;APenWidth: Integer=2);
    procedure PrintLine(Xmm1, Ymm1, Xmm2, Ymm2: DOUBLE; ACanvas: TCanvas; APenWidth: Integer=5);
   &n