- Katılım
- 26 Şubat 2021
- Mesajlar
- 39
- Excel Vers. ve Dili
- 2016 türkçe
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
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