22-09-2019, 14:41
Visual Basic
- With vbSheet.PageSetup
- .LeftMargin = (12)
- .RightMargin = (12)
- .TopMargin = (35) 'ÜST BOŞLUK
- .BottomMargin = (12)
- .HeaderMargin = (1) 'ÜST BİLGİ BOŞLUĞU
- .FooterMargin = (1)
- .CenterHeader = "&""-,Kalın""&14& GÜNLÜK ACİL LİSTESİ" 'ÜST BİLGİ
- .Zoom = 95
- End With
DEĞERLERİ YUKARIDAKİ GİBİ YAPTIM.
12 YAPTIĞIMDA KENAR BOŞLUĞUNU 0.4 YAPIYOR.
YARDIMINIZ İÇİN TEŞEKKÜR EDERİM.