Satırları sayfaya üst bilgi ve alt bilgiye eklemek

[iylis]

Merhaba;

Ekteki dosyamda 1. ve 2. satırları sayfa üst bilgisi
44. ve 45. satırları da sayfa alt bilgisine eklemek istiyorum.

Şöyleki;

aradaki liste alta doğru uzayıp giden bir liste olacak
baskı önizleme yaptığımda üstte 1. ve 2. satırlar sabit duracak
altta 44. ve 45. satırlar sabit duracak
sayfa numarası listenin uzunluğuna göre artacak.

umarım yeterince açıklayabilmişimdir.

Herkese kolay gelsin.

 

[hamitcan]

Aşağıdaki kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    sagustbilgi = [B1] & " YIL:" & [J1]
    solaltbilgi = [a44] & Chr(10)
    sagaltbilgi = [h45]
    ActiveSheet.PageSetup.RightHeader = "&9&KFF0000" & sagustbilgi
    ActiveSheet.PageSetup.LeftFooter = "&9&KFF0000" & solaltbilgi
    ActiveSheet.PageSetup.RightFooter = "&9&KFF0000" & sagaltbilgi
End Sub

 

[iylis]

Hocam sanırım yapmak istediğimi tam anlatamadım.
Ekteki dosyada bir düzeltme yaptım.
bu dosyayı açıp "çıktısını almak istediğim" sekmesinde baskı önizleme yaptığımızda benim çıktısını almak istediğim şekilde sayfalar görünüyor.

 

[iylis]

Dosya burda.

 

[hamitcan]

Eki inceleyin.