くだすれVB6.0以前（超初心者向け）

476 名前：デフォルトの名無しさん [2009/01/06(火) 10:27:29 ] 本当に申し訳ありませんが、どなたか教えてください。 '住所1の印字 P_PRINT.E_Font "FC行楷書体", ADRS_FNT, True, 0 HH = ADRS_FNT / 2.835 + 1 If Not IsNull(AdoRs![住所1]) Then For I = 1 To Len(AdoRs![住所1]) BAR = Mid$(AdoRs![住所1], I, 1) ' If BAR = "−" Then BAR = "ー" ' P_PRINT.E_String_Tate 60, 14 + (I - 1) * HH, BAR, RGB(0, 0, 0) '縦書き If BAR = "ー" Or BAR = "−" Then BAR = "｜" P_PRINT.E_String 60, 14 + (I - 1) * HH, BAR, RGB(0, 0, 0) Next End If 上記はVBでのアプリケーションから封筒に宛名を印刷する。 というコードの一部なのですが、現在縦書き仕様になっており、 横書き仕様に書き換えたいのですが、一体どこをどう換えれば良いのか、 全く検討つきません。 心優しい方、ご教示いただければありがたいです。。。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef