将Excel工作表打印成单个PDF

Question

I have an Excel sheet that is populated with data from a database. As I loop through the data, I write to the same sheet and print it. I want to put the output into a single PDF. I'm basically printing the same sheet over and over with different data. The problem is that instead of adding to the pdf, the pdf gets overwritten each time I export new data. Below is the code I use to export the sheet.

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

Answer 1

You can append the current date and epoch time to the file name to ensure that the file is unique and created into your directory.

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