[已解决]如何用Vba 只打印 最后一页

砂海

有工作表 1-4 页不等.
如何获取页数信息,

用vba来打印 最后一页 ,其它页 不打印.

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-13 14:55

Sub test()
    Dim i
    With ActiveSheet
        i = .PageSetup.Pages.Count
        .PrintOut i, i
    End With
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim i
    With ActiveSheet
        i = .PageSetup.Pages.Count
        .PrintOut i, i
    End With
End Sub

砂海

OK
".PageSetup.Pages.Count "