vba分页隐藏打印程序报错

xuxiangege

各位老师，工作原因需要在【2交费清单】表里面粘贴入个人信息，然后将【3新清单】表单独保存出来，现在生成新表基本没有问题，但有以下两点：1、生成的新表能否自动保存并关闭？现在生成后需要手动保存后关闭；
2、表【2交费清单】我加了个页码调节按钮，每页能打印18条数据，如果超出18条数据，点击按钮可以在第一页、第二页……之间切换，每页都要有表头和下面的小计总计等内容。如果最后一页不够18的话多余的空行要能够隐藏，但是我写程序的只能在人数小于18的时候正常显示，超出18人就报错了，求指教，ps：L61为总人数，h61为当前页人数，ac1为当前页码。

xuxiangege

急求各路大神

xuxiangege

Private Sub SpinButton1_Change()

Dim a As Long, b As Long


  Rows("7:60").EntireRow.Hidden = True

'当前页码非最后一页
If Cells(1, 33).Value < "=ROUNDUP(L61/18,0)" Then

a = 7 + 18 * cell(1, 33).Value - 18 And b = 24 + 18 * cell(1, 33).Value - 18

'当前页码为最后一页

ElseIf Cells(1, 33).Value = "=ROUNDUP(L61/18,0)" Then

a = cell(1, 33) * 18 - 11 And b = cell(61, 12) + 6
'当前页码超过总页数

ElseIf Cells(1, 33).Value > "=ROUNDUP(L61/18,0)" Then

Rows("7:60").EntireRow.Hidden = False


Else


End If

Rows("a" & ":" & "b").EntireRow.Hidden = False
End Sub