Microsoft Access 掲示板

不思議な現象ですねぇってことで書式「通貨」に設定したテキストボックスでテストをしてみました

Dim s As String
s = Format(Me!テキスト3, Me!テキスト3.Format)
Debug.Print s; Asc(s); AscW(s); Me!テキスト3.Format

s = "\30"
Debug.Print s; Asc(s); AscW(s)

結果

\30 92  165 Currency
\30 92  92 

書式「通貨(Currency)」で使われる円記号はUnicodeのA5のようです。PrintメソッドがUnicodeに対応していないので文字化けするとかじゃないですかねぇ

文字コードの変換を入れてあげると円記号が表示できます

s = Format(.Value, .Format) 'テキストボックスの書式プロパティで書式化
s = StrConv(s, vbNarrow) 'Printメソッドでの描画用に変換

縦罫線に関しては前の質問でもページフォーマット時(Report_Page)でやればいいのでは？と回答してますが、うまくいかなかったんでしょうか？