Cetak Margin Sempit

VBA 31.jpg

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

zip.png  Cetak Margin Sempit - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Pens Sky Venture - Sukolilo Surabaya

Jl. Cilincing jakarta utara

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
                               Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
WA : 085 331 270 386 im3 (CS / Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

bni.jpg
BNI SYARIAH
No.rek. 0257474398
Atas nama Sdri IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi, S.Pd.
Aries Eko Wibowo, S.Pd. MM.
Fauzan, M.Kom.
Sahrudin, M.Pd.
Budi Prasetya, ST., MM.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Patrick A. Kembuan, S.Kom
Ali, M.Pd.