Cara Mencetak ke PDF di Excel VBA: Dengan Contoh dan Ilustrasi

  • Bagikan Ini
Hugh West

Dalam artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda dapat mencetak dokumen apa pun ke PDF menggunakan VBA di Excel. Kita akan menggunakan Ekspor SebagaiFixedForma t metode VBA Saya akan mendiskusikan semua parameter metode ini dengan contoh dan ilustrasi yang tepat.

Cetak ke PDF di Excel VBA (Tampilan Cepat)

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk berlatih saat Anda membaca artikel ini.

VBA Cetak ke PDF.xlsm

Pengenalan ke Pernyataan ExportAsFixedFormat

⧭ Ikhtisar:

The Ekspor SebagaiFixedForma t metode VBA menyimpan dokumen tertentu dalam format PDF dengan nama tertentu dengan VBA Ini adalah metode yang cukup berguna bagi mereka yang bekerja dengan banyak lembar kerja Excel dan menyimpannya untuk digunakan di masa mendatang.

⧭ Sintaksis:

Sintaksis dari VBA ExportAsFixedFormat metode ini:

 Document.ExportAsFixedFormat Type, Filename, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish 

⧭ Parameter:

Parameter Wajib / Opsional Penjelasan
Jenis Diperlukan Menunjukkan jenis file yang ingin Anda simpan sebagai. Gunakan xlTypePDF untuk file PDF, atau xlTypeXPS untuk file XPS.
Nama file Opsional Nama file yang ingin Anda simpan. Masukkan jalur lengkap file di sini jika Anda ingin menyimpan file di jalur yang berbeda dari buku kerja.
Kualitas Opsional Menunjukkan kualitas file yang akan disimpan. Gunakan xlQualityStandard untuk kualitas standar, atau xlQualityMinimum untuk kualitas minimum.
SertakanProperti Dokumen Opsional Tetapkan sebagai True untuk menyertakan properti dokumen, atau tetapkan sebagai False untuk tidak menyertakan properti dokumen.
AbaikanCetakArea Opsional Tetapkan True untuk mengabaikan area cetak, atau False untuk tidak mengabaikan area cetak.
Dari Opsional Nomor halaman awal dari mana dokumen Anda akan mulai disimpan.
Untuk Opsional Tetapkan sebagai True untuk menyertakan properti dokumen, atau tetapkan sebagai False untuk tidak menyertakan properti dokumen.
BukaSetelahTerbitkan Opsional Tetapkan sebagai True (Benar) untuk membuka dokumen setelah penerbitan atau tetapkan sebagai False (Salah).

Nilai Pengembalian:

Ini mengubah lembar kerja buku kerja Excel sebagai dokumen PDF dan menyimpannya ke folder yang ditentukan dengan nama yang ditentukan.

5 Contoh untuk Mencetak ke PDF di Excel VBA dengan Pernyataan ExportAsFixedFormat

Mari kita jelajahi beberapa contoh cara mencetak dokumen ke PDF di Excel VBA dengan ExportAsFixedFormat metode.

Contoh 1: Cetak ke PDF di Excel VBA tanpa Nama atau Jalur yang Ditentukan

Di sini kita memiliki lembar kerja dengan catatan buku dari toko buku bernama Marin Bookstore.

Mari kita tuliskan VBA untuk mengonversi lembar kerja ke dokumen PDF, tanpa menentukan nama atau jalur.

⧭ Kode VBA:

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF End Sub 

⧭ Keluaran:

Jalankan kode ini, dan Anda akan menemukan file PDF dengan nama yang sama dengan buku kerja Anda (Nama default jika tidak ada nama yang ditentukan) di folder yang sama dengan buku kerja Anda (Folder default karena tidak ada jalur yang ditentukan).

Di sini dinamai sebagai Book1.pdf karena nama buku kerja saya adalah Buku1 .

Baca Juga: Excel VBA: Cara Mengatur Area Cetak Secara Dinamis (7 Cara)

Contoh 2: Cetak ke PDF di Excel VBA dengan Nama dan Jalur yang Ditentukan

Sekarang kita akan mengonversi buku kerja yang sama ke file PDF lain dengan menentukan nama dan jalurnya.

Saya akan menyimpan PDF dengan nama "Martin Bookstore.pdf" di jalur C:\Users\Public\ExcelWIKI di komputer saya. VBA kode akan menjadi:

⧭ Kode VBA:

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Usersers\Public\ExcelWIKI\Toko Buku Martin.pdf" End Sub 

⧭ Keluaran:

Kode ini akan menyimpan dokumen PDF di jalur C:\Users\Public\ExcelWIKI di komputer saya dengan nama Toko Buku Martin.pdf .

