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

Karangrejo Tmur 17 Surabaya

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
No.rek. 0865254338
Atas nama BERKREASI MULTITECH. CV

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama 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.