Yazdırma ALanı sorunu

[doukan84]

Arkadaşlar Ben sayfamdaki SAdece A ve F sütünları arasındaki kalan bölgelerin Dolu olan satırlarını yazdırmak istiyorum.. Mesela A ile F stunu arasında en son 122nci satırda yazılı birşey var... A122:F122 yazdırmak istiyorum.. sonra veriler güncellendi en son 70nci satırda var A70:F70 yazdırsın.. umarım anlatabilmişimdir..

 

[halit3]

Arkadaşlar Ben sayfamdaki SAdece A ve F sütünları arasındaki kalan bölgelerin Dolu olan satırlarını yazdırmak istiyorum.. Mesela A ile F stunu arasında en son 122nci satırda yazılı birşey var... A122:F122 yazdırmak istiyorum.. sonra veriler güncellendi en son 70nci satırda var A70:F70 yazdırsın.. umarım anlatabilmişimdir..

Makrolu çözüm için kod:

Sub yazdır()

Dim x As Long, a As Long, lastCell As Range

Set lastCell = Cells.SpecialCells(xlCellTypeLastCell)
a = MsgBox("Yazdırmak istiyormusunuz.?", vbYesNo, "Uyarı")
If a = 6 Then
SaveAsUI = True
sonsatır = Worksheets(ActiveSheet.Name).Cells(Rows.Count, "A").End(3).Row
Worksheets(ActiveSheet.Name).PageSetup.PrintArea = "$A$" & sonsatır & ":$F$" & sonsatır
Worksheets(ActiveSheet.Name).PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address
ElseIf a = 7 Then
Cancel = True
End If

End Sub