Export PDF : Multi File

Prasyarat:

Pada materi sebelumnya di sub materi Export PDF, vba.co.id sudah membahas dasar dari Export PDF dan juga Export Multi Worksheet.

Nah kali ini bagaimana jika pertanyannya adalah mengexport di sheet yang sama tetapi berbeda beda data.

Untuk mudahnya misalnya disini ada sebuah data yang dibuat PDF

sedangkan untuk Format PDFnya akan dibuat seperti dibawah ini

Sub ExportToPDF()
Dim filePath As String

For i = 1 To JmlData
    With Worksheet("cetak")
        .Range("Kode").Value = i
        filePath = "C:\Folder\" & .Range("LokasiNama").Value & ".pdf"
        
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard
    End With
Next i
End Sub