Kode VBA Untuk Cetak Pada Macro Excel

Untuk membuat aplikasi data berbasis Excel, kita terkadang akan memasang tombol cetak didalamnya. Oleh karena itu kita harus tahu beberapa macam code VBA untuk tombol cetak tersebut. Didunia maya banyak sekali artikel mengenai code tersebut. Saya mencoba menulis ulang dari beberapa artikel yang pernah saya baca.
Code VBA untuk tombol Print antara lain sebagai berikut :

1. ActiveWorkbook.PrintOut untuk mencetak Workbook yang aktive
2. Worksheets.PrintOut untuk mencetak semua worksheet
3. Sheets.PrinOut untuk mencetak semua sheet
4. Sheet("Sheet1)").PrintOut untukmencetak sheet1saja
5. Sheet1.PrintOut untuk mencetak sheet1 saja
6. Sheets(Array("Sheet1","Sheet3")).PrintOut untuk mencetak sheet1 dan sheet3
7. Selection.PrintOut untuk mencetak range yang dipilih.
8. Range("A1:F10).PrintOut untuk mencetak data range A1 sampai F10

Untuk penulisan code VBA pada module alt+F11 adalah sebagai berikut :

Sub Cetak()

ActiveSheet.PrintOut
End Sub

Parameter PrintOut bisa diganti dengan beberapa parameter yang sesuai dengan keinginan kita. 

Contoh :

Preview yaitu untuk menampilkan Preview sebelum mencetak.

Contoh Penulisan :

Sub Cetak()

ActiveSheet.PrintPreview

End Sub

Contoh untuk penulisan cetak dengan memasang halaman adalah sebagai berikut :

Sub Cetak()

ActiveSheet.PrintOut From:=1, To:3, Copies:3

End Sub

Demikian beberapa informasi terkait code VBA untuk membuat tombol cetak. Terima kasih. Semoga bermanfaat. Salam.

Contoh gambar Penulisan  Code VBA :

Langkah 1.

Klik Developper menu kemudian pilih  control button dan buat tombol print.

Selanjutnya tekan ALT + F11

Klik kanan pada sheet1 pilih insert dan pilih module.

Langkah 2. Dengan menuliskan code VBA yang sudah kita pelajari diatas.

Langkah 3, pada gambar print klik kanan dan pilih Asign Macro dan pilih macro cetak. Klik OK.

Alhamdulillah sekarang sudah ada tombol cetak yang sudah siap digunakan. Terima kasih. Sduah berkunjung. Salam.