Delphi中打印条码的方法
来源:互联网 发布:手机淘宝怎样改差评 编辑:程序博客网 时间:2024/06/11 09:51
Delphi中打印条码的方法
导读:
1 通过菜单”Component”下的”Import ActiveX”将“Microsoft
Access Barcode Control 9.0”控件引入。这个控件
(msbcode9.occx)随同Office一起安装到系统中。
2 在“ActiveX”下可以看到该控件,可以直接拖放到窗体上
。通过属性设置,可以设置条码类型,内容,宽度、高度等等
。
条码的数据是通过”Value”属性设置,也通过Datasource等
设置引用数据库字段。高度和宽度通过控件的高度宽度设置,
空白区域没有找到办法缩减。
3 代码
在已经插入一个控件后,可以通过以下的处理进行打印。
我试过,打印、识读都没有问题。
有关不显示在界面上就进行打印的方法,希望用户自己查
询。
procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
sR,tR:TRect;
begin
//记录图像
bmp := TBitmap.Create;
sR :=
Rect(BarCodeCtrl1.Left,BarCodeCtrl1.Top,BarCodeCtrl1.Left +
BarCodeCtrl1.Width,
BarCodeCtrl1.Top + BarCodeCtrl1.Height);
tR := Rect(0,0,BarCodeCtrl1.Width,BarCodeCtrl1.Height);
bmp.Width := BarCodeCtrl1.Width;
bmp.Height := BarCodeCtrl1.Height;
bmp.Canvas.CopyRect(tR,Canvas,sR);
// bmp.SaveToFile('c:\1.bmp');
//打印
printer.BeginDoc;
printer.Canvas.Font.Size := 15;
printer.Canvas.TextOut(10,10,'Barcodestrl demo');
printer.Canvas.Draw(20,100,bmp);
printer.EndDoc;
bmp.free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//产生条码
BarCodeCtrl1.Value := '012345678';
BarCodeCtrl1.Width := 400;
BarCodeCtrl1.Height := 100;
end;
注意:
1 该控件好像不是非常符合条码的宽窄条比,所以需要找
一个合适的宽高比例,以保证可识读。
2 按照上面的方法,会采用打印机驱动程序的默认设置。
因此需要在打印机驱动程序上选择合适的页面和相关处理作为
默认值。当然,应该有更加好的方法对打印机驱动进行设置,可
以搜索一下网络吧!
3 另外你也可以直接从网上下载一些条形码字体,然后设
置打印字体为条形码字体,这种方法更为简单,但是对打印机
和扫描枪有一定的精度要求。
导读:
1 通过菜单”Component”下的”Import ActiveX”将“Microsoft
Access Barcode Control 9.0”控件引入。这个控件
(msbcode9.occx)随同Office一起安装到系统中。
2 在“ActiveX”下可以看到该控件,可以直接拖放到窗体上
。通过属性设置,可以设置条码类型,内容,宽度、高度等等
。
条码的数据是通过”Value”属性设置,也通过Datasource等
设置引用数据库字段。高度和宽度通过控件的高度宽度设置,
空白区域没有找到办法缩减。
3 代码
在已经插入一个控件后,可以通过以下的处理进行打印。
我试过,打印、识读都没有问题。
有关不显示在界面上就进行打印的方法,希望用户自己查
询。
procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
sR,tR:TRect;
begin
//记录图像
bmp := TBitmap.Create;
sR :=
Rect(BarCodeCtrl1.Left,BarCodeCtrl1.Top,BarCodeCtrl1.Left +
BarCodeCtrl1.Width,
BarCodeCtrl1.Top + BarCodeCtrl1.Height);
tR := Rect(0,0,BarCodeCtrl1.Width,BarCodeCtrl1.Height);
bmp.Width := BarCodeCtrl1.Width;
bmp.Height := BarCodeCtrl1.Height;
bmp.Canvas.CopyRect(tR,Canvas,sR);
// bmp.SaveToFile('c:\1.bmp');
//打印
printer.BeginDoc;
printer.Canvas.Font.Size := 15;
printer.Canvas.TextOut(10,10,'Barcodestrl demo');
printer.Canvas.Draw(20,100,bmp);
printer.EndDoc;
bmp.free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//产生条码
BarCodeCtrl1.Value := '012345678';
BarCodeCtrl1.Width := 400;
BarCodeCtrl1.Height := 100;
end;
注意:
1 该控件好像不是非常符合条码的宽窄条比,所以需要找
一个合适的宽高比例,以保证可识读。
2 按照上面的方法,会采用打印机驱动程序的默认设置。
因此需要在打印机驱动程序上选择合适的页面和相关处理作为
默认值。当然,应该有更加好的方法对打印机驱动进行设置,可
以搜索一下网络吧!
3 另外你也可以直接从网上下载一些条形码字体,然后设
置打印字体为条形码字体,这种方法更为简单,但是对打印机
和扫描枪有一定的精度要求。
- Delphi中打印条码的方法
- 在Delphi中打印条码的方法步骤如下
- 在Delphi中打印条码的方法步骤如下
- 在Delphi中打印条码的方法步骤如下
- Delphi 串口打印条码
- Delphi FastReport 打印条码
- Delphi开发二维条码的方法
- Delphi 调用BarTender打印条码
- Delphi 调用Codesoft打印条码
- Delphi 调用BarTender打印条码
- 基于Delphi的条码打印系统设计与实现
- 基于Delphi的条码打印系统设计与实现
- Delphi结合LabelView进行条码打印
- TSCActiveX条码打印方法描述
- VB2010 打印条码标签方法二
- Delphi调用BarTender7.75打印条码标签简明开发教程
- Delphi实现条码生成与打印实现代码
- 条码打印
- mysql数据库操作
- 在win7系统中安装SQL2005出现29506错误码的解决方案
- C#开发串口总结,并提炼串口辅助类到公用类库中
- 查看mysql连接进程及连接用户
- SQL Server 2005无法远程连接的解决方法
- Delphi中打印条码的方法
- linux下进程间通信
- 淘宝网高性能可伸缩架构技术探秘
- 用汇编的眼光看C++(之算术符重载陷阱)
- SteveY对Amazon和Google平台的长篇大论
- 在xcode 4.2.1中使用skd 5.0 编译出在ios 4.3或者其他版本里面可以用的应用
- Django数据库操作笔记
- Linux下如何查看CPU信息, 包括位数和多核信息
- SerialPort类的常用属性及方法