按特定顺序打印多个Excel工作表
我正在尝试从Excel工作簿打印/发布多个工作表，但是按特定的顺序。 我使用这里使用相同的代码，但它不是按我input到我的数组中的顺序打印，或者从最左边的纸张打印到最右边的纸张。
将多张纸张保存为.pdf
我想以特定的顺序打印表格。 我select了我想要打印的订单，但是，它从最左边的纸张打印并按照它们在工作簿中的方式进行打印。 我怎样才能让他们打印的顺序，我input数组。
我select了
ThisWorkbook.Sheets(Array("GIT 100", "GIT 399", "CheckList GIT 400", "TCCC", "4.1")).Select 但是我把“4.1”，“CheckList GIT 400”，“GIT 399”，“TCCC”，“GIT 100”作为发布文档。
任何帮助将非常感激。
循环：
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：
这个版本将创build一个单一的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
我认为这取决于纸张的顺序，使您想打印的纸张顺序（顺序），这将工作。