satırları ayrı ayrı yazdırmak

[a5000]

merhabalar ben sorumu örnek vererek sormak istiyorum.
örneğin 1-30 a kadar satır numarısı olan bir excel uygulamam var
istediğim şey yazdırırken 1.sayfanın başında 1. satır sonra 2. sayfanın başında 2. satır bilgilerinin yazılmasını istiyorum.şimdidem yardımlarınız için teşekkürler..

 

[hamitcan]

Sorunuzu örnek bir dosya destekleyin.

 

[a5000]

Sorunuzu örnek bir dosya destekleyin.

Ekli dosyayı görüntüle satır çıktısı.xlsx
aslında amacım yazdırma çıktısı aldığımızda 1.sayfa üst bilgisi olarak satır 1'i 2.sayfa üstbilgisi olarak satır2'yi ve böyle devam ederek sonuna kadar devam etmesini istiyorum yapabilir miyiz acaba...

 

[hamitcan]

Bu şekilde dener misiniz ?

Sub UstteYinelenenSatirlar()
With Sayfa1
        .PageSetup.PrintArea = ""
         b = 1
         s = .HPageBreaks(1).Location.Row - 1
    For i = 1 To .HPageBreaks.Count
        .PageSetup.PrintArea = ""
        .PageSetup.PrintArea = Range("a" & b & ":d" & s).Address
        .PageSetup.PrintTitleRows = "$" & i & ":$" & i
        .PrintPreview
         b = s + 1
         s = s + b - 1
    Next
End With
End Sub

 

[a5000]

Bu şekilde dener misiniz ?

Sub UstteYinelenenSatirlar()
With Sayfa1
        .PageSetup.PrintArea = ""
         b = 1
         s = .HPageBreaks(1).Location.Row - 1
    For i = 1 To .HPageBreaks.Count
        .PageSetup.PrintArea = ""
        .PageSetup.PrintArea = Range("a" & b & ":d" & s).Address
        .PageSetup.PrintTitleRows = "$" & i & ":$" & i
        .PrintPreview
         b = s + 1
         s = s + b - 1
    Next
End With
End Sub

usta denedimde hata veriyor tekrar bir bakar mısın?
-----run-time eror '9'---
-----subscript out of range---
böyle bir hata veriyor bir bakarsam sevinirim

 

[hamitcan]

Bir de bu şekilde dener misiniz ?

Sub UstteYinelenenSatirlar2()
With Sayfa1
        .PageSetup.PrintArea = ""
         b = 1
         s = 50' Bir sayfanın 50 satırdan oluştuğunu varsaydım.
    For i = 1 To WorksheetFunction.RoundUp(Sayfa1.UsedRange.Rows.Count / 50, 0)
        .PageSetup.PrintArea = ""
        .PageSetup.PrintArea = Range("a" & b & ":d" & s).Address
        .PageSetup.PrintTitleRows = "$" & i & ":$" & i
        .PrintPreview
         b = s + 1
         s = s + b - 1
    Next
End With
End Sub