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

问题描述：

我正在尝试在我的工作表之一上创建打印按钮。我需要它来打印该工作表以及另一个工作表。这两个名称都是没有引号的“预算表”和“上市承诺表”。打印按钮在Excel 2016中使用宏？

我创建了按钮没有麻烦，但我知道很少关于宏，所以我仍然需要代码。我尝试了多种解决方案，但似乎没有任何工作。我最近试图使用这个Code，但它没有奏效。我究竟做错了什么？我可以用什么代码代替？

Private Sub CommandButton1_Click() 

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

End Sub

而不是一个图像，你可以在这里粘贴代码（和格式与代码标签，'{}'）？另外，什么不工作，是否有错误？它只是不打印等？ – BruceWayne

它出现一个错误，说“编译错误：预期的结束小组”。 – Ash

你把一个函数放在一个子里面。我认为你不能这样做。 – BruceWayne

答

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

答

只是一个简单的循环与打印电话：

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

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

相关推荐