Yazıcıdan çıktı almak için belli satırdan aşağısının temizlenmesi

[hakki83]

Merhaba

Ekteki dosyada sayfa 1 ve 2’de iki örnek göstermeye çalıştım.

A sütununa isimler dökülüyor
B veya B-C-D gibi sütunlara da veriler dökülmektedir. Örneklerde görüldüğü haliyle.

Yazıcıdan çıkartma aşamasında biraz işi kolaylaştırabilmek için, A sütunu hariç, en son veri hangi satırdaysa o satırdan aşağısını temizlemek istiyorum. Ama son satır sabit değil, hep değişebilir.

Örnek
Sayfa1’de 12’nci safır ve aşağısı tamamen temizlenmeli.
Sayfa2’de 14’üncü satır ve aşağısı silinmeli.

Teşekkürler

 

[ÖmerFaruk]

Aşağıdaki kodları VBA penceresinde Bu Çalışma Kitabı bölümüne yapıştırın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    For i = 2 To Range("A1").End(2).Column
        xRow = WorksheetFunction.Max(xRow, Cells(Rows.Count, i).End(3).Row)
    Next i
    ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(xRow, i)).Address
End Sub

 

[hakki83]

Çok teşekkür ederim Sayın ÖmerFaruk hocam.

Ben hem önerdiğiniz yol ile, hem de komut butonuna atayarak denedim, iki şekilde de çalışıyor. Fakat 1 sütun fazlasını seçiyor. Yani en sondaki boş olan bir sütunu da seçiyor. Bunu düzeltebilir miyiz? Teşekkürler.

 

[ÖmerFaruk]

Sanırım bir sütun fazla yazılıyor.
ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(xRow, i-1)).Address

 

[hakki83]

Düzeldi ÖmerFaruk hocam