（レポート側の処理）
' ※ReportStartイベント内でプロパティの値を設定すると
' 　レポートの処理中はその値がデフォルト値として有効に
' 　なります。
Private Sub ActiveReport_ReportStart()
　　Call fncSetProperty(Me.Sections)
End Sub

（共通モジュール側の処理）
Public Sub fncSetProperty(pSecs As Sections)
　　Dim i As Integer
　　Dim j As Integer

　　' レポート上の全てのセクションに対して、セクション上の
　　' 全てのコントロールを取得し、Field 又は Label の時のみ
　　' WordWrapプロパティを"False"に設定します。
　　For i = 0 To pSecs.Count - 1
　　　　For j = 0 To pSecs(i).Controls.Count - 1
　　　　　　If (TypeOf pSecs(i).Controls(j) Is Field) Or _
　　　　　　　　(TypeOf pSecs(i).Controls(j) Is Label) Then
　　　　　　　　pSecs(i).Controls(j).WordWrap = False
　　　　　　End If
　　　　Next j
　　Next i

End Sub

Private Sub Detail_Format()
　　' 最大14バイトで文字をカットします。
　　Me.FldName.Text = StrConv( _
　　　　LeftB$(StrConv(Me.FldName.Text, vbFromUnicode), 14) _
　　　　, vbUnicode)
End Sub