PB打印斑马条码程序

uf_print13( string startcode, string stdtype, long copys ,string direct ) returns string

------------------------------------------------------

long job, i, counter,ll_state

string curr_code, static_part,ls_return

static_part = mid(startcode, 1, 7)

if direct = "N" then

counter = long(mid(startcode, 8, 8))

else

counter = long(mid(startcode, 8, 8)) + copys - 1

end if

job = printopen("barcode 02")

if job= -1 then

messagebox('提示','02分配打印作业失败!!')

return ''

end if

ls_return=string(job)+':'

for i = 1 to copys

ll_state=printsend(job, "^XA", 10) //开始打印

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

curr_code = static_part + mid(string(100000000+counter), 2, 8)

ll_state=printsend(job, "^BY2,3.0,", 10) //条形码的宽度

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^LH30,10", 10) //定义标签起始位置

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=Printsend(job, "^FO20,15^XGXH,1,1^FS",10) // FO20，15表示坐标，

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO20,40^BCN,70,N,N,N,N^FD"+curr_code+"^FS",10)//打印条形码图形

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO120,120^AD^FDNO:"+curr_code+"^FS",10)//打印条形码字符

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=Printsend(job, "^FO20,165^XGXH,1,1^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO20,190^BCN,70,N,N,N,N^FD"+curr_code+"^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO120,270^AD^FDNO:"+curr_code+"^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=Printsend(job, "^FO20,325^XGXH,1,1^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO20,350^BCN,70,N,N,N,N^FD"+curr_code+"^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO120,430^AD^FDNO:"+curr_code+"^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=Printsend(job, "^FO20,475^XGXH,1,1^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO20,500^BCN,70,N,N,N,N^FD"+curr_code+"^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO120,580^AD^FDNO:"+curr_code+"^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

/*四联*///2005-1028 2008-12-06 新格式打印

ll_state=Printsend(job, "^FO20,630^XGXH,1,1^FS",10) //140i3

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO20,655^BCN,70,N,N,N,N^FD"+curr_code+"^FS",10) //打印条形码图形

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO120,735^AD^FDNO:"+curr_code+"^FS",10) //打印条形码字符

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=Printsend(job, "^FO18,740^XGhx,1,1^FS",10) //140i3

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=Printsend(job, "^FO20,765^XGrq,1,1^FS",10) //140i3

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

/*四联*///2005-1028

/*

ll_state=Printsend(job, "^FO20,475^XGXH,1,1^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO20,500^BCN,70,N,N,N,N^FD"+curr_code+"^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

ll_state=printsend(job, "^FO120,580^AD^FDNO:"+curr_code+"^FS",10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

*/

ll_state=printsend(job, "^XZ", 10)

if i = 1 then ls_return=ls_return+string(ll_state)+'-'

if direct = "N" then

counter = counter + 1

else

counter = counter - 1

end if

next

printclose(job)

return ls_return

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/443058/viewspace-1042078/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/443058/viewspace-1042078/