print代码修改

Question

Private Sub Form_Load()
riqi.Caption = Date
Call OpenConn
rs.Open "select * from [chufang] where userid=" & bianhao & "", conn
  Print
     CurrentY = 3600
     Font.Size = 9
     Font.Name = "宋体"
     Print Tab(10); "单号"; Tab(20); "日期"; Tab(30); "名称"; Tab(40); "规格"; Tab(50); "单位"; Tab(60); "数量"; Tab(70); "用法"; Tab(80); "售价";
     Print Tab(14); String(90, "-")
     rs.MoveFirst
     Do While rs.EOF = False
     Print Tab(10); rs.Fields("danhao"); Tab(20); rs.Fields("riqi"); Tab(30); rs.Fields("mingcheng"); Tab(40); rs.Fields("guige"); Tab(50); rs.Fields("danwei"); Tab(60); rs.Fields("shuliang"); Tab(70); rs.Fields("yongfa"); Tab(80); rs.Fields("shoujia");
rs.MoveNext
Loop
rs.CloseCall CloseConn
End Sub
我想直接在窗体上输出一个表，但窗体上什么都没有，也不报错，我经验不足， 还请大家帮忙修改一下

Answer 1

Private Sub Form_Click()    riqi.Caption = Date
    Call OpenConn
    rs.Open "select * from [chufang] where userid=" & bianhao & "", conn
    
    Me.CurrentY = 3600
    Me.Font.Size = 9
    Me.Font.Name = "宋体"
    Print Tab(10); "单号"; Tab(20); "日期"; Tab(30); "名称"; Tab(40); "规格"; Tab(50); "单位"; Tab(60); "数量"; Tab(70); "用法"; Tab(80); "售价";
    Print Tab(14); String(90, "-")
    
    rs.MoveFirst
    
    Do While rs.EOF = False
        Print Tab(10); rs.Fields("danhao"); Tab(20); rs.Fields("riqi"); Tab(30); rs.Fields("mingcheng"); Tab(40); rs.Fields("guige"); Tab(50); rs.Fields("danwei"); Tab(60); rs.Fields("shuliang"); Tab(70); rs.Fields("yongfa"); Tab(80); rs.Fields("shoujia");
        rs.MoveNext
    Loop
    
    rs.Close
    Call CloseConn
    
End Sub

Answer 2

正解直接在属性窗口把窗体的autoredraw属性设置为true也可