原创力文档- 1、本文档共11页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
Delphi 打印条码程序 条码类型CODE 128 B
调用过程:
setOrientation_Landscape;
setpagesize(1000,1600);
//pages:=1;
printer.Copies :=pages;
printer.BeginDoc;
// for i:=1 to pages do
// begin
drawtext('MS Sans Serif',16,100,20,'VENDOR:');
drawtext('MS Sans Serif',16,800,20,'DESCRIPTION:');
ts:= ds2.FieldByName('labelcode').AsString ;
drawtext('MS Sans Serif',16,100,70,ts);
ts:= ds2.FieldByName('fsize').AsString ;
drawtext('MS Sans Serif',16,800,70,ts);
drawline(100,115,1200,115,2);
drawline(790,20,790,115,2);
drawtext('MS Sans Serif',16,100,120,'ORDER NUMBER:');
ts:= ds2.FieldByName('qty').AsString ;
drawtext('Arial',24,350,160,ts);
drawline(100,230,1200,230,2);
drawtext('MS Sans Serif',16,100,240,'SKU:');
ts:= ds2.FieldByName('barcode').AsString ;
drawcode128B1(ts ,200,240,140,5); //打印128B条码
drawtext('Arial',18,420,390,ts);
drawline(100,470,1200,470,2);
drawline(410,470,410,670,2);
drawline(790,470,790,670,2);
drawtext('MS Sans Serif',16,100,480,'CARTON:');
drawtext('MS Sans Serif',16,420,480,'UNITS IN CARTON:');
drawtext('MS Sans Serif',16,800,480,'DESPATCH/SHIPPED');
ts:= ds2.FieldByName('PO').AsString ;
drawtext('MS Sans Serif',16,100,530,ts);
drawtext('MS Sans Serif',16,800,530,'DATE:');
ts:= ds2.FieldByName('style').AsString ;
drawtext('MS Sans Serif',16,100,580,ts);
ts:= ds2.FieldByName('dimpack').AsString ;
drawtext('MS Sans Serif',16,880,580,ts);
ts:= ds2.FieldByName('color').AsString ;
drawcode128B1(ts ,460,530,100,5);
drawtext('MS Sans Serif',16,520,640,ts);
// if i<pages then
// printer.NewPage ;
// end;
printer.EndDoc;
函数实现:
设置打印方向(横向打印)
procedure setOrientation_Landscape;
var
ADevice,ADriver,APort:array [0..255] of Char;
DeviceHandle:THandle;
DevMode:PDeviceMode;
begin
Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
if DeviceHandle=0 then
begin
Printer.PrinterIndex:=Printer.PrinterIndex;
Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
end;
if DeviceHandle=0 then
Raise Exception.Create('Cound Not In
文档评论（0）