Son satırın yazdırılması

[domino]

Texboxla satırlara veri girmekteyim. Sorunum en son veri girdiğim satır kalsın üst satırların tamamı silinsin ve kalan satırı da print etmek istiyorum. (Satırın tamamı)
Yardımcı olursanız sevinirim.

 

[Mahmut Kök]

Sub sonsatir()
Dim sonsat As Integer
sonsat = Range("a65536").End(3).Row
Rows("1:" & sonsat - 1).ClearContents
Rows(sonsat).Select
Selection.PrintOut
End Sub

 

[domino]

Teşekkür ederim bu işimi neredeyse gördü. Şöyle ki ben yazarken sanırım yanlış anlatmışım. Üst satırların silinmesi değilde yazıcıdan çıkmaması için beyaza boyanmasını istiyorum. Sıra olayı önemli çünkü