Excel pdf vba导出到一页

Question

im试图让一个按钮将一个大的excel工作表导出为pdf，然后清除该表单，在我使用下面的代码的那一刻，无论如何，是否有将所有表单压缩到一张工作表上的想法？是一堆不同的页面

Sub SubmitForm()

'
'
     Sheets(Array("Megalist")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1"), Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
             Sheets("Megalist").Select

     'Sheets(Array("Megalist")).Select
    'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1"), Quality:= _
       ' xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=false, _
        'OpenAfterPublish:=true
           '  Sheets("Megalist").Select



'ThisWorkbook.Saved = True


Range("C1", "D1").ClearContents
Range("C3", "K12").ClearContents
Range("D14", "K33").ClearContents
Range("D36", "K59").ClearContents
'MsgBox ("Megalist Logged, Please Enter tommorrows patients.")

End Sub