Baca selengkapnya: Cara Mencetak Area Terpilih di Excel (2 Contoh)

Bacaan serupa:

  • Cara Mencetak Judul di Excel (5 Cara Mudah)
  • Cetak Lembar Kerja dengan Komentar di Excel (5 Cara Mudah)
  • Cara Mencetak Sel Terpilih di Excel (2 Cara Mudah)
  • Pusatkan Area Cetak di Excel (4 Cara)
  • Cara Menampilkan Pratinjau Cetak dengan Excel VBA (3 Makro)

Contoh 3: Cetak ke PDF di Excel VBA dengan Membuka File setelah Penerbitan

Sekarang kita akan mencetak dokumen ke PDF sedemikian rupa sehingga file dibuka setelah dipublikasikan. Kita harus mengatur BukaSetelahTerbitkan parameter ke Benar .

Jadi VBA kode akan menjadi,

⧭ Kode VBA:

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Usersers\Public\ExcelWIKI\Toko Buku Martin.pdf", _ OpenAfterPublish:=True End Sub 

⧭ Keluaran:

Kode ini akan menyimpan dokumen PDF di jalur C:\Users\Public\ExcelWIKI di komputer saya dengan nama Toko Buku Martin.pdf dan buka file segera setelah dipublikasikan.

Konten Terkait: Cara Mengatur Pratinjau Cetak di Excel (6 Opsi)

Contoh 4: Cetak Beberapa Lembar Kerja ke Beberapa File PDF di Excel VBA

Sampai sekarang, kita telah mencetak satu lembar kerja. Kali ini kita akan mencetak beberapa lembar kerja ke beberapa file PDF.

Di sini kita punya buku kerja dengan 5 lembar kerja, masing-masing berisi catatan buku dari toko buku tertentu.

Kali ini kita akan mengonversi semua lembar kerja ke file PDF.

The VBA kode akan menjadi:

⧭ Kode VBA:

 Sub Print_Multiple_Sheets_To_PDF() Sheet_Names = InputBox("Masukkan Nama Lembar Kerja yang akan Dicetak ke PDF: ") Sheet_Names = Split(Sheet_Names, ", ") For i = LBound(Sheet_Names) To UBound(Sheet_Names) Worksheets(Sheet_Names(i)).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Users\Public\ExcelWIKI\" + Sheet_Names(i) + ".pdf" Next i EndSub 

⧭ Keluaran:

Jalankan kodenya. Kotak input akan meminta Anda untuk memasukkan nama lembar kerja yang akan dikonversi ke PDF. Di sini saya telah memasukkan Toko Buku Joseph, Toko Buku Morgan, Toko Buku Angela .

Klik OK . Dan itu akan menyimpannya sebagai file PDF di folder C:\Users\Public\ExcelWIKI .

Baca selengkapnya: Cara Mencetak Beberapa Lembar di Excel (7 Metode Berbeda)

Contoh 5: Mengembangkan Fungsi yang Ditentukan Pengguna untuk Mencetak ke File PDF di Excel VBA

Terakhir, saya akan menunjukkan kepada Anda bagaimana Anda dapat mengembangkan fungsi yang ditentukan pengguna untuk mencetak lembar kerja apa pun ke PDF dengan Excel VBA .

Mari kita kembangkan fungsi yang disebut PrintToPDF yang akan mencetak lembar kerja aktif ke dalam file PDF.

The VBA kode akan menjadi:

⧭ Kode VBA:

 Function PrintToPDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Usersers\Public\ExcelWIKI\Toko Buku Martin.pdf" End Function 

⧭ Keluaran:

Masukkan fungsi ini di sel mana pun di lembar kerja Anda.

=PrintToPDF()

Kemudian klik MASUK Ini akan mengkonversi lembar aktif ( Toko Buku Martin di sini) ke file PDF dalam folder yang ditentukan.

Baca selengkapnya: Excel VBA: Cetak UserForm agar Pas di Halaman (2 Metode)

Hal-hal yang Perlu Diingat

Sewaktu mengembangkan kode-kode, sebagian besar waktu kami menggunakan ActiveSheet objek dari VBA Ini mengembalikan lembar kerja yang aktif pada saat itu di buku kerja aktif.

Juga terkadang kami menggunakan properti ActiveSheet.Name Ini mengembalikan nama lembar kerja yang aktif.

Kesimpulan

Jadi ini adalah cara untuk mencetak lembar kerja apa pun ke PDF dengan VBA Apakah Anda memiliki pertanyaan? Jangan ragu untuk bertanya kepada kami. Dan jangan lupa untuk mengunjungi situs kami ExcelWIKI untuk lebih banyak postingan dan pembaruan.

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.