こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ACCESS2002 文字サイズを指定せず、領域内で自動調整は可能ですか?

住所をテーブルで入力し、レポートに印刷しています。
住所領域は、長い住所の方だと、印刷した場合、領域内に収まり切れず、途中エ切れてしまいます。
仕方ないので、住所領域の全体の文字サイズを小さくしましたが、レポート内の全住所が小さくなるのが難点です。
短い住所の方はそのままの文字サイズで、長い方だけは、自動縮小。
まさに、エクセルの配置の「縮小して全体を表示」みたいな事がしたいです。
出来ますでしょうか?

投稿日時 - 2007-11-28 11:33:47

QNo.3553487

すぐに回答ほしいです

質問者が選んだベストアンサー

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
  Dim L As Integer
  Dim V As Integer
  
  L = Len(Me.Address2_1 & "")
  V = Abs((L <= 20) + (L > 20 And L <= 30) * 2 + (L > 40) * 3)
  Me.Address2_1.Visible = CBool(V = 1)
  Me.Address2_2.Visible = CBool(V = 2)
  Me.Address2_3.Visible = CBool(V = 3)
End Sub

こんな感じで・・・。

投稿日時 - 2007-11-28 12:08:19

お礼

詳しいコードありがとうございます。
すぐに解決できそうです♪

投稿日時 - 2007-11-28 12:11:58

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

レコードごとに文字数をチェックし
文字サイズを適したものに変更するようなコードを
詳細フォーマット字に書いてやります

投稿日時 - 2007-11-28 12:06:46

お礼

素早い回答感謝します。
コードを書くのですか。書いてみます。
ありがとうございました

投稿日時 - 2007-11-28 12:11:18

あなたにオススメの質問