veri kadar satır eklemek ve yazdırmak

[acar57]

merhaba hocalar benim yapmak istediğim örnek 10 satır var ve bunlardan sadece 3 satırda değer var sadece değerlerin olduğu satırları fiş yazdırmak istiyorum yardımcı olursanınz sevinirm örnek ekliyorum şimdiden teşekkürler

İndir dene yazdır

Dosyayı indir dene yazdır

dosya.co

 

[YUSUF44]

Sorunuzu tam anlayamadım ancak aşağıdaki kodları fiş sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız fiş sayfasını her açtığınızda ya da fiş sayfasında herhangi bir hücre seçtiğinizde yazdırma alanını H sütunundaki son dolu satıra göre ayarlar:

Private Sub Worksheet_Activate()
    son = Cells(Rows.Count, "H").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$" & son
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    son = Cells(Rows.Count, "H").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$" & son
End Sub

 

[acar57]

Sorunuzu tam anlayamadım ancak aşağıdaki kodları fiş sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız fiş sayfasını her açtığınızda ya da fiş sayfasında herhangi bir hücre seçtiğinizde yazdırma alanını H sütunundaki son dolu satıra göre ayarlar:

Private Sub Worksheet_Activate()
    son = Cells(Rows.Count, "H").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$" & son
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    son = Cells(Rows.Count, "H").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$" & son
End Sub

teşekkürler hocam deneyeceğim