Senin, 30 Juni 2025

Cara Membuat Macro Export Excel ke PDF Otomatis

No comments

Ingin menghemat waktu dalam mencetak laporan atau invoice dari Excel? Gunakan fitur Macro Export PDF yang bisa dibuat hanya dalam beberapa baris kode VBA. Dengan sekali klik tombol, file Excel Anda akan langsung disimpan dalam format PDF sesuai range atau sheet yang ditentukan.

Manfaat Export Excel ke PDF Secara Otomatis

  • Mempercepat proses pembuatan laporan berkala
  • Membuat file lebih mudah dibagikan atau diarsipkan
  • Tampilan PDF tetap rapi sesuai pengaturan Excel

Langkah Membuat Macro Export ke PDF

1. Buka Visual Basic Editor

  1. Tekan Alt + F11 di Excel
  2. Masukkan script berikut ke dalam Module

Sub ExportToPDF()
    Dim folderPath As String
    Dim fileName As String
    
    folderPath = "C:\Users\Public\Documents\" ' Ganti dengan lokasi penyimpanan
    fileName = "Laporan_" & Format(Now, "yyyymmdd_hhmmss") & ".pdf"
    
    ThisWorkbook.Sheets("Laporan").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=folderPath & fileName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Catatan: Ganti "Laporan" dengan nama sheet yang ingin Anda export, dan folderPath sesuai direktori komputer Anda.

2. Buat Tombol Export

  1. Buka Excel, klik tab Developer → Insert → Button
  2. Gambar tombol di lembar kerja
  3. Pilih macro ExportToPDF
  4. Ganti nama tombol dengan “Export ke PDF”

Contoh Penggunaan

Anda memiliki template slip gaji di sheet "Gaji" yang setiap minggu diisi data baru. Dengan macro ini, cukup isi data, klik tombol Export, dan slip otomatis tersimpan dalam bentuk PDF dengan nama unik berdasarkan tanggal dan waktu.

Tips Tambahan

  • Gunakan Range.ExportAsFixedFormat jika hanya ingin export area tertentu, contoh:

Sheets("Gaji").Range("A1:F30").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=folderPath & fileName
  • Atur Page Setup (orientation, margin, fit to page) sebelum export agar hasil PDF rapi
  • Gunakan variabel dari cell (misal nama karyawan) untuk memberi nama file PDF

FAQ

  • Apakah bisa export beberapa sheet sekaligus ke PDF?
    Bisa, Anda perlu menggunakan Worksheets(Array("Sheet1", "Sheet2")).Select lalu export.
  • Bagaimana jika file PDF tidak bisa dibuka?
    Pastikan folderPath valid dan Anda memiliki hak akses ke lokasi tersebut.
  • Bisa otomatis kirim PDF lewat email?
    Ya, bisa dikombinasikan dengan script Outlook VBA untuk otomatis mengirimkan hasil export PDF sebagai lampiran.

Related Posts

Related Resources

Tags: #ExcelMacro #ExportPDF #ExcelAutomation #SlipGaji #LaporanExcel

0 komentar:

Posting Komentar