Have used LL15 and VB6 for years. Would appreciate any help, examples etc. in switching over to use VB.NET 2012 with LL15.
Snippets from VB6 code for printing reports using unbound data.
'This code is used to initiate printing of report
ErrorCode = MainFrm.ListLabel.LlSetPrinterDefaultsDir(ReportPathStr)
ErrorCode = MainFrm.ListLabel.LlSetPrinterToDefault(LL_PROJECT_LIST, ReportPathStr)
ErrorCode = MainFrm.ListLabel.Print(0, LL_PROJECT_LIST, ReportPathStr, 1,_ LL_PRINT_USERSELECT, LL_BOXTYPE_NORMALWAIT, hWnd, “Print Report”, True, Environ$(“temp”))
'LL automatically calls this routine to populate data used by report
Sub ListLabel_CmndDefineFields(ByVal nUserData As Long, ByVal bDummy As Long,_ pnProgressInPerc As Long, pbLastRecord As Long)
Static SetPointIndex As Integer
Select Case bDummy
Case 0 'Live Data
Select Case SetPointIndex
Case Is < NumberOfDataPoints
'Populate FDatadbl with data array
ErrorCode = MainFrm.ListLabel.LlDefineFieldExt(“Field Name1”, FDatadbl(SetPointIndex), LL_NUMERIC)
If SetPointIndex = NumberOfDataPoints - 1 Then
pbLastRecord = 1
SetPointIndex = 0
Else
SetPointIndex = SetPointIndex + 1
End If
End Select
Case 1 'Sample data for design time
ErrorCode = MainFrm.ListLabel.LlDefineFieldExt("Field Name1, “1000.1”, LL_NUMERIC)
SetPointIndex = 0
End Select
End Sub