A
Andy
Hi;
(Also posted in Access.Reports NewsGroup)
Used Lebans.com's JustiDirect in one Report. It works perfectly on the
machine that has Access installed.
Packaged the Dbase for a machine that doesn't have Access using "Package and
Deployment Wizard" for a run-time version.
The text S T R E T C H E D width wise and flowed past the height of the
Control.
Anyone have a suggestion, (Stephen)?
Andy
Don't expect anyone to finish my code for me but have included the code in
case someone else could use it.
The VBA code is:
Option Compare Database
Option Explicit
Dim Justi1 As New clsJustifyText
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim intFS As Integer
For intFS = 14 To 10 Step -1
Me.txtProdDescript.FontSize = intFS
If fTextHeight(Me.txtProdDescript) < Me.txtProdDescript.Height Then Exit
For
Next intFS
End Sub
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Call Justi1.fRecordDetail(Me, "txtProdDescript", PrintCount)
End Sub
Private Sub Report_Close()
Set Justi1 = Nothing
End Sub
Private Sub Report_Page()
Dim myBool As Boolean
myBool = Justi1.fJustiDirect(Me)
End Sub
(Also posted in Access.Reports NewsGroup)
Used Lebans.com's JustiDirect in one Report. It works perfectly on the
machine that has Access installed.
Packaged the Dbase for a machine that doesn't have Access using "Package and
Deployment Wizard" for a run-time version.
The text S T R E T C H E D width wise and flowed past the height of the
Control.
Anyone have a suggestion, (Stephen)?
Andy
Don't expect anyone to finish my code for me but have included the code in
case someone else could use it.
The VBA code is:
Option Compare Database
Option Explicit
Dim Justi1 As New clsJustifyText
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim intFS As Integer
For intFS = 14 To 10 Step -1
Me.txtProdDescript.FontSize = intFS
If fTextHeight(Me.txtProdDescript) < Me.txtProdDescript.Height Then Exit
For
Next intFS
End Sub
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Call Justi1.fRecordDetail(Me, "txtProdDescript", PrintCount)
End Sub
Private Sub Report_Close()
Set Justi1 = Nothing
End Sub
Private Sub Report_Page()
Dim myBool As Boolean
myBool = Justi1.fJustiDirect(Me)
End Sub