窗体打印不全。

Question

  CurrentY = 2160
     Font.Size = 9
     Font.Name = "宋体"
     Print Tab(20); "单号"; Tab(33); "日期"; Tab(43); "名称"; Tab(60); "规格"; Tab(75); "单位"; Tab(84); "数量"; Tab(93); "用法"; Tab(100); "售价";
Call OpenConn
rs.Open "select * from [chufang] where zhuangtai=3 and userid=" & daying2 & "", conn, adOpenKeyset, adLockOptimistic
 
  If rs.RecordCount > 0 Then
      rs.MoveFirst
     Do While rs.EOF = False
       
     Print Tab(18); rs.Fields("danhao"); Tab(30); rs.Fields("riqi"); Tab(43); rs.Fields("mingcheng"); Tab(60); rs.Fields("guige"); Tab(75); rs.Fields("danwei"); Tab(84); rs.Fields("shuliang"); Tab(93); rs.Fields("yongfa"); Tab(100); rs.Fields("shoujia");
rs.MoveNext
Loop
End If
我有个打印程序直接在窗体上打印的（打印如下），但如果数据库里的数据过多，怎么才能全部打印出来？就像WORD那样，可以分页打印的， 
Private Sub Command1_Click()
Command1.Visible = False
Me.PrintForm
End Sub

Answer 1

将 CurrentY、Font、Print 全部加上 Printer. 前缀，就是直接向打印机输出。