Export PDF : Multi Sheet

Prasyarat:

---

Pada meteri sebelumnya, kita sudah belajar bagaimana melakukan export file PDF dasar pada sheet aktif dan juga pada sheet yang sudah ditentukan.

Nah sekarang, bagaimana jika ingin mengexport file PDF pada beberapa sheet sekaligus dan menjadikannya 1 file PDF saja.

Seperti yang sudah dipelajari pada materi sebelumnya,

Sintak dasar dari export PDF adalah menggunakan ExportAsFixedFormat , sintak dasarnya seperti dibawah ini.

expression.ExportAsFixedFormat (Type, FileName, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish, FixedFormatExtClassPtr)

Posisi Worksheet pada sintak diatas berada pada Expression. Berarti pada kondisi ini bagaimana membuat expression ini memiliki banyak worksheet sekaligus.

Seperti yang sudah dipelajari pada materi sebelumnya untuk memilih banyak sheet bisa mengunakan Select.

jika belum memahami ini, silahkan baca kembali materi sebelumnya tentang membuka worksheet.

Untuk memilih banyak sheet kita bisa menuliskan script seperti berikut ini :

Worksheets(Array("Sheet3", "database","Sheet5")).Select

Pada script diatas, Sheet3, Sheet Database dan juga Sheet5 dipilih secara bersamaan.

Sehingga jika ingin melakukan Export pada sheet3, Sheet database dan Sheet5 menjadi 1 file PDF saja, maka notasi scriptnya bisa dibuat seperti ini :

Sub ExportToPDF()
    Dim filePath As String
    filePath = "C:\Folder\file.pdf" ' Ganti dengan lokasi dan nama file yang diinginkan
    
    'Export sheet aktif ke PDF
    Worksheets(Array("Sheet3", "database","Sheet5")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard
End Sub

Pada script diatas, ketiga sheet akan di Export kedalam 1 File PDF saja.

Dimana urutan Sheet ini akan sama urutannya dengan data yang ada didalam file PDF.

Export Semua Sheet Menjadi Satu File PDF

Cara diatas digunakan jika tidak semua sheet di Export menjadi satu File PDF artinya hanya beberapa sheet saja yang ditentukan pada file tersebut.

Sedangkan jika ingin semua sheet pada File tersebut di Export kedalam satu file PDF maka pemilihan sheet menggunakan Array tidak diperlukan.

Kita bisa memilih semua Sheet yang ada secara sekaligus. dengan perintah

Sub ExportToPDF()
    Dim filePath As String
    filePath = "C:\Folder\file.pdf" ' Ganti dengan lokasi dan nama file yang diinginkan
    
    'Export Semua Sheet ke PDF
    Worksheets.Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard
End Sub

Urutan halaman pada file PDF akan mengikuti urutan Sheet yang ada pada Workbook tersebut. Dan jika setiap sheet memiliki jumlah halaman yang berbeda-beda ini juga akan masuk sesuai dengan urutannya.