ー 筵ク・蝪シ・タクタョ・ケ・ッ・・ラ・ネ
。ホヘムナモ。マ
Visual Basic、ヌ。・。・。・。・。・
。ヲ・ニ・ュ・ケ・ネー ヤ、、、ソ、、、ャー ホ、コ、、ハ、ノ、 エター、ケ、、ホ、ャツ醋ム。」
、筅テ、ネエハテア、ヒ、ハ、鬢ハ、、、ォ。」
。ヲハ」サィ、ハ。ハ、ォ、テ、ウ、、、、。ヒ・ニ・ュ・ケ・ネー ヤ、、、ソ、、。」
。ヲ・・ー、 ニ・ュ・ケ・ネ、ヌスミホマ、キ、ニ、、、、ャクォ、ヒ、ッ、、、ホ、ヌターキチ、キ、ソ、、。」
、「、ッ、゛、ヌ、筵ニ・ュ・ケ・ネ・ル。シ・ケ、ホー ヌ、ケ、ホ、ヌクツウヲ、マ、「、熙゛、ケ。」
。ホニーコウホヌァ。マ
。ヲ・ケ・ッ・・ラ・ネシツケヤ
Microsoft Windows 98 4.10.1998 + CYGWIN_98-4.10
FreeBSD Release 3.4
。ヲー ツケヤ
Microsoft Windows 98 4.10.1998 + Microsoft Visual Basic 5.0(SP3)
ーワソ「タュ、マニテ、ヒーユシア、キ、ニコタョ、キ、ニ、、、゛、サ、 ャ。「ツセ、ホ Unix・鬣、・ッ、ハエトカュ、ヌ、簇ーコ、ケ、
、ネサラ、、、゛、ケ。」、ソ、タ、キ。「ー ヌトケ猯ワ、ヒニ ワク、 ネヘム、ケ、セケ遉マニ ワク、ホサネヘムイトヌス、ハ
エトカュ。ハ・゛・・チ・ミ・、・ネツミア ヒ、ヌ、「、ノャヘラ、ャ、「、熙゛、ケ。」
CYGWIN、マ http://cygwin.com/、ォ、鬣タ・ヲ・ 。シ・ノ、キ、゛、キ、ソ。」
。ホス ー。マ
genPcode [-m markchar][--] file
file 、 ノ、゜ケ ゜。「ノクス狄ミホマ、ヒー 筵ク・蝪シ・・ウ。シ・ノ、 ュスミ、キ、゛、ケ。」
-m ・ヌ・ユ・ゥ・・ネ、マ 'x'。」ー ミホマホホー隍ネ、キ、ニサネヘム、キ、ニ、、、ハクサ リト熙ケ、。」
アムソ ホ、゜サリトイトヌス、ヌ、ケ。」
-- ・ェ・ラ・キ・逾 リト熙ホスェホサ、 ィ、ケ。」
file 、ャ - 、ヌサマ、゛、フセチー、ヌ、「、セケ遉ヒサネヘム、ケ、。」。ハ"-image.txt"、ハ、ノ。ヒ
。ホソヌテヌ。マ
genPcode 、マーハイシ、ホテヘ、ホ、ヲ、チ」ア、ト、 ヨ、キ、ニスェホサ、キ、゛、ケ。」
0 タオセスェホサ、キ、゛、キ、ソ。」
1 シー、ャフオクヌ、キ、ソ。」
。ホ・ミ・ー。マ
ー ミホマホホー霆リトハクサャー ヌトケ猯ワ、ホハクサイ ヒエ゛、゛、、ニ、、、、ネ。「、ス、ホハクサ
スミホマホホー隍ネネステヌ、キ、゛、ケ。」
。ホサネヘムホ罍マ
$ genPcode image.txt > print.bas
image.txt: ー 、・癸シ・ク・ニ・ュ・ケ・ネ・ユ・。・、・
print.bas: ー 筵ク・蝪シ・・ユ・。・、・
。ホー 、・癸シ・ク・ニ・ュ・ケ・ネ・ユ・。・、・。マ
ー ヌトケ猯ワ。ァ ・・ニ・鬣テヘ
ー ミホマホホー陦ァ 'x'。ハネセウムセョハクサヒコヌツ酘ケハャハツ、ル、ニサリト熙ケ、。」
ー 、・癸シ・ク・ニ・ュ・ケ・ネ・ユ・。・、・、マサナヘヘス ネ、キ、ニヘ ム、ケ、、ホ、簧ノ、、、ォ、ネサラ、、、゛、ケ。」
。ハホ罍ヒimage.txt
ィ」ィ。ィ。ィ。ィ。ィ。ィィィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ、
ィ「 ネッタクニ ィ「 キタフ ヤフセ ィ「
ィァィ。ィ。ィ。ィ。ィ。ィォィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィゥ
ィ「xxxxxxxxxxィ「xxxxxxxxxxxxxxxxxxxxィ「
ィヲィ。ィ。ィ。ィ。ィ。ィェィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ・
。ハテーユ。ヒ
。ヲ・、・癸シ・ク、 タョ、ケ、、ネ、ュ。「・ソ・ヨ、マサネヘム、キ、ハ、、ハ ャホノ、、、ヌ、ケ。」ツソ、ッ、ホセケ遑「
ー ャハ 、゛、ケ
。ヲEOF、ホコ゜、ケヤ、マニノ、゜ケ ゜、゛、サ、 ホ、ヌウニケヤ、マノャ、コイ ヤ、ヌスェホサ、ケ、、隍ヲ、ヒ、キ、ニ、ッ
、タ、オ、、。」
ホ网ィ、ミ。「シ。、ホ、隍ヲ、ヒ、ハ、テ、ニ、、、、ミフ萃熙マ、「、熙゛、サ、 」
ィ」ィ。ィ。ィ。ィ。ィ。ィィィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ、(イ ヤ)
ィ「 ネッタクニ ィ「 キタフ ヤフセ ィ「(イ ヤ)
ィァィ。ィ。ィ。ィ。ィ。ィォィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィゥ(イ ヤ)
ィ「xxxxxxxxxxィ「xxxxxxxxxxxxxxxxxxxxィ「(イ ヤ)
ィヲィ。ィ。ィ。ィ。ィ。ィェィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ・(イ ヤ)
(EOF)
、ウ、、ャシ。、ホ、隍ヲ、ヒ、ハ、テ、ニ、、、、ネコヌク螟ホケヤ、マス靉 オ、、゛、サ、 」
ィ」ィ。ィ。ィ。ィ。ィ。ィィィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ、(イ ヤ)
ィ「 ネッタクニ ィ「 キタフ ヤフセ ィ「(イ ヤ)
ィァィ。ィ。ィ。ィ。ィ。ィォィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィゥ(イ ヤ)
ィ「xxxxxxxxxxィ「xxxxxxxxxxxxxxxxxxxxィ「(イ ヤ)
ィヲィ。ィ。ィ。ィ。ィ。ィェィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ・(EOF) 「ォ 、ウ、ホケヤ、マフオサ、オ、、゛、ケ。」
。ホー 筵ク・蝪シ・・ユ・。・、・。マ
シ。、ホ 」モ」 筵ラ・・キ。シ・ク・网 クタョ、キ、゛、ケ。」
。ヲPublic Sub Print_xxx()
ー ラ・・キ。シ・ク・
。ヲPublic Function ALB(ByVal StrArg As String, ByVal arg1 As Long) As String
ANSIハクサイ ヒハムエケ、キ、ニチ犲、ケ、 LeftB
Microsoft Visual Basic 5.0
。ヨANSI ハクサイ ホ・ミ・、・ネテアーフ、ホチ犲、 ケ、エリソ ホホ (Readme)。ラ、隍ーアム。」
AnsiLeftB 、ネ、、、ヲ・ラ・・キ。シ・ク・耄セ、ヌセメイ オ、、ニ、、、゛、ケ。」
。ハホ罍ヒprint.bas
Public Sub Print_xxx()
Dim sData As String: sData = ""
Dim sVal As String * 200: sVal = ""
sData = sData & "ィ」ィ。ィ。ィ。ィ。ィ。ィィィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ、" & vbCrLf
sData = sData & "ィ「 ネッタクニ ィ「 キタフ ヤフセ ィ「" & vbCrLf
sData = sData & "ィァィ。ィ。ィ。ィ。ィ。ィォィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィゥ" & vbCrLf
sData = sData & "ィ「" & ALB(sVal, 10) & "ィ「" & ALB(sVal, 20) & "ィ「" & vbCrLf
sData = sData & "ィヲィ。ィ。ィ。ィ。ィ。ィェィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ・" & vbCrLf
With Printer
.FontName = "」ヘ」モ ・エ・キ・テ・ッ": .FontSize = 9
End With
Printer.Print sData
Printer.EndDoc
End Sub
Public Function ALB(ByVal StrArg As String, ByVal arg1 As Long) As String
ALB = StrConv(LeftB(StrConv(StrArg, vbFromUnicode), arg1), vbUnicode)
End Function
。ホVisual Basic、ヌー ヤ、ヲ。マ
。ヲ[・ラ・・ク・ァ・ッ・ネ(P)-・ユ・。・、・、ホトノイテ(A)...]、ヌタクタョ、キ、ソ・筵ク・蝪シ・・ユ・。・、・、 ラ・
・ク・ァ・ッ・ネ、ヒトノイテ、キ、゛、ケ。」
。ヲPublic Sub Print_xxx()、 、タオ、キ、゛、ケ。」
。ハホ罍ヒ
ー ヌ。シ・ソ、 マ、ケ、ソ、皃ヒ・譯シ・カトオチキソ、 オチ、キ、゛、ケ。」ー 杳フワ、ャセッ、ハ、ア、、ミ・ミ
・鬢ヌナマ、キ、ニ、簧ノ、、、ネサラ、、、゛、ケ。」
Public Type Cont
date As String * 10 「ォ ( >= "xxxxxxxxxx" )
name As String * 20 「ォ ( >= "xxxxxxxxxxxxxxxxxxxx" )
End Type
。ハテーユ。ヒALB()、ホツ隹ー」 ヒナマ、ケハムソ マクヌトトケハクサイ ヌウニー 杳フワ、ホコヌツ酘ケーハ
セ螟ヒ、ケ、ノャヘラ、ャ、「、熙゛、ケ。」コヌツ酘ケフ、ヒ ヌ、マー ャハ 、゛、ケ、ホ、ヌテーユ、キ
、ニ、ッ、タ、オ、、。」
Public Sub Print_Contractor(sVal As Cont)
Dim sData As String: sData = ""
sData = sData & "ィ」ィ。ィ。ィ。ィ。ィ。ィィィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ、" & vbCrLf
sData = sData & "ィ「 ネッタクニ ィ「 キタフ ヤフセ ィ「" & vbCrLf
sData = sData & "ィァィ。ィ。ィ。ィ。ィ。ィォィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィゥ" & vbCrLf
sData = sData & "ィ「" & ALB(sVal.date, 10) & "ィ「" & ALB(sVal.name, 20) & "ィ「" & vbCrLf
sData = sData & "ィヲィ。ィ。ィ。ィ。ィ。ィェィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ。ィ・" & vbCrLf
With Printer
.FontName = "」ヘ」モ ・エ・キ・テ・ッ": .FontSize = 9
。ハテーユ。ヒセ蠏ュ、マケ・、゜、ヒア ク、ニハムケケ、ヌ、ュ、゛、ケ、ャ。「クヌトトケ・ユ・ゥ・ ネ、ヌ、ハ、、
、ネー ャハ 、゛、ケ。」
End With
Printer.Print sData
Printer.EndDoc
End Sub
Have fun.
Copyright (C) 1999 System Infinity Corporation. All rights reserved.