控件使用范例.txt

myPrint2 打印控件 myPrint2 打印控件

以下为VB语法的简单例子

    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, "毕业学校")
    Call Grid.SetCellText(0, 5, "所学专业")
    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, "中国报表aaaaaaaaaaa" & CStr(J))
    Next
    
    
    Call Grid.AutoSize
    Call Grid.SetFixedRow(1)
    Call Grid.SetTitle("报表打印控件演示", "宋体", 16)
    Dim date1 As String
    date1 = CStr(Year(Now)) + "年" + CStr(Month(Now)) + "月"
    Call Grid.SetHeader("", date1, "宋体", 13)
    Call Grid.PrintPreview
    'Call Grid.PrintTo(0)