AS400 RPGLE Z6M300dpi(PLUS) 中文标签打印

来源：互联网发布：怎样做好数据分析编辑：程序博客网时间：2024/06/05 18:12

原理

将打印机代码写入数据文件，下载此数据文件到PC，格式为TEXT文件，用BAT方式转换乱码部分字符，再打印新TEXT文件。

操作系统

WinXP简体中文, Client Access (简体中文)

打印机

Z6M300dpi(PLUS)

Spool File

~XA

~cw9,B:msung.fnt~fs

~seB:gb8bit.dat~FS

~FO100,330~CFD,50,15~FDCUSTOMER:~FS

~FO1080,330~AD,50,15~FDSHIP MARK:~FS

~CI26~FS

~FO100,420~A9N,100,100~FD中文字符有限公司 ~FS

~FO100,540~A9N,100,100~FD ~FS

~CI0~FS

~FO1080,380~AG~FDDG PK ~FS

~FO1080,440~AG~FD ~FS

~FO1080,500~AG~FD ~FS

~FO1080,560~AG~FD ~FS

~FO1080,620~AG~FD ~FS

~FO100,660~GB1550,0,3~FS

~FO100,670~AI~FDPACKAGE NO.~FS

~FO400,670~AG~FDW81225-1A ~FS

~FO1080,670~AI~FDNW. 14.98KG~FS

~FO100,740~AI~FDCASE NO.~FS

~FO400,740~AI~FD 1~FS

~FO1080,730~AI~FDGW. 16.03KG~FS

~FO1080,780~BY2~B3N,N,90,Y,N~FDW81225-1A0001~FS

~FO100,900~GB1550,0,3~FS

~FO100,910~CFB,35,15~FDARTICLE NO. COLOR CODE AND NAME QUANTITY~FS

~FO100,950~GB1550,0,3~FS

~FO30,960~CFB,35,15~FD 1)OC0850022/35/JS H.GREY GRD W/RAISED LOGO 180M x 3 ~FS

~FO130,1010~CFB,35,15~FD43912-GB-EL-VT/AP5-7540CA(U166) ~FS

~FO030,1060~CFB,35,15~FD ~FS

~FO130,1110~CFB,35,15~FD ~FS

~FO030,1160~CFB,35,15~FD ~FS

~FO130,1210~CFB,35,15~FD ~FS

~FO030,1260~CFB,35,15~FD ~FS

~FO130,1310~CFB,35,15~FD ~FS

~FO030,1360~CFB,35,15~FD

~FO130,1410~CFB,35,15~FD ~FS

~FO030,1460~CFB,35,15~FD ~FS

~FO130,1510~CFB,35,15~FD ~FS

~FO030,1560~CFB,35,15~FD ~FS

~FO130,1610~CFB,35,15~FD ~FS

~FO030,1660~CFB,35,15~FD ~FS

~FO130,1710~CFB,35,15~FD ~FS

~FO100,1760~GB1550,0,3~FS

~FO100,1770~CFB,35,15~FD JOB NO. ARTICLE NO. COLOR QUANTITY~FS

~FO100,1810~GB1550,0,3~FS

~FO013,1820~CFB,40,20~FD 1)XLW4701593X CK47/35/JS RF 180M x 3 ~FS

~FO013,1870~CFB,40,20~FD ~FS

~FO013,1920~CFB,40,20~FD ~FS

~FO013,1970~CFB,40,20~FD ~FS

~FO013,2020~CFB,40,20~FD ~FS

~FO013,2070~CFB,40,20~FD ~FS

~FO013,2120~CFB,40,20~FD ~FS

~FO013,2170~CFB,40,20~FD ~FS

~XZ

BAT File

@echo off
@rem *** Download Temp File ***
@del /F D:/Z6M/P00278B1.txt
@RTOPCB /S /I D:/Z6M/P00278B1.DTF

@rem *** Dynamic File Name ***
@set fn=%TIME:~3,2%%TIME:~6,2%%TIME:~9,2%

@echo off
@rem *** Replace Character '' -> '~' ***

     for /f "delims=" %%a in (D:/Z6M/P00278B1.txt) do (
     set a=%%a
setlocal enabledelayedexpansion
     set b=!a:=~!
     echo.!b!>>D:/Z6M/P00278B%fn%.txt
endlocal
     )

@echo off
@rem *** Print The Report ***
@copy D:/Z6M/P00278B%fn%.txt lpt1
@del /F D:/Z6M/P00278B%fn%.txt

@exit

原理

1. PS400程序将打印代码写入Temp File (如：Zdavidzhao/TMBAR01).

2. PS400程序调用Bat文件.

3. 使用Bat命令，将 Temp File从AS400下载到PC (text file).

4. 使用Bat命令，将字符'' -> '~'. (说明：由于由AS400下载Text文件，如果采用935码或65535码，则’~’变为''，打印机不能读取。故，采用DOS命令转换。)

5. 使用Bat命令，打印text file.

附件

PBAR01.zip

测试速度

从PS400程序按打印按钮，到 bat 完成下载Text File的时间(不包括打印机打印时间)。

1.台式电脑，本地局域网络(将打印的每张标签代码每次写入Text file,此方法不断弹出CMD窗口)

标签张数数据记录数用时

1 50 2 S

备注

1. 由于中文与英文字符长度不同，建议：中文采用 8字 X 2 Row 。(原英文标签：20Char X 5Row)