Koşullu yazdırma

[ugurex]

Merhaba,
Aşağıdaki kodla A1:E28 aralığını yazıcıya gönderiyorum, bu yazdırma aralığını B sütununun dolu son hücresine kadar belirleyebilir miyiz? yani A, C, D, E sütunları daha uzun olabilir, fakat biz B sütunu son hücresine kadar olan 5 sütunun aralığını yazdıracağız, mümkün müdür?

Sub listeyazdir()
'
' listeyazdir Makro
'
    Range("A1:E28").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$E$28"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("A1:E1").Select
End Sub

 

[veyselemre]

Satırı değiştirin.

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & Cells(Rows.Count, 2).End(3).Row

 

[ugurex]

Satırı değiştirin.

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & Cells(Rows.Count, 2).End(3).Row

teşekkür ederim üstad emeğine sağlık, istediğim gibi çalıştı.