以下のリストは、プリントで〜ぐのＡＰＤＬの例で、見積書を印刷する書式です。このリストは、全プリンタに対応しています。prn%変数がプリンタの機種を表します。
<![CDATA[
' 見積書(Quotation) for プリントで〜ぐ (C) Copyright 1994 Arcpit Co.,LTD.
reset
if prn% = 2 ' NPDL プリンタ
paper 240
bx% = 20; by% = 20;
sp% = 24; sp2% = 36
jissen% = 1; tenten% = 6
else ' PC-PR ESC/P プリンタ
bx% = 20; by% = 5;
sp% = 0; sp2% = 0
jissen% = 0ffffh; tenten% = 0cccch
iend
base bx%,by%
' ----------------------------- 固定の文字列 -----------------------------
jump "next2"
read "con01",,"御見積書"
read "con02",,"ＱＵＯＴＡＴＩＯＮ"
read "con03",,"〒"
read "con04",,"270-01"
read "con05",,"千葉県流山市南流山１−１９−７"
read "con06",,"TEL 0471(58)7832 FAX 0471(58)7649"
read "con07",,"株式会社アークピット"
read "con08",,"引き合い"
read "con09",,"支払条件"
read "con10",,"納期"
read "con11",,"運賃及び荷造り費"
read "con12",,"受渡場所"
read "con13",,"見積有効期限"
read "con14",,"項目"
read "con15",,"商品及び仕様"
read "con16",,"数量"
read "con17",,"単価"
read "con18",,"金額"
read "con19",,"小計"
read "con20",,"消費税（５％）"
read "con21",,"合計"
read "con22",,"承認"
read "con23",,"照査"
read "con24",,"担当"
next2
' ------------------------- 全文字列の読み込み -------------------------
read "var10",,"Ｎｏ．９４０６０１"
read "var11",,"１９９４年 ６月１０日"
read "var12",,"電脳コントロールズ株式会社 御中 "
read "var13",,"渡 辺 様 "
read "var14",,"納入後４０日以内現金お申受け "
read "var15",,"御下命後１０日以内 "
read "var16",,"含む "
read "var17",,"貴社 "
read "var18",,"本日付後 ３０日以内 "
for i%=1,20,1
if i% < 10
read "tbl1_"+str$(i%),," "+str$(i%)
else
read "tbl1_"+str$(i%),,str$(i%)
iend
read "tbl2_"+str$(i%),,"ＧＵＩ設計構築ツール 「パネルで〜ぐ」 "
read "tbl3_"+str$(i%),," 5"
read "tbl4_"+str$(i%),," 68,000"
read "tbl5_"+str$(i%),," 340,000"
next
read "var20",,"100"
read "var21",," 6,800,000"
read "var22",," 204,000"
read "var23",,"100"
read "var24",,"\\7,004,000"
' ----------------------------- 印刷の開始 -----------------------------
expand 2,2;
if prn%<>1; font 1,2; iend
string 48,0,-18.0,"con01" ' 御見積書
expand;
if prn%<>1; font; iend
if prn%=0 | prn%=3 ' NEC PC-PR プリンタ
string 60,4,-4.6,"con02" ' ＱＵＯＴＡＴＩＯＮ
iend
if prn% = 1 ' NEC 初期型PC-PR プリンタ
string 60,5,-4.6,"con02" ' ＱＵＯＴＡＴＩＯＮ
iend
if prn% = 2 ' NPDL プリンタ
string 60,8,-4.6,"con02" ' ＱＵＯＴＡＴＩＯＮ
iend
by% = by% + 15
base bx%,by%
string 125, 0,+sp2%,"var10" ' Ｎｏ．９４０６０１
hline 120, 4,164
string 121, 5,+sp2%,"var11" ' １９９４年６月１０日
hline 120, 9,164
if prn%<>1; font 1,2; iend
string 1,10,+sp2%,"var12" ' 電脳コントロールズ株式会社
if prn%<>1; font; iend
hline 0,15, 72
string 77,12,+sp2%,"con03" ' 〒
string 82,12,+sp%,"con04",,"D" ' 270-01
string 103,12,+sp2%+2,"con05" ' 千葉県流山市南流山１−１９−７
string 77,18,+sp%,"con06",,"D" ' TEL 0471(58)7832 FAX 0471(58)7649
if prn%<>1; font 1,2; iend
string 77,23,-8.1, "con07" ' 株式会社アークピット
if prn%<>1; font; iend
string 1, 33,+sp2%,"con08" ' 引き合い
string 23, 33,+sp2%,"var13" ' 渡辺様
string 81, 33,+sp2%,"con09" ' 支払条件
string 102, 33,+sp2%,"var14" ' 納入後４０日以内現金お申受け
hline 0, 37, 67
hline 80, 37,166
string 1, 42,+sp2%,"con10" ' 納期
string 23, 42,+sp2%,"var15" ' 御下命後９０日以内
string 81, 42,+sp2%,"con11" ' 運賃及び荷造費
string 117, 42,+sp2%,"var16" ' 含む
hline 0, 46, 67
hline 80, 46,166
string 1, 51,+sp2%,"con12" ' 受渡場所
string 23, 51,+sp2%,"var17" ' 貴社
string 81, 51,+sp2%,"con13" ' 見積有効期限
string 117, 51,+sp2%,"var18" ' 本日付後 ３０日以内
hline 0, 55, 67
hline 80, 55,166
by% = by% + 60
base bx%,by%
x1%=0; y1%=0; x2%=166; y2%=140
lsize 3; box x1%,y1%,x2%,y2%,0,jissen%; lsize
hline x1%,9,x2%,jissen%,130
hline x1%,110,x2%,tenten%,120
vline 13,y1%,y2%,jissen%,103,117,138
if prn%<>1; font 1,2; iend
string x1%+2, y1%+3,+sp2%,"con14" ' 項目
string x1%+45, y1%+3,+sp2%,"con15" ' 商品及び仕様
string x1%+106,y1%+3,+sp2%,"con16" ' 数量
string x1%+123,y1%+3,+sp2%,"con17" ' 単価
string x1%+147,y1%+3,+sp2%,"con18" ' 金額
if prn<>1; font; iend
y% = y1%+11
for i%=1,20,1
string x1%+6, y%,+sp%, "tbl1_"+str$(i%),,"D" ' 項目
string x1%+16, y%,+sp2%,"tbl2_"+str$(i%) ' 商品及び仕様
string x1%+107,y%,+sp%, "tbl3_"+str$(i%),,"D" ' 数量
string x1%+119,y%,+sp%, "tbl4_"+str$(i%),,"D" ' 単価
string x1%+139,y%,+sp%, "tbl5_"+str$(i%),,"D" ' 金額
y% = y%+4.8
next
string x1%+68 ,y1%+112.9,+sp2%,"con19" ' 小計
string x1%+107,y1%+112.9,+sp%, "var20",,"D" ' 100
string x1%+139,y1%+112.9,+sp%, "var21",,"D" ' 6,800,000
string x1%+68 ,y1%+122.7,+sp2%,"con20" ' 消費税（５％）
string x1%+139,y1%+122.7,+sp%, "var22",,"D" ' 204,000
string x1%+68 ,y1%+132.8,+sp2%,"con21" ' 合計
string x1%+107,y1%+132.8,+sp%, "var23",,"D" ' 100
string x1%+139,y1%+132.8,+sp%, "var24",,"D" ' \7,004,000
by% = by% + 142
base bx%,by%
x1%=94; y1%=0; x2%=166; y2%=12
box x1%,y1%,x2%,y2%,0,jissen%
vline x1%+23,y1%,y2%,jissen%,x1%+47
string x1%+2, y1%+0.7,+sp2%,"con22" ' 承認
string x1%+25,y1%+0.7,+sp2%,"con23" ' 照査
string x1%+49,y1%+0.7,+sp2%,"con24" ' 担当
paging
stop
jump "next2"
]]>
|
