Membuat tombol cetak atau Print dengan Macro Excell

Pada sebuah file Excel kita bisa membuat perintah langsung untuk mencetak atau menge-print sebuah lembar kerja. Hal ini untuk memudahkan saja pada saat kita akan mencetak lembar kerja. Perintah cetak tersebut banyak sekali cara-caranya sesuai dengan kebutuhan, namun kami di sini hanya akan membuat perintah cetak yang sering kami lakukan saja.

Untuk membuat tombol perintah, bisa di baca pada artikel sebelum-sebelumnya, kali ini kita akan menampilkan kode-kode macronya saja.

Membuat tombol cetak atau Print dengan Macro Excell

• Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"
• Klik Insert kemudian klik Module


• Copy Paste kode berikut di bawah ini dan masukan ke dalam module


Kode VBA Excel untuk Membuat tombol cetak atau Print dengan Macro Excell

'https://baladaka.blogspot.com
'============================

'Menampilkan Pilihan Jenis Printer

Sub JenisPrint()

Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

'Menampilkan Print Preview

Sub PrintPreview()

ActiveSheet.PrintPreview
End Sub

'Print Langsung
  
Sub PrintLangsung()
ActiveSheet.PrintOut
End Sub

'Pilihan print sheet dengan jumlah print
  
Sub PrintBanyak()

  formPrint1.Show
End Sub
  

'Pilihan print sheet tanpa jumlah print
  
Sub PrintBanyak2()

  formPrint2.Show
End Sub

'Print Area Tertentu
Sub cetakareatertentu_Click()

Worksheets("Sheet2").PageSetup.PrintArea = "$B2:$H25"
Worksheets("Sheet2").PrintOut Copies:=1, Collate:=True

End Sub



Catatan


• Untuk tulisan yang diberi warna merah merupakan perintah macro, dan bisa anda ganti sesuai keinginan
• Buatkan tombol untuk membuat perintah macro tersebut
• Buatkan pula form untuk menampilkan perintah tombol printer pada Sub Pilihan print sheet tanpa jumlah print dan Pilihan print sheet dengan jumlah print

Contoh File Membuat tombol cetak atau Print dengan Macro Excell

Link Alternatif

Jika File tidak ter-download otomatis, silahkan klik Link Alternatif dan lihat hasil download di folder Downloads