Delphi打印条码程序条码类型CODE128B.docxVIP

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).