Как исправить мой код для преобразования XLSX в PDF в VBA

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