レポートでテキストボックスの幅は決まってしまいますので、フォントサイズが一定ならば印字する文字数が多い場合、当然ですが溢れた部分は印刷されません。

Excelでは、セルの書式設定の文字列の制御で次の画像のように[縮小して全体を表示する(K)]をチェックすることで、自動的にフォントサイズをコントロールして長い文字列も印刷されますが、Accessではそうした機能がないようです。（あるのかも知れませんが知りません。）

そこで、今回はAccessでレポートのテキストボックスの幅に収まるフォントサイズまで自動縮小する方法を作成してみました。

レポートのテキストボックスのサイズを調べ、そこに表示する文字列の基準フォントでの必要なサイズと比較してテキストボックスに収まるかどうかをチェックします。
収まらない場合、フォントサイズを1段階づつ小さくしてテキストボックスに収まるフォントサイズを割り出します。

具体的には、まず、次の画像のようにレポートをデザインビューで開いてください。

次に、詳細のグレーの帯の部分（ページヘッダーやページフッターではない）で右クリックすると次のようなポップアップメニュー（Access2000の場合）が表示されますので、プロパティ(P)をクリックしてください。

次のような画面が表示されますので、フォーマット時にマウスを移動します。

右側にボタンが2つ表示されていますので、その中の右側のボタンをクリックします。
ビルダの選択の画面が表示されますので、コードビルダを選択して[OK]します。
次のようなコードを入力する画面が表示されます。

そこに、以下のコードを入力してください。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
'テキストボックスの幅に合わせてテキストのフォントサイズをコントロールする。

    Dim strTxt As String
    Dim i As Integer
    Dim lngBoxSize As Long
    Dim lngTxtSize As Long

    Me.FontSize = 10
    Me.[テキスト0].FontSize = 10
    
    strTxt = Me.[テキスト0].Text
    i = Me.[テキスト0].FontSize
    
    lngBoxSize = Me.[テキスト0].Width
    lngTxtSize = Me.TextWidth(strTxt)

    Do While lngBoxSize < lngTxtSize
        Me.[テキスト0].FontSize = i - 1
        Me.FontSize = i - 1
        lngTxtSize = Me.TextWidth(strTxt)
        i = i - 1
    Loop
    
End Sub

また、一つのレポート内でサイズをコントロールしたいテキストボックスが複数ある場合などは、ひつ工夫必要です。