不连续区域生成一个有横向也有纵向的ＰＤＦ文档

6739912

Sub AsPDF()     '另存为ＰＤＦ
   With Sheet8.PageSetup                   '登记表
     .Zoom = 120
     .Orientation = xlPortrait
     .FitToPagesWide = 1
     .FitToPagesTall = False
     .PrintArea = Sheet8.Range("B1:H30").Address
   End With
   fname = ThisWorkbook.Path & "\" & Sheet8.Range("f3") & "登记表.pdf"
   Sheet8.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname, Quality:=xlQualityStandard, IgnorePrintAreas:=False, IncludeDocProperties:=True ', OpenAfterPublish:=True '打开文件
   Sheet8.PageSetup.PrintArea = ""

   With Sheet8.PageSetup                  '记录
      .Zoom = 100
      .Orientation = xlLandscape
      .FitToPagesWide = 1
      .FitToPagesTall = False
      .FirstPageNumber = 1                  '设置第一页页码为1
      .CenterFooter = "第 &P页, 共 &N页"
      .PrintArea = Sheet8.Range("J3:S" & Sheet8.[J65536].End(xlUp).Row + 3).Address
   End With
   fname1 = ThisWorkbook.Path & "\" & Sheet8.Range("f3") & "记录表.pdf"
   Sheet8.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname1, Quality:=xlQualityStandard, IgnorePrintAreas:=False, IncludeDocProperties:=True ', OpenAfterPublish:=True '打开文件
   Sheet8.PageSetup.PrintArea = ""
End Sub

这段代码将登记表生成了一个纵向的ＰＤＦ文档，将记录表生成一个横向的ＰＤＦ文档（表太宽，只能横向显示）
ＶＢＡ能否实现：只生成一个ＰＤＦ文档，第一页为纵向，内容为登记表，从第２页开始为横向，内容为记录表