s yu Ответов: 1

Excel-экспорт нескольких листов в формате PDF

Я создал 2 листа в Excel. Затем я использовал VBA ниже, чтобы экспортировать 2 листа в формате PDF
Sub Macro1()
   Sheets("Sheet_1").Activate
    ActiveSheet.UsedRange.Select
   Sheets("Sheet_2").Activate
   ActiveSheet.UsedRange.Select

   ThisWorkbook.Sheets(Array("Sheet_1", "Sheet_2")).Select
   Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "C:\Temp\MyPDF.pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      True
End Sub

Но экспортированный PDF-файл содержит 4 страницы, из которых страницы 2 и 4 фактически пусты. Как я могу отформатировать его как 2 страницы только с устранением пустых страниц? Спасибо.

Что я уже пробовал:

Excel-экспорт нескольких листов в формате PDF - как устранить пустые страницы

1 Ответов

Рейтинг:
4

Patrice T

На ваших листах есть несколько ячеек справа или внизу, которые ничего не отображают, но не являются пустыми, поэтому эти ячейки включены в то, что вы хотите напечатать.
Введите Ctrl-End, чтобы перейти к последней ячейке, и вы увидите, что она больше, чем вы ожидаете.
Либо вы удаляете эти ячейки, либо определяете зону печати для каждого листа.

s yu

Спасибо за ваш ответ. Следуя вашему примеру, я нажал Ctr+End, он указывает на ячейку (30, J). Затем я удалил все после (19, H), что является моим активным используемым диапазоном ,Ctr+End все еще указывает (30, J). Какой-нибудь дополнительный намек? Спасибо.

Patrice T

вам нужно сохранить файл, чтобы обновить конец.
Я рекомендую подавлять ненужные строки и столбцы.

s yu

Проблема решается путем добавления
Активный лист.ScrollArea = " A1:H19"
в VBA. Большое спасибо.