Power Builder - Imprimir PrintOpen()

String ls_folio, ls_cliente, ls_proid, ls_pronom, ls_empid, le_empnom, ls_usuid, ls_usunom, ls_linid, ls_linnom, ls_chofer

ls_folio		= Ceros(em_orden.text,12)

ls_cliente	= Valida_Cad(gs_nom_cte)

ls_proid		= Valida_Cad(sle_pro_id.text)

ls_pronom	= Valida_Cad(ddlb_producto.text)

ls_empid		= Valida_Cad(sle_emp_id.text)

le_empnom	= Valida_Cad(ddlb_empresa.text)

ls_usuid		= Valida_Cad(sle_usu_id.text)

ls_usunom	= Valida_Cad(ddlb_usuario.text)

ls_linid		= Valida_Cad(sle_lin_trans.text)

ls_linnom	= Valida_Cad(ddlb_linea.text)

ls_chofer	= Valida_Cad(sle_chofer.text)

ole_prn.object.OutPut= "^XA" + gs_crlf

ole_prn.object.OutPut= "^MPS" + gs_crlf

ole_prn.object.OutPut= "^LH0,0" + gs_crlf

ole_prn.object.OutPut= "^FO1,30^AU^FB850,2,0,C,0^FD" + ls_cliente + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO019,184^GB130,01,01^FS ^FO049,150^ARN,32,22 ^FDFolio PA:^FS" + gs_crlf

ole_prn.object.OutPut= "^FO165,151^GB165,34,02^FS ^FO170,150^ARN,32,22 ^FD" + em_orden.text + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO389,184^GB140,01,01^FS ^FO390,150^ARN,32,22 ^FDFecha Hora:^FS" + gs_crlf

ole_prn.object.OutPut= "^FO535,151^GB277,34,02^FS ^FO540,150^ARN,32,22 ^FD" + sle_fec_hor.text + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO019,221^GB132,01,01^FS ^FO043,187^ARN,32,22 ^FDProducto:^FS" + gs_crlf

ole_prn.object.OutPut= "^FO165,188^GB125,34,02^FS ^FO170,187^ARN,32,22 ^FD" + ls_proid + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO300,188^GB513,34,02^FS ^FO305,187^ARN,32,22 ^FD" + ls_pronom + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO019,258^GB132,01,01^FS ^FO043,224^ARN,32,22 ^FDEmpresa:^FS" + gs_crlf

ole_prn.object.OutPut= "^FO165,225^GB125,34,02^FS ^FO170,224^ARN,32,22 ^FD" + ls_empid + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO300,225^GB513,34,02^FS ^FO305,224^ARN,32,22 ^FD" + le_empnom + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO019,295^GB132,01,01^FS ^FO054,261^ARN,32,22 ^FDUsuario:^FS" + gs_crlf

ole_prn.object.OutPut= "^FO165,262^GB125,34,02^FS ^FO170,261^ARN,32,22 ^FD" + ls_usuid + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO300,262^GB513,34,02^FS ^FO305,261^ARN,32,22 ^FD" + ls_usunom + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO019,332^GB132,01,01^FS ^FO020,298^ARN,32,22 ^FDLinea Tran:^FS" + gs_crlf

ole_prn.object.OutPut= "^FO165,299^GB125,34,02^FS ^FO170,298^ARN,32,22 ^FD" + ls_linid + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO300,299^GB513,34,02^FS ^FO305,298^ARN,32,22 ^FD" + ls_linnom + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO019,369^GB132,01,01^FS ^FO070,335^ARN,32,22 ^FDPlacas:^FS" + gs_crlf

ole_prn.object.OutPut= "^FO165,336^GB220,34,02^FS ^FO170,335^ARN,32,22 ^FD" + sle_placas.text + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO019,406^GB132,01,01^FS ^FO065,371^ARN,32,22 ^FDChofer:^FS" + gs_crlf

ole_prn.object.OutPut= "^FO165,373^GB450,34,02^FS ^FO170,371^ARN,32,22 ^FD" + ls_chofer + "^FS" + gs_crlf

ole_prn.object.OutPut= "^FO40,450^BY3^BCR,100,Y,Y ^FD" + ls_folio + "^FS" + gs_crlf

ole_prn.object.OutPut= "^XZ" + gs_crlf

Return

String ls_cadena, ls_car, ls_rem[] = {'_A0','_82','_A1','_A2','_A3','_B5','_90','_D6','_E0','_E9','_A4','_A5','_F2'}

String ls_esp = 'áéíóúÁÉÍÓÚñÑ_'

Integer li_i, li_j, li_k, li_l, li_ascii

ls_cadena	= ''

li_j			= Len(par_cadena)

for li_i = 1 to li_j

	ls_car = Mid(par_cadena,li_i,1)

	li_k = Pos(ls_esp,ls_car)

	if li_k > 0 then ls_car = ls_rem[li_k]

	ls_cadena += ls_car

next

Return ls_cadena/code]

Si no tienes el manual de programacion lenguaje ZPL pídemelo.

Ahora bien para la impresión via Windows a solo debes de crear una datawindow con los datos que quieres, el logo de la la imagen es un picturebox, la ventaja de este tipo de impresión es mas sencillo de colocar los datos y presentarlo a excepción del código de barras.

Y para el código de barras necesitas el font code 128, lo tengo si lo quieres pídemelo, para generar el contenido necesitas un algoritmo el cual es este:

[code]Integer li_i, li_j, li_k, li_sum

String ls_car, ls_res, ls_c128 = '!"#$%&~'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~~ÃÄÅÆÇÈÉÊËÌÍÎ'

li_j 		= Len(par_cadena)

li_sum	= 104

for li_i = 1 to li_j

	ls_car	= Mid(par_cadena,li_i,1)

	li_k 		= Pos(ls_c128,ls_car)

	li_sum  += li_k * li_i

next

li_sum = Mod(li_sum, 103)

ls_res = Mid(ls_c128,li_sum,1)

ls_res = Mid(ls_c128,104,1) + par_cadena + ls_res + Mid(ls_c128,106,1)

Return ls_res