Setting Print dan cetak dengan VBA

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 kemabli mengatur hasil cetakan melalui page sate up, jika anda menggunakan pag e sae up manual maka anda bisa mengakses fitur Print preview pada excel anda, akan tetapi ada beberapa page sate up yang bisa langsung anda atur dengan menggunakan macro atau vba, berikut ini kode macro untuk mengatur cetakan pada printer
Halaman yang akan kita setting untuk dibuat cetakan adalah sheet1
Set Aprint = Sheets("Sheet1")
Area yang akan diseeting untuk dicetak adalah kolom range A1 sampai R20
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 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) End With

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 rubah 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