Sayfa Yapısı

[Ertan83]

25-30 sayfa arasında değişen sayfalarımın sayfa Yapıları ile ilgili değişkliker yaptım, yazdırma alanları, üst bilgiler, kenarlıklar v.b. onlarca işlem. Þimdi bu işlemlerden vazgeçmek ve ayarları ilk haline geri getirmek için ne yapmam gerekir? Teşekkürler.

 

[Ali]

Sayfa düzeni

Ertan Bey eğer çerçeveleri, dolgu renkleri vb. gibi kısımların olmasını istemiyorsanız. İlgili sayfayı komple kopyalayıp sağ tuş ile özel yapıştır işlevi kullanmanızı öneririm. Sağ tuş ile tıkladığınızda bir menü açılacak tümünü formülleri değerleri kenarlıklar dışındaki herşeyi,formülleri ve sayı biçimlendirmelerini vb siz isteğinize uygun yapıştırma biçimi seçerek düzenlersiniz.Ama ilk haline getir diye bir özellik yada makro varmı onu bilmiyorum

 

[Ertan83]

Bahsettiğim olay şu:

Sub Makro2()
'Makro Kaydet
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = "$A:$A"
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "Sayfa &P"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "&F"
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.354330708661417)
        .RightMargin = Application.InchesToPoints(0.551181102362205)
        .TopMargin = Application.InchesToPoints(0.590551181102362)
        .BottomMargin = Application.InchesToPoints(0.78740157480315)
        .HeaderMargin = Application.InchesToPoints(0.708661417322835)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = True
        .PrintGridlines = True
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = True
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = True
        .Zoom = False
        .FitToPagesWide = 2
        .FitToPagesTall = 3
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

Bu ayarları tekrar varsayılan ayar haline çevirebilirmiyiz?