将Excel工作表打印成单个PDF

我有一个Excel表格，其中填充了数据库中的数据。当我循环遍历数据时，我将数据写入同一张纸并打印出来。我想把输出放在一个PDF中。我基本上是用不同的数据反复打印同一张纸。问题是每次我导出新数据时，pdf都会被覆盖，而不是添加到pdf中。下面是我用来导出工作表的代码

    Sheets("FORM8").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "F:\Reg\Form8\F8.pdf", OpenAfterPublish:=False

---

您可以将当前日期和纪元时间附加到文件名，以确保文件是唯一的，并创建到您的目录中

Dim dateName As String
Dim outputFile As String
Dim FileName As String
Dim epoch As Long

dateName = Format(Date, "mm-dd-yyyy")
epoch = DateDiff("s", #1/1/1970#, Now())

FileName = dateName + Str(epoch)

outputFile = "F:\Reg\Form8\F8" + FileName + ".pdf"

Sheets("FORM8").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    outputFile, OpenAfterPublish:=False

---

可能重复您只想将所有工作表打印为一个PDF而不是单个PDF文件？（如果你不这样做，你需要在文件名的末尾加上一个时间戳以防止覆盖）我刚刚编辑了描述，以便更清楚一点。我想要一份pdf。因此，请先将所有数据放入工作表，然后进行导出。请参阅下面的评论。我正在创建一份包含多份报告的pdf。报表是单个Excel工作表。这是反复使用的同一张纸。我循环浏览数据，更新工作表并将工作表导出为PDF。我想将该工作表导出到同一个PDF文件中。我想添加到PDF文件中，而不是替换它或创建唯一的PDF文件。