发票劳务清单打印问题

threelin

大家好

附件的模版，Q7=4时（以黄色标注的部分），表示需要打列4页，但是必须以人工在V7（以绿色标注的部分）分别输入1、2、3、4，一页一页打印。

请问如何用VBA实现自动打印出4页，谢谢大家。

爱疯

Sub test()
    Dim i
    Application.ScreenUpdating = False
    Sheets(1).Select
    For i = 1 To [q7]
        [v7] = i
        ActiveSheet.PrintOut
    Next
End Sub


劳务清单模板.rar (17.67 KB, 下载次数: 15)

2020-3-29 19:26 上传

点击文件名下载附件