R
Raje
Hi,
Request for Help with Leban's Justidirect class module
I copied the clsJustifyText to the mdb file in Access 2007
The report has a text box ("txtDescription") to be justified.
The font property of the text box was set to white.
The modified Justidirect code in the Report is as follows:
********************************************************************
Option Compare Database
Option Explicit
Dim Justi1 As New clsJustifyText
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Call Justi1.fRecordSection(Me, Me.txtDescription, PrintCount)
End Sub
Private Sub Report_Close()
Set Justi1 = Nothing
End Sub
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub Report_Page()
Dim myBool As Boolean
myBool = Justi1.fJustiDirect(Me)
End Sub
*********************************************************************
The txtDescription field in the Report is blank (possibly the white
font). What could be going wrong?
Thanks in Advance for the Help.
Regards,
Raj
Request for Help with Leban's Justidirect class module
I copied the clsJustifyText to the mdb file in Access 2007
The report has a text box ("txtDescription") to be justified.
The font property of the text box was set to white.
The modified Justidirect code in the Report is as follows:
********************************************************************
Option Compare Database
Option Explicit
Dim Justi1 As New clsJustifyText
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Call Justi1.fRecordSection(Me, Me.txtDescription, PrintCount)
End Sub
Private Sub Report_Close()
Set Justi1 = Nothing
End Sub
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub Report_Page()
Dim myBool As Boolean
myBool = Justi1.fJustiDirect(Me)
End Sub
*********************************************************************
The txtDescription field in the Report is blank (possibly the white
font). What could be going wrong?
Thanks in Advance for the Help.
Regards,
Raj