ー 筵ク・蝪シ・ﾀクタョ・ケ・ッ・･ラ・ネ
。ホヘムナモ。マ
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.