每个pdf页面多个表格

下面的代码从一个dynamic数组中生成一个PDF文件。 第二个代码设置单张感兴趣的打印区域和打印标题。 一些纸张有多个不连续的区域设置为打印。

Worksheets(sSheetsArray).Select sFilename = "L:\[FilePath]" & Format(Now, "DD-MMM-YY-HH-MM") & "2.pdf" Debug.Print sFilename ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ FileName:=sFilename, _ Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True 

Sub设置打印区域等

 Sub SetWorksheetPrintArea(ws As Worksheet, sPrintAreas As String, sTitleRange As String, bLandscape As Boolean) With ws.PageSetup .PrintArea = sPrintAreas .PrintTitleRows = sTitleRange If bLandscape Then .Orientation = xlLandscape Else .Orientation = xlPortrait .Zoom = False .FitToPagesWide = 1 End With End Sub 

这个工作，但是，我需要有一张纸在PDF中并排产生页面。 如果设置为小册子打印，这应该与纸张上的显示方式类似。 有没有人知道如何不重新安排工作表的布局呢？