前一陣子給 安徽省棉麻交易市場 作了乙個咚咚
（類似於中國移動話費單列印）
其中乙個模組的功能就是實現單據列印
單據是專用紙，不是白紙
模組程式簡單，主要是思路要對，要不然就複雜了
開始走了彎路，老是想怎麼用報表
比如datareport，ms的msflexgrid，還有更為複雜的第三方水晶報表
事實上用乙個極為簡單的printer.currentx和printer.currenty就可以了
要做的準備工作就是量好單據每個要列印項的座標
再乘以56.7，轉化成「緹」
如果是水平列印，則要先將印表機的走紙設為橫向（控制面板裡。。）
還有個細節是換行問題
在vb中，text文字框的輸入是可以自動換行的，但列印則不會自動換行
為此，我編寫了乙個函式實現每個文字框每行最多列印6個字元：
sub printsingleline(s as string, x as long, n as integer)
dim nlines as integer
nlines = len(s) / n
if len(s) > n * nlines then nlines = nlines + 1
if len(s) = 0 then nlines = 1 ' 空 行
for i = 0 to nlines - 1
printer.currentx = x
printer.print mid(s, i * n + 1, n)
next
end sub
再實行以下呼叫：
dim s as string, sline as string
printer.currenty = 72 * 56.7 '72是我例子的座標
s = txtproductinfo(2).text '我例子的文字框
pos = instr(s, vbcrlf) 'vbcrlf索回車的意思。。
do while pos > 0
sline = left(s, pos - 1)
s = mid(s, pos + 2)
printsingleline trim(sline), 49 * 56.7, 6
pos = instr(s, vbcrlf)
loop
printsingleline trim(s), 49 * 56.7, 6 '每行6個字元
－－－－－－－－－作者卡卡－－－－－－－－－
話談中國移動寬頻
如果有覺得我是在打廣告的就可以不用往下看了。本來我是不想吐槽中國移動寬頻，但是不說心裡又氣不過，在這裡寫出來給大家以後安寬頻一些建議，我們在學校和公司用的都是電信，用著真的很爽，網速快的一逼啊 而且非常穩定，今年寒假我回到家，正好家裡面爸媽安裝的是移動寬頻，我用電腦的時候開始還沒有發現我問題，後來我...
中國移動BOSS系統
中國移動boss系統 boss是業務運營支撐系統 business operations support system 的簡稱，它涵蓋了以往的計費 結算 營業 帳務和客戶服務等系統的功能，對各種業務功能進行集中 統一的規劃和整合，是一體化的 資訊資源充分共享的支撐系統。編輯本段 回到頂部 中國移動b...
中 國 移 動 D N S 大 全
1 中國移動dns大全 中國移動 新疆 218.202.218.59 中國移動 上海市 上海市 203.156.201.157 中國移動 四川省 涼山州 218.200.188.53 中國移動 四川省 成都市 211.137.96.205 中國移動 山西省 陽泉市 211.142.52.146 中國...