Userform sayfa yazdırma (Başlık sabitleme)

[celikomerh]

Selamlar
Forumu araştırmama rağmen bulamadım, aynı konuyu açtıysam özür dilerim.
Dosyam çok büyük ve içinde güncel verilerim olduğu için paylaşamadım.
Sorum şu şekildi;

Private Sub CmdPdf_Click()
    SonSatır = wsExtre.Cells(Rows.Count, "A").End(3).Row
    If SonSatır < 5 Then
        BilgiMesajı ("Bilgi Bulunamadı..")
        Exit Sub
    End If
    Alan = "$A$3:$N$" & SonSatır
    wsExtre.PageSetup.PrintArea = Alan
    PDFYolu = ThisWorkbook.Path & "\PDF\" & TbS1 & ".pdf"
    wsExtre.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        PDFYolu, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    BilgiMesajı ("PDF Oluşturuldu...")
End Sub

bu şekilde seçimlerime göre pdf oluşturup, kaydedip açabiliyorum sorun olmuyor. Fakat sayfadaki veriler çoğaldıkça oluşturduğum pdf 2 veya daha fazla oluyor.
Excelde Sayfa Düzeni / Sayfa Yapısı / Çalışma Sayfası / Üstte yinelenecek satırlar seçimini VBA'da nasıl yaptırabilirim, yukarıdaki kodlarıma eklerim?

anlatabildiysem yardımlarınızı rica ederim.

 

[Korhan Ayhan]

Merhaba,

Boş bir excel kitabında 2 sayfalık bir yapı oluşturun sonra makro kaydet ile bahsettiğiniz işlemleri el ile yapın. Son olarak makro kaydını durdurun. Oluşan kod satırlarını kendi kodunuza uyarlamayı deneyiniz.