yazdırma işlemi

[muratyky]

merhabalar excel sayfasında 10 satır var ama beş satırda yazı var yazdır butonuna tıklanınca sadece yazılı olan satırlar yazılsın istiyorum ama bi türlü yapamadım

 

[Seyit Tiken]

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & Range("A65536").End(3).Row
'ActiveSheet.PrintOut

 

[YUSUF44]

Örnek dosyayla daha iyi olurdu.

Aşağıdaki kodlar yazdırma alanını A sütununda son dolu hücreye göre belirler:

Sub sonsat()
    son = Cells(Rows.Count, "A").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & son
End Sub

Ya da aşağıdaki kodları dosyanızın VBA bölümünde yer alan ThisWorkbook/BuÇalışmaKitabı kısmına kopyalarsanız, yazdırma işleminden önce A sütunundaki son dlu satıra göre yazdırma alanını otomatik değiştirir:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    son = Cells(Rows.Count, "A").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & son

End Sub

 

[muratyky]

Cevaplarınız için teşekkür ederim uzun süredir üyeyim ama hiç konu açmamıştım altın üye değilim dosya yükleyemedim o yüzden