mhardy
Jan 8th, 2007, 02:59 PM
I am receiving runtime -2147191834 (800473e6) after I have run setup. The message is "Visual Basic UFL that implements this function is missing or (U2lcom.dll is missing)". I am using CR ver. 10 and VB 6 and have verified that the U2lcom.dll was distributed with the setup. Everything runs fine on the development machine. The report is a bar code label with IDAutomationHC39M forts and the formula is
"IDAutomationFontEncoderCode39 ({WorkingLabel.PART_NO})"
Dim iINIFile As Integer
Dim sINIFile As String
Dim sDBFile As String
Dim sDBFile2 As String
Dim CRReport As CRAXDRT.Report
Dim CRApp As New CRAXDRT.Application
iINIFile = FreeFile
sINIFile = App.Path & "\IMMS.INI"
Open sINIFile For Input As #iINIFile
Input #iINIFile, sRec
sDBFile = Mid(sRec, InStr(sRec, "=") + 1)
sDBFile2 = Replace(sDBFile, "\InteractiveMaterialManagementSystem.mdb", "")
Set CRReport = CRApp.OpenReport(sDBFile2 & "\Reports\Report2.rpt")
With CRReport
.Database.Tables(1).Location = sDBFile
.RecordSelectionFormula = "{WorkingLabel.LabelIndex}=" & txtSeq.Text & ""
.PrintOut
End With
Set CRApp = Nothing
Set CRReport = Nothing
"IDAutomationFontEncoderCode39 ({WorkingLabel.PART_NO})"
Dim iINIFile As Integer
Dim sINIFile As String
Dim sDBFile As String
Dim sDBFile2 As String
Dim CRReport As CRAXDRT.Report
Dim CRApp As New CRAXDRT.Application
iINIFile = FreeFile
sINIFile = App.Path & "\IMMS.INI"
Open sINIFile For Input As #iINIFile
Input #iINIFile, sRec
sDBFile = Mid(sRec, InStr(sRec, "=") + 1)
sDBFile2 = Replace(sDBFile, "\InteractiveMaterialManagementSystem.mdb", "")
Set CRReport = CRApp.OpenReport(sDBFile2 & "\Reports\Report2.rpt")
With CRReport
.Database.Tables(1).Location = sDBFile
.RecordSelectionFormula = "{WorkingLabel.LabelIndex}=" & txtSeq.Text & ""
.PrintOut
End With
Set CRApp = Nothing
Set CRReport = Nothing