Cara Otomatis Simpan Excel ke PDF dengan VBA Macro (1 Detik Saja!)

Pernahkah Anda merasa lelah harus melakukan Save As ke format PDF satu per satu setiap kali selesai mengerjakan laporan Excel? Jika Anda mengelola puluhan laporan setiap hari, cara manual ini tentu sangat membuang waktu.

Kabar baiknya, ada solusi otomatis menggunakan VBA Macro. Dengan satu klik saja, file Excel Anda akan langsung tersimpan ke format PDF dengan nama file yang rapi. Mari kita bahas tutorialnya!

Mengapa Harus Menggunakan VBA Macro untuk PDF?

Menggunakan VBA Macro bukan hanya soal kecepatan. Keunggulan utamanya adalah konsistensi. Dengan script, margin, area cetak, dan nama file akan selalu sama setiap kali Anda mengekspornya. Ini adalah standar otomatisasi tingkat lanjut untuk meningkatkan produktivitas admin.

Langkah-Langkah Persiapan Sebelum Memulai

Sebelum kita masuk ke script, pastikan tab Developer sudah aktif di Excel Anda:

Buka Excel, klik kanan pada area Ribbon (menu atas).
Pilih Customize the Ribbon.
Centang kotak Developer di sisi kanan, lalu klik OK.

Script VBA Macro Simpan ke PDF

Berikut adalah script VBA yang bisa Anda gunakan. Script ini akan mendeteksi active sheet dan menyimpannya ke folder yang sama dengan file Excel Anda.

Sub SimpanSheetKePDF_SaveAs()
    Dim namaDefault As String
    Dim lokasiPilihan As Variant
    
    ' Menentukan nama file default awal (menggunakan nama Sheet aktif)
    namaDefault = ActiveSheet.Name
    
    ' Menampilkan Jendela Windows Save As
    lokasiPilihan = Application.GetSaveAsFilename( _
        InitialFileName:=namaDefault, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Simpan Sebagai PDF")
        
    ' Jika user menekan tombol 'Cancel' pada jendela Save As
    If lokasiPilihan = False Then
        MsgBox "Penyimpanan dibatalkan.", vbInformation, "Batal"
        Exit Sub
    End If
    
    ' Proses export ke PDF sesuai lokasi dan nama yang dipilih user
    On Error GoTo ErrorHandler
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=lokasiPilihan, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True ' PDF otomatis terbuka setelah disave
        
    MsgBox "File PDF berhasil disimpan!", vbInformation, "Sukses"
    Exit Sub

ErrorHandler:
    MsgBox "Terjadi kesalahan. Pastikan file PDF dengan nama tersebut tidak sedang dibuka oleh program lain.", vbCritical, "Error"
End Sub

Cara Memasang Script dan Tombol di Excel

Setelah script siap, ikuti langkah ini untuk membuat tombol otomatis:

Tekan ALT + F11 untuk membuka jendela VBA.
Klik Insert > Module.
Paste script di atas ke dalam modul.
Kembali ke Excel, masuk ke tab Insert > Shapes, buat kotak (tombol).
Klik kanan pada kotak tersebut, pilih Assign Macro, lalu pilih SimpanSheetKePDF.

Penutup

Sekarang, proses pelaporan Anda tidak lagi memakan waktu berjam-jam. Cukup klik tombol, dan PDF sudah siap dikirim. Apakah tutorial ini membantu? Jika Anda punya kendala saat mencoba script ini, silakan tulis di kolom komentar ya!