yazdırma kodu problemi

[turgayb]

arkadaşlar;

aşağıdaki kodu butona yazarak, yazdırmak istediğim sayfada sadece dolu satırları yazdırılmasını istiyorum. ancak boş satırlar da yazdırılıyor. bu problemi nasıl çözebilirim acaba?

kod:

Private Sub CommandButton1_Click()
Dim SON_SATIR As Long
With Sheets("Sayfa1")
SON_SATIR = WorksheetFunction.Max(.Range("C6:C65536")) + 3
If SON_SATIR = 3 Then
MsgBox "Yazdırılacak veri bulunamadı !" & Chr(10) & "İşleminiz iptal edilmiştir !", vbCritical
Exit Sub
End If
With .PageSetup
.PrintArea = "$A$2:$F$" & SON_SATIR
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.Zoom = 80
End With
.PrintOut
End With
End Sub

Yardımlarınız için şimdiden teşekkürler...

 

[turgayb]

dosya şifresi pera dır