在没有空白页的 PDF 中转换工作簿

Question

喂

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

如果您知道要在我的代码中添加什么内容以获得一个体面的文件，我们将不胜感激。

 Workbooks.Open FileName:="C:\Users\User\Documents\Tests Salome\dailypdf.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:\Temp\PDF_name.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True