實(shí)現(xiàn)AS400在HP打印機(jī)上的TCP/IP中文打印

drunkfish

很久沒上這個(gè)論壇了，也很久沒摸AS400了；今天無聊上來瀏覽了下發(fā)現(xiàn)沒有一篇文章談到用TCP/IP的LPD/LPR協(xié)議實(shí)現(xiàn)AS400的中文打印，以前PUSH過IBM拿出解決方案，估計(jì)沒什么指望了。

我把我在6，7年前在HP 4000系列打印機(jī)上實(shí)現(xiàn)AS400中文打印的經(jīng)驗(yàn)和大家分享一下，希望有更多的人去嘗試不同類型和品牌打印機(jī)上的解決方案；希望對(duì)做400仿真打印廠商的生意不要造成影響。

AS400中英文的TCP/IP打印相信很多人都試過，對(duì)其打印輸出的速度是各種打印方式中最快的這點(diǎn)應(yīng)該沒有異議吧？特別是異地或大量打印時(shí)。

下面我具體描述下實(shí)現(xiàn)過程，

CRTOUTQ 其中相關(guān)參數(shù)如下：

Remote system: 10.10.10.1 <-- HP打印機(jī)的IP地址
Remote printer queue: TEXT <-- 這個(gè)是IBM定義的，對(duì)HP的queue一定要用‘TEXT’ 其他打印機(jī)可以查IBM關(guān)于打印的紅皮書。
Writers to autostart: 1 <-- 自動(dòng)起虛擬設(shè)備的數(shù)量
Connection type: *IP <-- 肯定選IP咯
Destination type: *OTHER
Host print transform: *NO
Manufacturer type and model: *WSCST <-- 關(guān)鍵，IBM現(xiàn)成的選項(xiàng)，至少對(duì)HP而言不能實(shí)現(xiàn)中文打印，所以選自己定義workstation customization
Workstation customizing object: XXXXX <-- 自己開發(fā)的*WSCST類型目標(biāo)的名字
Library： XXXXX <-- 目標(biāo)所在的庫(kù)
Destination options: 'XAIX XAUTOQ' <-- 此字符串是IBM 某個(gè)PTF的要求，具體解決什么忘了，照抄就是了。

。。。要去做晚飯了，明天繼續(xù)WSCST怎么寫。

drunkfish

在做WSCST之前，先介紹下HP打印機(jī)要注意的地方，必須安裝HP專門用于其打印機(jī)的中文字庫(kù)條/卡，好像幾百塊一條。另外，要花點(diǎn)時(shí)間學(xué)一下打印機(jī)的PCL語(yǔ)言，熟悉一下ESC代碼；我當(dāng)時(shí)是專門從HP買了一套HP PCL的手冊(cè)；順便提一下，好像每家打印機(jī)廠商的PCL都有些不同，如果要嘗試其他打印機(jī)，最好還是弄套它們的手冊(cè)，免得走彎路。
打印機(jī)字庫(kù)條，據(jù)我所知也是有變化的，最初是象內(nèi)存條的那種，以后又有SD卡的那種；這里先提下，后面會(huì)提到要注意的地方。

安裝字庫(kù)條后，從打印機(jī)面板上選到打印PCL字體，會(huì)出來一份PCL FONT LIST, 放在手邊以后會(huì)用到。

對(duì)WSCST類型目標(biāo)，我重來沒找到過學(xué)習(xí)資料，只能自己摸索；先學(xué)習(xí)下IBM現(xiàn)成的WSCTS目標(biāo)，用RTVWSCST命令獲取一個(gè)和我要用的打印機(jī)最接近的IBM現(xiàn)成的Manufacturer type and model的打印機(jī)。隨便放在一個(gè)SOURCE FILE里你可以獲得一個(gè)TXT MEMBER，

我現(xiàn)在沒AS400可以上，具體命令格式，有意者幫忙貼下。

我這里就直接貼我加工完成的了。

