Excel - ExportAsFixedFormat - Pages from & Too 問題

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 FilesExport.pdf", _
OpenAfterPublish:=True, _
From:=1, _
To:=ToPrint

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

ToPrint 的位似乎没有按预期工作。

Range("Too"( 是对单个单元格的引用，该单元格包含公式，该公式是一个可以是 1、2 或 3 的 if 语句。

当我运行它时，我收到一个错误。 运行时错误 -2147018887 (80071779(。

请有人可以帮助我吗？

Answer 1

和...我解决了。

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

不得不把OpenAfterPublish放在最后。引用 https://learn.microsoft.com/en-us/office/vba/api/excel.workbook.exportasfixedformat