excel - 如何创建 VBA 代码来打印同一张工作表的多个副本？

Question

我在 excel 中有一个按钮，我希望它打印 X 份。就像说 10 一样，所以物品有库存。我想打印 10 份。我有查找项目信息的公式。我只想要一个为我将填写的“数量”打印很多次的代码。

Answer 1

ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").Value

Answer 2

本质上..

Sub PrintXCopies()
    ActiveSheet.PrintOut , , Range("A1").Value
End Sub

其中要打印的份数在单元格 A1 中。如果这不是数字或合理数字，您应该添加错误处理。就像是：

Sub PrintXCopies()
    If IsNumeric(Range("A1").Value) Then
        If Range("A1").Value >= 1 And Range("A1").Value < 10 Then
            ActiveSheet.PrintOut , , Range("A1").Value
        End If
    End If
End Sub