Başlıkları son sayfada yazdırmak istemiyorum.

[lovecaroline]

Merhaba saygı değer uzman arkadaşlarım,
excelde başlıkları yazdır işlemini yaptığımda bütün sayfaların en üstünde sabit satırı yineleyerek yazıyor.

Ben son sayfanın üstünde yenilenmemesini istiyorum. Son sayfada başlık yazdırma olmasın, diğer sayfalarda olsun istiyorum.

Yardımcı olabilir misiniz. Teşekkürler.

 

[Mertsan]

Daha önce istemiş olduğunuz konuda aşağıdaki kodu bulmuştum.
Son sayfa hariç tüm sayfalarda sizin belirleyeceğiniz satırı başlık olarak yazdırır. Hangi satırı yazdıracağınızı isteyen kutucuk geldiğinde fare ile de seçebilirsiniz.

Test ederken az sayıda sayfa ile deneyiniz.

Sub SonSayfaHariciBasliklariYazdir()
Dim xSayfa As Long, I As Integer, xRg As Range
On Error Resume Next
xSayfa = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Tekrarlanacak satır adresini giriniz(A1:E1)şeklinde:", "kaynak.www.extendoffice.com", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
    If xSayfa > 0 Then
        With ActiveSheet.PageSetup
            .PrintTitleRows = xRg.AddressLocal
             ActiveSheet.PrintOut from:=1, To:=xSayfa - 1
            .PrintTitleRows = ""
             ActiveSheet.PrintOut from:=xSayfa, To:=xSayfa
        End With
    End If
End Sub

 

[lovecaroline]

cevabınız için teşekkürler.
ben kod olmaksızın yapılabilir mi onu arıyorum aslında. yani excelin dahili bir özelliği var mı?

 

[Zeki Gürsoy]

Başlıkları yazdır tüm sayfaları etkilediğinden istediğiniz makro dışında mümkün görünmüyor.