Tips Ruang Excel tips Spesial print dan cetak Membuat tombol print dengan macro - Saya tidak mempunyai pengetahuan yang cukup jika berurusan dengan menu printer, akan tetai baru baru ini saya belajar membuat nota dengan printer dot matrix yang lumayan membuat kepala pusing karena baru pertama kali memegang printer model dot matrix, bagi anda yang mempunyai masalah tentang printer dot matrix silahkan baca ulasanya disini

Pada kesempatan kali ini saya akan membagikan kepada anda kode macro saat membuat tombol yang akan digunakan untuk keperluan mencetak dokumen, jadi saat mencetak anda tidak perlu mengakses menu secara manual pada microsoft excel

TOMBOL PRINT DENGAN MACRO
Kode macro print secara langsung

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

Kode macro print preview

Worksheets("Sheet1").PrintPreview

Kode macro print 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 print 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 print pengaturan zoom saat cetak / print

Worksheets("Sheet1").Zoom = 100
Ganti angka seratus (100) dengan zoom angka yag anda kehendaki

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

Worksheets("Sheet1").CenterHorizontally = True

Kode macro print pengaturan ukuran kertas saat cetak / print

Worksheets("Sheet1").PaperSize = xlPaperA4
Ganti xlPaperA4 dengan ukuran aau jenis kertas yag anda kehendaki

Kode macro print 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 print 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

TOMBOL PRINT DENGAN MACRO

Bila 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 print dengan macro ini dapat dipahami, semoga bermanfaat bagi saya Wasis Zain dan bagi pembaca, terimakasih atas dukungan yang telah diberikan selama ini. Salam
No comments