Yazdırma butonuna makro atama

[58Muhendis58]

Sayın ustalar Aşağıdaki kod benim yazdırma butonuma ait kod ancak butona bastığımda A ve B sütununda boş olan alanı da seçiyor. Yazırma alanının tamamını sayfadan belirledim ancak duruma göre alan içerisinde son yazılı hücrenin bir alt sütununa kadar seçip yazdırmasını istiyorum
Saygılarımla

Private Sub CommandButton3_Click()
With Worksheets("RAPORLAMA-2").PageSetup
.CenterHorizontally = True
.PrintArea = "$a$2:$b$" & Range("b65536").End(3).Row + 2
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

ActiveWindow.SelectedSheets.PrintPreview
If MsgBox("Verılerınız Yazdırılsınmı ?..", vbDefaultButton1 + vbYesNo, "UYARI") = vbYes Then
ActiveSheet.PageSetup.PrintArea = "a1:b1"
ActiveWindow.SelectedSheets.PrintOut
End If


End Sub

 

[hamitcan]

Üstteki kodda zaten yazdırma alanı belirlemişsiniz... Aşağıdaki kod satırı işi bozuyor sanki

ActiveSheet.PageSetup.PrintArea = "a1:b1"