当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi 引用Printers单元实现Printer打印功能

  •   时间:2020-03-09
  • 概述:打印 Printer

这是一个Delphi Printer打印实例(需要引用Printers单元),程序主要分为4个步骤来实施:

一、判断系统中是否有默认打印机

Printer.Printers.Count  //如果大于0系统存在默认打印机,否则没有。

二、打印功能

Printer.BeginDoc;
Printer.Canvas.Brush.Color := clblack;  //设置画笔颜色
Printer.Canvas.Brush.Style := bsClear;  //设置画笔格式
Printer.Canvas.Font.Name   := '宋体';  //设置字体
Printer.Canvas.Font.Size   := 20;      //设置字体大小
Printer.Canvas.Font.Style  := [fsBold];  //设置字体格式
//可以设置一个变量y记录距离上边界的距离
y := 0;
Printer.Canvas.TextOut(x,y,‘文字’); 
//Printer.Canvas.TextOut(x + Printer.Canvas.TextWidth(‘文字’),y,‘文字1’); 同一行显示
y := 40 + Printer.Canvas.TextHeight(s) + 行距;
Printer.Canvas.TextOut(x ,y,‘文字2’);    //下一行显示
Printer.EndDoc;  //结束打印(开始正式打印)

三、取消打印(打印中止)

Printer.Abort;
if Printer.Printing then
Printer.EndDoc;

四、打印bmp图片

tempbmp := TBitmap.Create;
tempbmp.LoadFromFile(‘路径+文件名’);
Printer.Canvas.Draw(x, y, tempbmp);

    相关内容:

    相关声明:

      若“Delphi 引用Printers单元实现Printer打印功能”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。