以下為VB語(yǔ)法的簡(jiǎn)單例子

    Dim Grid As Variant
    Dim count As Integer
    
    Set Grid = CreateObject("MyPrint.GridCtrl")
    
    count = 60
    Call Grid.Login("用戶名", "2444-22AB-856F-14A6")
    Call Grid.SetRowCount(count + 1)
    Call Grid.SetColumnCount(7)
    
    Call Grid.SetCellText(0, 0, "姓名")
    Call Grid.SetCellText(0, 1, "性別")
    Call Grid.SetCellText(0, 2, "出生年月")
    Call Grid.SetCellText(0, 3, "地址")
    Call Grid.SetCellText(0, 4, "畢業(yè)學(xué)校")
    Call Grid.SetCellText(0, 5, "所學(xué)專業(yè)")
    Call Grid.SetCellText(0, 6, "工作單位")
    
    Dim J As Integer
    J = 1
    
    
    For J = 1 To count
            Call Grid.SetCellText(J, 0, "testddddddd" & CStr(J))
            Call Grid.SetCellText(J, 3, "中國(guó)報(bào)表aaaaaaaaaaa" & CStr(J))
    Next
    
    
    Call Grid.AutoSize
    Call Grid.SetFixedRow(1)
    Call Grid.SetTitle("報(bào)表打印控件演示", "宋體", 16)
    Dim date1 As String
    date1 = CStr(Year(Now)) + "年" + CStr(Month(Now)) + "月"
    Call Grid.SetHeader("", date1, "宋體", 13)
    Call Grid.PrintPreview
    'Call Grid.PrintTo(0)