Excel 宏使用 Application.CommandBars.ExecuteMso "PrintPreviewAndPrint" 与工作表的组选择

Question

我正在尝试创建一个选择多个工作表的宏，然后显示显示打印预览的 Excel 打印对话框，从而使用户能够选择他们的打印机、份数等。到目前为止，我有以下内容：

Sub PrintReport()
'
' PrintReport Macro
'
'
    Sheets(Array("Cover page", "Scoresheet")).Select
    Sheets("Cover page").Activate
    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
   
End Sub

这是迄今为止我发现的唯一显示正确对话框的代码，但是选择组工作表的两行（由 Record Macro 函数创建）不起作用，即只显示一个工作表印刷。我推断 ExecuteMso 函数可能在初始化期间清除了选择。任何人都可以建议一种方法来获得我想要的东西吗？

Answer 1

我不是专家，只是新人，但我发现这段代码贯穿了我在 Plist 中选择的所有工作表（我要打印的工作表列表）将它们放入一个数组中，然后打开准备好的打印预览页面用于打印。

有帮助吗？

Sub Print_sh()

'multiple sheet printing

Dim SHT As Long, RN As Long

Dim SHEETARRAY() As String

 Dim WP As Variant
 Dim I As Long
 
With ActiveSheet.PList

'(Plist is a list of sheets i want printed)

    For SHT = 0 To .ListCount - 1
        If .Selected(SHT) Then
            ReDim Preserve SHEETARRAY(RN)
            SHEETARRAY(RN) = .Column(1, SHT)
            RN = RN + 1
            End If
        Next SHT
    End With

    For Each WP In SHEETARRAY
        Sheets(WP).Activate
        

Sheets(SHEETARRAY()).PrintPreview

祝你好运，我确信某处存在错误，有很多更聪明的人可以帮助我们做得更好。它可以帮助您入门吗？