Reports: LoadSettings Error

It works good for me. Here is a clip of the code for Save and Load. Enjoy -

Private Sub cmdSaveReport_Click()
SaveFilename = tbSaveFilename.Text
SaveFilename = Trim(SaveFilename)
If Not IsNull(SaveFilename) Then
SaveFilename = App.Path & "\" & SaveFilename

    Dim FreeF As String
    FreeF = FreeFile
    'Kill sFile
    Open SaveFilename For Binary As #FreeF
    Put #FreeF, , frmReport.wndReport.SaveSettings
    Close #FreeF
   
End If
End Sub

Private Sub File1_Click()
Dim LoadFileName As String
LoadFileName = App.Path & "\" & File1.FileName
Dim sLayout As String
Dim FreeF As String
        FreeF = FreeFile
        sLayout = Space(FileLen(LoadFileName))
        Open LoadFileName For Binary As #FreeF
        Get #FreeF, , sLayout
        Close #FreeF
        On Error GoTo 0
        frmReport.wndReport.LoadSettings sLayout
End Sub

Humm, I'm not sure.

Are there any other signs of problems with your report performing other functions.

Is that the whole error message...?

Sorry that didn't help

Here's the code used to save/load the report settings (note that the code verify's whether a file has already been created to save the settings for the particular report):

Private Sub SaveReportSettings(sType As String)

    Dim FreeF As Integer, sFile As String, sLayout As String
   
    sFile = App.Path & "\" & sType & ".000"
    FreeF = FreeFile
    If VerifyFile(sFile) Then
        Kill sFile
    End If
    Open sFile For Binary As #FreeF
    Put #FreeF, , frmMain.wndReportControl.SaveSettings
    Close #FreeF

End Sub
Private Function LoadReportSettings(sType As String) As Boolean
   
    Dim FreeF As Integer, sFile As String, sLayout As String

    If VerifyFile(App.Path & "\" & sType & ".000") Then
        On Error GoTo LoadReportSettings_Error
        sFile = App.Path & "\" & sType & ".000"
        FreeF = FreeFile
        sLayout = Space(FileLen(sFile))
        Open sFile For Binary As #FreeF
        Get #FreeF, , sLayout
        Close #FreeF
        frmMain.wndReportControl.LoadSettings sLayout
    Else
        Exit Function
    End If
    LoadReportSettings = True
    Exit Function
LoadReportSettings_Error:
    Err.Clear
    Exit Function
End Function

Here's the code setting up the report:

Private Sub CreateItemReport(sFilter As String)
   
    Dim Column  As ReportColumn
    Dim lIndex  As Long
   
    With frmMain.wndReportControl.Columns
        Set Column = .Add(lIndex, "Item ID", 4, True)
        lIndex = lIndex + 1
        Column.Visible = False
        Set Column = .Add(lIndex, "Subject", 60, True)
        lIndex = lIndex + 1
        Set Column = .Add(lIndex, "Description", 100, True)
        lIndex = lIndex + 1
        Column.Visible = False
        Set Column = .Add(lIndex, "Type", 6, True)
        lIndex = lIndex + 1
        Column.Visible = False
        Set Column = .Add(lIndex, "Start Time", 20, True)
        lIndex = lIndex + 1
        Column.Alignment = xtpAlignmentRight
        Set Column = .Add(lIndex, "End Time", 20, True)
        lIndex = lIndex + 1
        Column.Visible = False
        Column.Alignment = xtpAlignmentRight
    End With

    'Add Records to the ReportControl
    ProcessItemRS sFilter, g_sItem

End Sub

Here's the code writing the data to the report:

Private Sub AddItemRecord(objItem As Object, lItemID As Long, sID As String, _
    lItemID As Long)
 
    Dim Record               As ReportRecord
    Dim Item         &n bsp;      As ReportRecordItem
    
   Set Record = frmMain.wndReportControl.Records.Add()
   
    With Record
        .Tag = sID
        .AddItem lItemID
        .AddItem objItem.Subject
        .AddItem objItem.Description
        .AddItem objItem.Type
        .AddItem objItem.StartTime
        .AddItem objItem.EndTime
    End With
   
End Sub

Hopefully, this helps.  Let me know if you need any add'l info.

Thanks!

OK.  I talked my way through it and figured it out.  As noted above, I had thought that the Load/Save Settings methods removed the need to even load the columns each time the user opened a report.  The key is that these methods load and save column "settings" vs. the column "definitions" (for the lack of a better word to use).  Once I started loading the definitions again, before running the LoadSettings method, it works beautifully    with all of the appropriate "settings" in place.

Maybe I'm just slow, but I don't think the documentation was really helpful here.  That's OK.  I still like the tools.