打印问题，请帮忙！！！

下面是代码，我是个新手，在网上下载来的代码，改过后就是不能打印，出错，请高手帮我看看，还要改哪，或要加什么？感觉没有跟DataGrid1绑定在一起啊，改好马上给分
Sub daying2()
'利用excel打印的例子
 
'首先 , 你必须建立一个excel的模板nex.xls, 放入程序下面的新建的目录report中
 
 
'工程--->引用--->microsoft  excel  9.0
 
On Error Resume Next
'把查询到的数据放到excel中打印
Dim PageNum   As Integer
Dim Size   As Integer
Dim File   As String
Dim i   As Integer
Dim R   As Integer
Dim P   As Integer
PageNum = 1    '打印的页数
Size = 17    '一页可以打印的行数
'得到打印的页数
While Not (PageNum * Size) - (Exl.Rows - 3) > 0
       PageNum = PageNum + 1
Wend
 
'循环打印每一页
For P = 1 To PageNum
       Dim Exl1   As New Excel.Application
       Dim Book   As Excel.Workbook
       Dim Sheet   As Excel.Worksheet
         
       FileCopy App.Path & "\report\new.xls", App.Path & "\new.xls"
       File = App.Path & "\new.xls"
       Set Book = Exl1.Workbooks.Open(File)
       Set Sheet = Book.Worksheets(2)
       Book.Application.DisplayAlerts = False '显示警告提示
       
       '把数据写入sheet中
       With Sheet
               For R = 1 To Size
                       For i = 1 To 12
                               .Cells(R + 5, i) = Exl.TextMatrix((P - 1) * Size + 2 + R, i - 1) 'cells为格子
                       Next
               Next
                               .PageSetup.Orientation = xlLandscape
 
               .PrintOut
                 
       End With
       Book.Save
       Book.Close
       Set Book = Nothing
       Exl.Quit
       Set Exl = Nothing
Next
End Sub