:WSCST DEVCLASS=TRANSFORM.

    :TRNSFRMTBL.
    RTDTASTRM
      DATASTREAM=ESC/P.
    :INITPRT
  /*  DATA ='1B451B266C2D3534305A'X.   */
      DATA ='1B451B266C2D39305A'X.     <-- 這里是初始化打印機(jī)的PCL碼，用ASCII碼表，把它翻譯成ESC碼，然后查打印機(jī)的PCL手冊(cè)，前面提到不同的字庫(kù)條，還有不同型號(hào)的打印機(jī)，有可能這串碼還不一樣，而且手冊(cè)上還沒有。當(dāng)時(shí)我是通過HP的客戶經(jīng)理（我們是HP的GLOBAL ACCOUNT）找到一個(gè)正真的專家，告訴他打印機(jī)型號(hào)和字庫(kù)條的PART Number； 才拿到正確的指令。
    :SPACE
      DATA ='20'X.
    :CARRTN
      DATA ='0D'X.
    :FORMFEED
      DATA ='0C'X.
    :LINEFEED
      DATA ='0A'X.
    :VARLSPC
      VAROFFSET=    3
      VARLEN=    3
      VARTYPE=CHRDEC
      CNVNUM=    1
      CNVDEN=   48
      DATA ='1B266C000000431B266C352E333343'X. <--調(diào)整打印位置
    :CPI
      CPI=10
      DATA ='1B26743338501B283138431B28733170372E327630733062333733353754'X. <--這里定義你要打的字體和大小，這行對(duì)應(yīng)CPI=10的AS400REPORT...下面幾行類似，根據(jù)AS400的需求去改這里的設(shè)置，中文字體的ESCcode在PCL FONT LIST里面找。TIPS：DPI64，72，90效果很好，中文和英文可以完美對(duì)齊，其他不同設(shè)置大家可以自己去試。
    :CPI
      CPI=12
      DATA ='1B26743338501B283138431B28733170372E327630733062333733353754'X.
    :CPI
      CPI=15
      DATA ='1B26743338501B283138431B28733170372E327630733062333733353754'X.
    RTORIENT
      ORIENT=LANDSCAPE
      DATA ='1B266C334F'X.
    :FNTGRP.
    :FNTGRPE
      MINFID=  154
      MAXFID=  200
      FNTSTR='1B26743338501B283138431B28733170372E327630733062333733353754'X
      FNTEND=''X
      FNTWTH=
     /* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
       '22ADAEA78FBEA777EFABEF7F696869AA'X      /* 00- */
       '62624A48635892514E4EADAD93AD6B6B'X      /* 01- */
       '48526E7878D3BB52525278D352525252'X      /* 02- */
       '787878787878787878785252F0D3F06A'X      /* 03- */
       'D3AD95A3B29590ADB2525BA895D8B2AD'X      /* 04- */
       '8BAD9E8295B2ADE2ADAD9A5252527878'X      /* 05- */
       '786A786A786A52787843437843BB7878'X      /* 06- */
       '7878565B437878AD78786A6A786A78F0'X      /* 07- */
       'A3786A6A6A6A6A6A6A6A6A434343ADAD'X      /* 08- */
       '959ED3787878787878ADB2787878D378'X      /* 09- */
       '6A43787878B278786AD3D3D3D3526060'X      /* 0A- */
       '78AD7878A36AB178526A787878787878'X      /* 0B- */
       '6A6A78786A6A78786A6A78786A6A7878'X      /* 0C- */
       'AD43ADD36A43789EAD43ADB1954378AD'X      /* 0D- */
       '907890909078876A9EAD906AF0905BF0'X      /* 0E- */
       'F0D3F0F0ADADD3F0785252AD78567848'X      /* 0F- */
      EURODATA=''X.
    :EFNTGRP.
:EWSCST.

做完之后用CRTWSCST命令創(chuàng)建自己的WSCST，把它放到CRTOUTQ的參數(shù)里。

從小語(yǔ)文就不太好，大家將就看吧。有什么要幫忙的就留言給我，只要在能力范圍內(nèi)，我盡力吧。

drunkfish

有個(gè)地方打錯(cuò)了‘TIPS：DPI64，72，90效果很好，。。�！瘧�(yīng)該是‘72，90dots’ 不是DPI

dave_10

有機(jī)會(huì)試試看。。。牛人啊