troubleshooting Question

Justify - Block Texting on Report

Avatar of Petrobras
PetrobrasFlag for United States of America asked on
Microsoft Access
4 Comments1 Solution335 ViewsLast Modified:
Hello,

I have read some posts about block texting and seems like you have to download a file from Lebans (http://www.lebans.com/justidirect.htm).  I did this and copied the code over.  

When I compile it hightlights ==> Dim Justi1 As New clsJustifyText

I added the references but it still gives me this error.  

the entire code is:
Option Compare Database
Option Explicit
Dim Justi1 As New clsJustifyText
Dim Justi2 As New clsJustifyText

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Call Justi1.fRecordSection(Me, Me.txt1, PrintCount)
Call Justi2.fRecordSection(Me, Me.txt2, PrintCount)
End Sub

Private Sub Report_Close()
Set Justi1 = Nothing
Set Justi2 = 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)
myBool = Justi2.fJustiDirect(Me)
Debug.Print "SF Page event"

End Sub


How can I solve the error?

thank you
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 4 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros