如何修复我的代码以在VBA中将xlsx转换为pdf

Question

我有这段代码可以将我的excel文件转换为pdf，但是在更改格式后，我有一个包含很多页面的pdf文件（每页中只有4个列有19行，而我的源文件有30列和行，我想要可以看到与excel文件相同的文件，但格式为pdf的任何人都可以帮助我！

 Sub creatpdf()


 Dim fName As String
 Dim fname1 As String

 With Worksheets("Output_" & Date)
 fName2 = .Range("D3").Value
 fName3 = "_BOM"
 End With

 BrowseForFolder = "X:\\output\\"

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        BrowseForFolder & "\" & fName2 & fName3 & "\" & "\" & fName2 &            fName3 & "\" & "BOM" & "\" & fName2 & fName3, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, 
 OpenAfterPublish:=False

 End Sub