打印按钮 Excel 2016 使用宏？

Question

我目前正在尝试在我的一张工作表上创建打印按钮。我需要它来打印该工作表以及另一个工作表。两个名称都是 "Budget Sheet" 和 "Listed Commitments Sheet"，不带引号。

我毫不费力地创建了按钮，但是我对宏知之甚少，所以我仍然需要代码。我尝试了多种解决方案，但似乎没有任何效果。我最近尝试使用此 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

It comes up with an error that says "Compile Error: Expected End Sub".

代码无法编译，因为你不能在Function 里面一个Sub。

搭乘线路 Function PrintMultipleSheets() 并摆脱 End Function。我认为它应该工作。你最终会得到：

Private Sub CommandButton1_Click()

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

End Sub

打印按钮 Excel 2016 使用宏？

Print Button In Excel 2016 Using Macros?

excel

vba

excel-2016