The following is a segment of sample code demonstrating how easy it is to design a fast report with the document routines included with this code.

    '*************** Start the document ********************
    FileDocStart "mydoc.rpt", "Customer Listing", "Listing of our customers", 8.5, 11, 2
        
    '*************** Draw the header stuff at the top of the page *****************
    FileBitmap "ourlogo.bmp", .25, .25
    FileLine .25, 1.25, 10.75, 1.25, 3, RGB(100, 0, 200)
    FileFontSetting "Times New Roman", 22, "BoldItalic", RGB(0, 0, 200), 0
    FileTextBox 1.3, 1.1, 9, "left", "Customer Listing", True
    FileFontSetting "Times New Roman", 10, "Bold", 0, 0
    FileTextBox .25, 2, 2, "left", "Account #", True
    FileTextBox 1.25, 2, 2, "left", "Customer Name", True
    FileTextBox 3.5, 2, 2, "left", "Address", True
    FileLine .25, 2.05, 10.75, 2.05, 1, 0

    '************* Put the data on the page ****************
    Set Bakery = OpenDatabase("bakery.mdb", False, False)
    Set CustomerSet = Bakery.CreateDynaset("Select Accounts.* from Accounts Order by [Customer Name]")
    If CustomerSet.RecordCount > 0 Then
        FileFontSetting "Times New Roman", 10, "plain", 0, 0
        DataMargin! = 2.12
        RowsPerPage% = 30
        CurRow% = 1
        Do Until CustomerSet.EOF
            FileTextBox .25, (CurRow% * .2) + DataMargin!, 2, "left", Trim$(CustomerSet("Customer Number")), True
            FileTextBox 1.25, (CurRow% * .2) + DataMargin!, 3, "left", Trim$(CustomerSet("Customer Name")), True
            FileTextBox 3.5, (CurRow% * .2) + DataMargin!, 4, "left", Trim$(CustomerSet("Address")), True
            CustomerSet.MoveNext
            CurRow% = CurRow% + 1
            If CurRow% > 30 Then CurRow% = 1: FilePageBreak
        Loop
    End If
    CustomerSet.Close
    Bakery.Close

    '***************** Document is finished ******************
    FileDocEnd

    '************************ Show the document in the previewer **********************
    CurrentReportPath$ = "mydoc.rpt"
    PreviewWindow.Show 1