2 u013411151 u013411151 于 2014.01.07 22:22 提问

delphi如何在条码打印机上打字

新手刚刚学习delphi7.0,做一个项目,要求用条码打印机打印标签,比如在标签纸上面打印‘12345’我用的是38宽50高的标签打印纸,用了网上一段代码,为什么走纸正常就是打印不出来,打印都是空白的,请高手指点,另外下面代码什么意思啊,为什么就是不打印不了标签

procedure TForm1.FormCreate(Sender: TObject);
begin
BarCodeCtrl1.Value := '012345678';
BarCodeCtrl1.Width := 400;
BarCodeCtrl1.Height := 100;

end;

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;

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
delphi7打印条形码例子
一个delphi7打印条形码的例子 希望对大家有帮助
条码打印实例
绍了如何在Delphi开发环境下实现条码打印,并结合示例详细介绍了条码打印系统的
Delphi 调用BarTender打印条码
之前没有使用过Delphi调用BarTender打印条码,在网上搜索了一下,很多都是介绍导入ActiveX组件,其实完全没有必要。用OLE控件完全可以解决。但需要注意所使用的BarTender必须是正式的安装版(PS:破解版好像也可以),试用版和绿色版都不可以二次开发。 下面是我给的列子:(需要应用ComObj.Pas文件) function DoPrint:Boolean; var
Code128条码生成打印Delphi7
Delphi7编写的Code128b的压缩条码生成和打印程序。在bmp图形上逐条线画出的条码,精度灰常灰常高。用Delphi打印输出可得精确条码。vb、pb生成的是与屏幕dpi和打印机物理dpi相关的,要换算。
在Delphi中打印条码的方法步骤如下
<br />导读: <br />   1 通过菜单”Component”下的”Import ActiveX”将“Microsoft Access Barcode Control 9.0”控件引入。这个控件(msbcode9.occx)随同Office一起安装到系统中。 <br />   2 在“ActiveX”下可以看到该控件,可以直接拖放到窗体上。通过属性设置,可以设置条码类型,内容,宽度、高度等等。 <br />   条码的数据是通过”Value”属性设置,也通过Datasource等设置引用数据
最新条码打印BCEncode.DLL 很好用。已破解
最新条码打印BCEncode.DLL 很好用。已破解
Delphi FastReport 打印条码
新建delphi过程,放入控件ADOQuery1,ADODataSource1,frxReport1,frxDesigner1(用于运行时设计报表),frxDBDataset1,frxBarCodeObject1。 ADOQuery1,ADODataSource1连接数据库。 frxDBDataset1的DataSource连接ADODataSource1。 双击frxReport1进行
Delphi实现条码生成与打印实现代码
条形码或称条码(barcode)是将宽度不等的多个黑条和空白,按照一定的编码规则排列,用以表达一组信息的图形标识符。条形码技术主要原理是利用了光的反射,白色物体能反射各种波长的可见光,黑色物体则吸收各种波长的可见光,所以当条形码扫描器光源发出的光在条形码上反射后,反射光照射到条码扫描器内部的光电转换器上,光电转换器根据强弱不同的反射光信号,转换成相应的电信号。 第一个条形码是与食品有关的,1
一维码打印控件(FBarcode) for delphi
delphi7&xe 条码打印 barcode 升级到2.8了
如何在Delphi下安装Ehlib组件
如何在Delphi下安装Ehlib组件如何在Delphi下安装Ehlib组件