为什么打印不出来？总是打印空白页？

想打印表格，用的很死的办法，在代码中固定好位置，从库中取出的数据直接打印再固定的位置上，但是总是打印出空白的纸，跟踪了一下，发现还是能取到值的，就是打不出来，索性把数据都去掉，直接打表头，还是空白纸，可是我做的另外一个程序中用这个代码是好的阿            Dim hang As Integer '每页的行数
            Dim sql As String
            Dim ado As ADODB.Recordset
            Dim x As Integer
            Dim y As Integer
            Dim i As Integer '当前行数
            Dim page As Integer
            Printer.Orientation = 2
            page = 1
            
            '选择打印机
            CommonDialog1.ShowPrinter
                      
            '主标题
            Printer.FontSize = 25
            Printer.CurrentX = 210 * 56.7
            Printer.CurrentY = 15 * 56.7
            Printer.Print "温湿度自动检测系统"
以上的代码打印出来的就是空白页，是不是那里出了问题？