Membuat tombol cetak excel

Wah sudah tiga minggu saya tidak bisa online diblogger dan sekali online saya akan membagikan cara membuat tombol cetak dengan excel macro, bagi pemula silahkan kunjungi blog baru sayahttp://wasiszn.blogspot.co.id/ pada blog baru ini saya menjelaskan secara gamblang apa itu macro dan apa itu visual basic editor serta apa itu visual basic for application, bagi yang sudah mengerti anda bisa langsung menyimak cara membuat tombol cetak dengan excel macro.

Kode macro cetak / print lembar kerja tanpa preview

Worksheets("Sheet1").PrintOut Copies:=1, Collate:=True

Kode macro cetak / print lembar kerja dengan preview

Worksheets("Sheet1").PrintPreview

Kode macro menentukan area cetak / print

Worksheets("Sheet1").PrintArea = "$A:$D"

Jika kolom pada worksheet yang ingin anda cetak sampai kolom W maka ganti "$A:$D" dengan "$A:$W". Jika kolom dan baris yang akan anda cetak adalah tetap maka tentukan kolom dan barisnya
Contoh anda hanya akan mencetak dari range A1 sampai D100, maka kode macronya adalah seperti ini
Worksheets("Sheet1").PrintArea = "$A1:$D100"
Silahkan ganti sesuai kebutuhan

Kode macro pengaturan margin cetak / print

 Pengaturan margin atas

Worksheets("Sheet1").PageSetup.TopMargin = Application.CentimetersToPoints(3)

 Pengaturan margin bawah

Worksheets("Sheet1").PageSetup.BottomMargin = Application.CentimetersToPoints(3)

 Pengaturan margin kanan

Worksheets("Sheet1").PageSetup.RightMargin = Application.CentimetersToPoints(3)

 Pengaturan margin kiri

Worksheets("Sheet1").PageSetup.LeftMargin = Application.CentimetersToPoints(3)

Ganti angka tiga (3) dengan margin angka yag anda kehendaki

Kode macro pengaturan orientasi kertas saat cetak / print

 Posisi kertas Landscape

Worksheets("Sheet1").PageSetup.Orientation = xlLandscape

 Posisi kertas potrait

Worksheets("Sheet1").PageSetup.Orientation = xlPortrait

Kode macro pengaturan zoom saat cetak / print

Worksheets("Sheet1").Zoom = 100

Ganti angka seratus (100) dengan zoom angka yag anda kehendaki

Kode macro pengaturan posisi kertas agar pas ditengah saat cetak / print

Worksheets("Sheet1").CenterHorizontally = True

Kode macro pengaturan ukuran kertas saat cetak / print

Worksheets("Sheet1").PaperSize = xlPaperA4

Ganti xlPaperA4 dengan ukuran aau jenis kertas yag anda kehendaki

Kode macro pengaturan header saat cetak / print

Bila anda memiliki data yang banyak dan membutuhkan baris yang panjang saat dicetak. Bila panjang baris melebihi satu lembar kertas dan membutuhkan berlembar-lembar kertas, maka kita perlu untuk menampilkan baris judul tabel tidak hanya untuk di lembar atau halaman pertama saja tetapi untuk semua lembar atau halaman yang berisi data tersebut. Microsoft Excel memberikan fasilitas untuk mencetak judul tabel atau header row tanpa harus kita buat atau sisipkan diantara sela-sela data yang ada. Untuk membuat judul tabel atau header row dicetak di awal setiap halaman anda dapat menggunakan kode macro berikut ini

Worksheets("Sheet1").PrintTitleRows = "$1:$6"

Kode macro "$1:$6" merupakan baris header pada worksheet, jika jeader pada worksheet anda hanya sampai dua baris maka ganti dengan "$1:$2"

Kode macro pengaturan header saat cetak / print

Kali ini pengaturan header dengan dibumbui angka, jadi jika anda hendak mencetak 10 lembar maka pada header akan dibumbuhi 1-10 / 2-10 / 3-10 dan seterusnya, kode macronya adalah

Worksheets("Sheet1").CenterHeader = "Page &P of &N"

Jika menginginkan posisi angkanya berada dikiri silahkan ganti kode macro CenterHeader menjadi LeftHeader, jika menginginkan posisi dikanan ganti dengan CenterHeader menjadi RightHeader

Penggabungan kode macro cetak / print

 Bia kode macro semuanya diatas digabungkan maka akan menjadi seperti ini

Sub Cetak ()
Set Lprn1 = Sheets("Sheet1")
ActiveWindow.View = xlPageLayoutView
Application.PrintCommunication = False
Lprn1.PageSetup.LeftMargin = Application.CentimetersToPoints(0)
Lprn1.PageSetup.RightMargin = Application.CentimetersToPoints(0)
Lprn1.PageSetup.TopMargin = Application.CentimetersToPoints(1)
Lprn1.PageSetup.BottomMargin = Application.CentimetersToPoints(1)
With Lprn1.PageSetup
.Orientation = xlLandscape
.PrintArea = "$A:$W"
.Zoom = 60
.CenterHorizontally = True
.PaperSize = xlPaperA4
.LeftHeader = ""
.CenterHeader = "Page &P of &N"
.PrintTitleRows = "$1:$6"
.PrintTitleColumns = ""
End With
Lprn1.PrintPreview
ActiveWindow.View = xlNormalView
End Sub

 Jika tombol cetak anda letakan di userform maka anda perlu menyembunyikan userform sebelum Print Preview, Jika anda tidak menyembunyikan userform maka akan terjadi error

Sub Cetak ()
Set Lprn1 = Sheets("Sheet1")
ActiveWindow.View = xlPageLayoutView
Application.PrintCommunication = False
Lprn1.PageSetup.LeftMargin = Application.CentimetersToPoints(0)
Lprn1.PageSetup.RightMargin = Application.CentimetersToPoints(0)
Lprn1.PageSetup.TopMargin = Application.CentimetersToPoints(1)
Lprn1.PageSetup.BottomMargin = Application.CentimetersToPoints(1)
With Lprn1.PageSetup
.Orientation = xlLandscape
.PrintArea = "$A:$W"
.Zoom = 60
.CenterHorizontally = True
.PaperSize = xlPaperA4
.LeftHeader = ""
.CenterHeader = "Page &P of &N"
.PrintTitleRows = "$1:$6"
.PrintTitleColumns = ""
End With
Me.Hide
Lprn1.PrintPreview
Me.Show
ActiveWindow.View = xlNormalView
End Sub

Semoga artikel Membuat tombol cetak excel dengan macro ini dapat dipahami, semoga bermanfaat bagi saya Wasis Zain dan bagi pembaca, terimakasih atas dukungan yang telah diberikan selama tiga tahun ini. Salam