凭证批量打印

Vujacici

大神好：
我的凭证模板做好了，但是需要连续打印。
这月有159行数据要打印，159这个数每月是不等的，怎么能够输入总行数例如159，其实行输入后，按顺序打印。
并且在打印前提示是否打印。
十分感谢。

有4地

连续打印.zip (48.06 KB, 下载次数: 235)

2016-11-23 10:11 上传

点击文件名下载附件

Vujacici

有4地 发表于 2016-11-23 10:11

刚才测试了下，的确能连续打印。不过有个问题能否帮忙解决：
1：这次是159个，能否由Y2控制下数量。比如我只想达到第五页就停，在Y2输入5，就是1-5页。
2：能否在打印前提示：是否打印。
谢谢

Vujacici

有4地 发表于 2016-11-23 10:11

感觉就像吃了迈炫根本停不下来。
有个小提议，不提取数据有效性，而是通过X2和Y2控制打印页数。
当X2大于Y2时，程序自动停止。
能否实现，谢谢

SCL5801

Vujacici 发表于 2016-11-23 10:33
感觉就像吃了迈炫根本停不下来。
有个小提议，不提取数据有效性，而是通过X2和Y2控制打印页数。
当X2大 ...

Sub dayin()
   Application.ScreenUpdating = False
   Dim x%
   With Worksheets("模板")
      n = .Range("x2").Value
      m = .Range("y2").Value
      If m = "" Or m < n Then m = n
      If MsgBox("确定打印 " & n & "-" & m & "号？", vbYesNo + vbInformation) = vbNo Then Exit Sub
   For x = n To m
       Application.Calculation = xlCalculationManual
      .Range("x2") = x
       Application.Calculation = xlCalculationAutomatic
       ActiveSheet.PrintOut
    Next x
    End With
    Application.ScreenUpdating = True
End Sub

SCL5801

Vujacici 发表于 2016-11-23 10:33
感觉就像吃了迈炫根本停不下来。
有个小提议，不提取数据有效性，而是通过X2和Y2控制打印页数。
当X2大 ...

Sub dayin()
   Application.ScreenUpdating = False
   Dim x%
   With Worksheets("模板")
      n = .Range("x2").Value
      m = .Range("y2").Value
      If m = "" Or m < n Then m = n
      If MsgBox("确定打印 " & n & "-" & m & "号？", vbYesNo + vbInformation) = vbNo Then Exit Sub
   For x = n To m
       Application.Calculation = xlCalculationManual
      .Range("x2") = x
       Application.Calculation = xlCalculationAutomatic
       ActiveSheet.PrintOut
    Next x
    End With
    Application.ScreenUpdating = True
End Sub

有4地

Vujacici 发表于 2016-11-23 10:33
感觉就像吃了迈炫根本停不下来。
有个小提议，不提取数据有效性，而是通过X2和Y2控制打印页数。
当X2大 ...

Vujacici

SCL5801 发表于 2016-11-23 10:45
Sub dayin()
   Application.ScreenUpdating = False
   Dim x%

你好~
这个能在确定打印前，加个打印预览功能么？
十分感谢。

Vujacici

希望能够在打印前，增加打印预览功能。
谢谢

SCL5801

Vujacici 发表于 2016-11-24 09:22
希望能够在打印前，增加打印预览功能。
谢谢

这样你不怕烦？
Sub dayin()
    Application.ScreenUpdating = False
    Dim x%, y%
    With Worksheets("模板")
       n = .Range("x2").Value
       m = .Range("y2").Value
       If m = "" Or m < n Then m = n
       y = MsgBox("     打印、预览    " & n & "--" & m & "   号" & Chr$(13) & _
       "单击“是”打印，单击“否”预览，单击“取消”退出", vbYesNoCancel)
       If y = 2 Then Exit Sub
       For x = n To m
        Application.Calculation = xlCalculationManual
       .Range("x2") = x
        Application.Calculation = xlCalculationAutomatic
        If y = 6 Then ActiveSheet.PrintOut
        If y = 7 Then ActiveSheet.PrintPreview
       Next x
     End With
     Application.ScreenUpdating = True
End Sub