DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sht As Worksheet
For Each sht In Worksheets
sht.PageSetup.CenterHeader = "Sayfa &P"
Next sht
End Sub
'ÜST BİLGİ / ALT BİLGİ
Sub BilgiAmacliOlupWithKullanilmadi()
Sheets(1).PageSetup.RightHeader = "Sağ Üst Bilgi"
Sheets(1).PageSetup.CenterHeader = "Orta Üst Bilgi"
Sheets(1).PageSetup.LeftHeader = "Sol Üst Bilgi"
Sheets(1).PageSetup.RightFooter = "Sağ Alt Bilgi"
Sheets(1).PageSetup.CenterFooter = "Orta Alt Bilgi"
Sheets(1).PageSetup.LeftFooter = "Sol Alt Bilgi"
End sub
Sub Makro1()
'
' Makro1 Makro
' Makro muhasebe3 tarafından 24.06.2005 tarihinde kaydedildi.
'
'
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Sayfa &P"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Sayfa &P / &N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.748031496062992)
.RightMargin = Application.InchesToPoints(0.748031496062992)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = Array(120, 72)
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sht As Worksheet
For Each sht In Worksheets
sht.PageSetup.CenterHeader = "Page &P of &N"
Next sht
End Sub