按特定顺序打印多个 Excel 工作表答案

【问题标题】：Print Multiple Excel sheets in a specific order按特定顺序打印多个 Excel 工作表
【发布时间】：2015-05-17 15:17:55
【问题描述】：

我正在尝试从 Excel 工作簿打印/发布多张工作表，但按特定顺序。我在这里使用了相同的代码，但它没有按照我输入数组的顺序打印，而是从最左边的工作表打印到最右边的工作表。

Save multiple sheets to .pdf

我想按特定顺序打印纸张。我选择了我想打印的顺序，但是，它从最左边的表格开始打印，然后按照它们在工作簿中的方式向右移动。如何让它们按照我在数组中输入的顺序打印。

我选择了

ThisWorkbook.Sheets(Array("GIT 100", "GIT 399", "CheckList GIT 400", "TCCC", "4.1")).Select

但我得到了 "4.1","CheckList GIT 400","GIT 399","TCCC","GIT 100" 作为已发布的文档。

任何帮助将不胜感激。

【问题讨论】：

标签： vba excel export pdf-generation

【解决方案1】：

我认为这取决于工作表的顺序，按照你想要的打印顺序（按顺序），这样就可以了。

【讨论】：

我知道，但由于某些其他原因，我不想移动床单
那么您应该创建一段代码以使纸张按可打印顺序排列，并在打印后按照以前的顺序排列...

【解决方案2】：

循环：

Sub Kakeda()
    ary = Array("GIT 100", "GIT 399", "CheckList GIT 400", "TCCC", "4.1")
    For Each a In ary
        Sheets(a).ExportAsFixedFormat Type:=xlTypePDF
    Next a
End Sub

编辑#1：

这个版本会单独保存.pdf文件：

Option Explicit

Sub Kakeda()
    Dim ary
    Dim a As Variant, fp As String
    ary = Array("GIT 100", "GIT 399", "CheckList GIT 400", "TCCC", "4.1")
    fp = ActiveWorkbook.Path
    For Each a In ary
        Sheets(a).ExportAsFixedFormat Type:=xlTypePDF, Filename:=fp & "\" & a & ".pdf"
    Next a
End Sub

编辑#2：

此版本将创建一个单个 pdf

Option Explicit

Sub Kakeda3_TheSequel()
    Dim ary
    Dim a As Variant, fp As String
    ary = Array("GIT 100", "GIT 399", "CheckList GIT 400", "TCCC", "4.1")
    fp = ActiveWorkbook.Path

    For Each a In ary
        Sheets(a).Move after:=Sheets(Sheets.Count)
    Next a

    ThisWorkbook.Sheets(ary).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
End Sub

【讨论】：

这不起作用，它说类型不匹配错误
谢谢上面的代码，但是可以作为一个文档发布吗？
@Kakeda 查看我的EDIT#2
如何根据可见行大于 0 的工作表填充 ary。我已经有了计算 num 行的变量，我只需要填充 ary 数组以包含工作表名称和然后我可以使用你上面的代码。
我需要检查每张纸并确定可见行数的代码。