excel 升级2016后不能执行了，求大神指点

lrfyjx

Office 升级到2016后，原来的VBA不能用了，出现下面的提示，请大神支招
Sub ddddd()
Dim i As Integer
Dim j As Integer


j = Sheets(2).Range("a65536").End(xlUp).Row
Application.DisplayAlerts = False
For i = 2 To j
Sheets(2).PrintOut from:=i - 1, To:=i - 1, copies:=Sheets(2).Range("c" & i).Value
Next
Application.DisplayAlerts = True
End Sub

lrfyjx

求大神指点

砂海

没有用过2016 , 建议录制 "打印" 的代码 , 对比一下.