www.Berkreasi.Net

Cetak Margin Sempit

Halo teman-teman kali ini admin berkreasi akan berbagi kode Bagaimana  tips mencetak Margin yang sempit.

Kadang kita memiliki data tapi apa itu melebihi dari ukuran kotak atau mungkin sangat maksimal pada posisi kertas sehingga kita memerlukan Margin yang sempit. Nah kali ini admin akan berbagi kode Bagaimana tips mencetak dokumen atau data dengan Margin yang sempit.

Berikut kode yang akan kita gunakan

Sub CetakMarginSempit()
    With ActiveSheet.PageSetup
    .LeftMargin = Application.InchesToPoints(0.25)
    .RightMargin = Application.InchesToPoints(0.25)
    .TopMargin = Application.InchesToPoints(0.75)
    .BottomMargin = Application.InchesToPoints(0.75)
    .HeaderMargin = Application.InchesToPoints(0.3)
    .FooterMargin = Application.InchesToPoints(0.3)
    End With
    ActiveWindow.SelectedSheets.PrintOut , Collate:=True, IgnorePrintAreas:=False

End Sub

Download File Contoh

 Cetak Margin Sempit - OK.zip

Semoga bermanfaat,

Salam ALMaS.

• Sebelumnya
• Berikutnya