Cara setting print dan cetak dengan macro - Pada Microsoft office terdapat fitur yang cukup dikenal yaitu Print preview. Print preview sangat perlu dilakukan untuk membantu kita mengecek apakah dokumen yang akan Anda cetak sudah benar baik ejaannya ataupun format-formatnya. tampilan print preview akan sama dengan hasil cetak pada kertas.

Print preview biasanya digunakan untuk mengatur ulang settingan cetakan atau untuk kembali mengatur hasil cetakan melalui page sate up, jika anda menggunakan page setup manual maka anda bisa mengakses fitur Print preview pada excel anda, akan tetapi ada beberapa page setup yang bisa langsung anda atur dengan menggunakan macro atau vba, berikut ini kode macro untuk mengatur cetakan pada printer

Saya berasumsi anda akan mencetak halaman pada sheet1, dengan area printer adalah kolom A1 sampai R20

Set Aprint = Sheets("Sheet1")
Aprint.PageSetup.Printarea = "$A1:$R20"

Tampilkan halaman 75 persen

Aprint.PageSetup.Zoom = 75

Orientasi halaman cetak adalah horizontal / landscape

wsCetak.PageSetup.Orientation = xlLandscape

Di buat agar halaman tetap center ditengah tengah (center horizontal)

Aprint.PageSetup.CenterHorizontally = True

Jarak halaman sebelah kiri adalah 1,1

Aprint.PageSetup.LeftMargin = Application.CentimetersToPoints(1.1)

Jarak halaman sebelah kanan adalah 1,1

Aprint.PageSetup.RightMargin = Application.CentimetersToPoints(1.1)

Jarak halaman bagian bawah adalah 1,5

Aprint.PageSetup.BottomMargin = Application.CentimetersToPoints(1.5)

Jarak halaman bagian atas adalah 1

Aprint.PageSetup.TopMargin = Application.CentimetersToPoints(1)

Silahkan gabungkan sendiri kode macro diatas sehingga hasil print previewnya seperti gambar dibawah ini


Berikut ini hasil gabungan kode macro setup cetak

With Sheets("Sheet1")
.PageSetup.PrintArea = "$A1:$R20"
.PageSetup.Zoom = 75
.PageSetup.Orientation = xlLandscape
.PageSetup.CenterHorizontally = True
.PageSetup.LeftMargin = Application.CentimetersToPoints(1.1)
.PageSetup.RightMargin = Application.CentimetersToPoints(1.1)
.PageSetup.BottomMargin = Application.CentimetersToPoints(1.5)
.PageSetup.TopMargin = Application.CentimetersToPoints(1)
.PrintOut
End With

Custom lanjutan

Jika orientasi yang anda inginkan adalah Vertical atau Portrait rubah bagian kode macro .PageSetup.Orientation = xlLandscape menjadi .PageSetup.Orientation = xlPortrait

Jika anda menginginkan halaman center ditengah tengah secara vertical maka tambahkan kode .PageSetup.CenterHorizontally = True menjadi .PageSetup.CenterVertically = True, jika menginginkan center vertikal dan horizontal, maka anda tinggal menulis kedua kode tersebut

Menentukan ukuran kertas atau tipe kertas A3

.PaperSize = xlPaperA3

Menentukan ukuran kertas atau tipe kertas A4

.PaperSize = xlPaperA4

Menentukan ukuran kertas atau tipe kertas A5

.PaperSize = xlPaperA5

Coba pelajari kembali artikel lawas Membuat ukuran kertas sendiri , membuat tombol print, dan memilih printer dengan macro . Demikianlah Cara setting print dan cetak dengan macro, semoga bermanfaat
3 comments