Excel'de belirli sütunlara kadar son satıra kadar yazdırma alanını nasıl ayarlayabilirsiniz?

Excel'de, varsayılan olarak yazdırma alanı, veri içeren son satıra kadar olan tüm çalışma sayfasını içerir. Ancak, yalnızca A'dan C'ye kadar olan sütunları (ve C sütunundan sonraki herhangi bir veriyi hariç tutarak) veri içeren son satıra kadar yazdırmak isterseniz, aşağıdaki ekran görüntüsünde gösterildiği gibi, bunu gerçekleştirmek için herhangi bir yöntem var mı?

Yazdırma Seçimi ile son satırda veri bulunan yazdırma alanını ayarlama

VBA ile son satırda veri bulunan yazdırma alanını ayarlama

Verilerin I sütununa kadar uzandığı bir çalışma sayfası	Yalnızca C sütununa kadar olan verileri gösteren baskı önizlemesi

Yazdırma Seçimi ile son satırda veri bulunan yazdırma alanını ayarlama

Son satıra kadar olan bir seçimi yazdırmak için, yazdırma işleminden önce yazdırma alanını belirtilen seçime değiştirebilirsiniz.

1. Basılı tutun Ctrl tuşuna basın ve yazdırmak istediğiniz sütunları seçin. Ekran görüntüsüne bakın:

2. Tıklayın Dosya > Yazdır, ve ardından şunu seçin Seçimi Yazdır seçeneğini Ayarlar bölümünden. Ekran görüntüsüne bakın:

Son satırda veri bulunan yazdırma alanını ayarlama

Burada bu işlemi gerçekleştirmek için bir makro kodu tanıtacağım.

1. Kullandığınız sayfayı etkinleştirin, tuşlarına basın Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın ve tıklayın Ekle > Modül. Ekran görüntüsüne bakın.

2. Aşağıdaki kodu Modül betiğine yapıştırın ve çalıştırmak için F5 tuşuna basın.

VBA: Alanı son satıra ayarla

'UpdatebyExtendoffice20170811
    Dim xRg As Range
    Dim xRgLRow As Long
    Dim xRgAddress As String
    On Error Resume Next
    xRgAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range：", "KuTools For Excel", xRgAddress, , , , , 8)
    xRg.Select
    xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
    xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
    xRgAddress = xRgAddress & xRgLRow
    ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub

3. Kullanmak istediğiniz sütun aralığını seçmenizi hatırlatmak için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:

4. Tamam'a tıklayın, yazdırma alanı ayarlanmıştır.