Question

我正在尝试在我的一个工作表上创建一个打印按钮。我需要它来打印该工作表以及另一个工作表。这两个名称都是“预算表”和“列出的承诺表”，没有引号。

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

Private Sub CommandButton1_Click()

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

End Sub

Answer 1

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

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

Answer 2

它出现了一个错误，上面写着“编译错误：预期的结束子”。

代码无法编译，因为您无法{/ 1}} Function。

乘坐Sub行并摆脱Function PrintMultipleSheets()。它应该工作我想。你最终会得到：

End Function

使用宏在Excel 2016中打印按钮？

2 个答案: