Excel - ExportAsFixedFormat - проблема страниц от и слишком

Question

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

Таким образом, лист, который представляет эти данные, имеет 3 копии одного и того же шаблона.

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

Dim ToPrint As Integer

ToPrint = Sheets("Sheet7").Range("Too")
Application.ScreenUpdating = False
Sheets("CI").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\PDF Files\Export.pdf", _
        OpenAfterPublish:=True, _
        From:=1, _
        To:=ToPrint



Sheets("Sheet7").Select
Application.ScreenUpdating = True

Бит с ToPrint не работает должным образом.

Range ( «Слишком») - это ссылка на одну ячейку, которая содержит формулу, которая является оператором if, который может быть 1, 2 или 3.

Когда я запускаю ее, я получаю ошибку. ошибка времени выполнения -2147018887 (80071779).

Пожалуйста, кто-нибудь может мне помочь?

Answer 1

И ... Я разобрался.

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\PDF Files\Export.pdf", _
        From:=1, _
        To:=ToPrint, _
        OpenAfterPublish:=True

Пришлось поместить OpenAfterPubli sh в конце. Ссылка https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.exportasfixedformat