Excel 2016 中的打印按钮使用宏?

Question

我目前正在尝试在我的一个工作表上创建一个打印按钮。 我需要它来打印该工作表以及另一个工作表。 这两个名称都是"预算表"和"所列承诺表"，不带引号。

我毫不费力地创建了按钮，但我对宏知之甚少，所以我仍然需要代码。 我已经尝试了多种解决方案，但似乎没有任何效果。 我最近尝试使用此代码，但它不起作用。 我做错了什么？ 我可以使用什么代码代替？

Private Sub CommandButton1_Click()
Function PrintMultipleSheets()
Sheets(Array("Budget Sheet", "Listed Commitments Sheet")).PrintOut
End Function
End Sub

Answer 1

它出现一个错误，显示"编译错误：预期的结束子"。

代码无法编译，因为Sub内不能有Function。

Function PrintMultipleSheets()骑线并摆脱End Function.我认为它应该有效。你最终会得到：

Private Sub CommandButton1_Click()
Sheets(Array("Budget Sheet", "Listed Commitments Sheet")).PrintOut
End Sub

Answer 2

只是一个带有打印调用的简单循环：

Sub forEachWs()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Call printSheet(ws)
Next
End Sub
Function pasteContents(ws as Worksheet)
ActiveSheet.PrintOut
End Function