转换没有空白页的PDF格式工作簿

Question

Hiii

我

编写了一个代码将工作表从一个工作簿导出到另一个工作簿，然后将其转换为pdf，但是我有很多空白页(可能是因为隐藏的公式或我不知道。

如果您对添加到我的代码中以拥有一个体面的文件有任何想法，将不胜感激。

 Workbooks.Open FileName:="C:UsersUserDocumentsTests Salomedailypdf.xlsx"
 Dim wbto2 As Workbook: Set wbto2 = Workbooks("dailypdf.xlsx")
 wb.Activate
For Each sht In Sheets
   If sht.Name <> "USD" And sht.Name <> "Balance" Then
      Else
     sht.Copy Before:=wbto2.Sheets(wbto2.Sheets.Count)
     Rows("140:351").EntireRow.Delete '(I tried to delete the hidden rows)
   End If
 Debug.Print sht.Name
Next
wbto2.Activate
Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Application.DisplayAlerts = True

            FileName = Create_PDF(Source:=wbto2, _
                                      FixedFilePathName:=iFile, _
                                      OverwriteIfFileExist:=True, _
                                      OpenPDFAfterPublish:=False)

代码功能，但由于空白页，结果不让我满意。.

Answer 1

您可以尝试以下任何选项

1.在另存为 PDF 之前删除所有不需要的行。

2.设置打印区域

3.尝试直接将Excel范围保存为PDF

    'Enter Worksheet name, range Address, PDF file path and name
    Sheets("Sheet Name").Range("A1:D50").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:TempPDF_name.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True