Excel'de yazdırma alanını son satıra nasıl ayarlayabilirim?
Excel'de varsayılan olarak, tüm çalışma sayfasını veri içeren son satıra kadar yazdırma alanı olarak ayarlayacaktır. Ancak bu durumda, aşağıda gösterilen ekran görüntüsü gibi verilerle son satıra kadar A sütunundan C sütununa yazdırmak istiyorum, bunu işlemenin herhangi bir yolu var mı?
Baskı Seçimi ile veri içeren son satıra baskı alanını ayarla
Baskı alanını VBA'ya göre verilerle son satıra ayarlayın
Baskı Seçimi ile veri içeren son satıra baskı alanını ayarla
Veri içeren son satıra bir seçim yazdırmak için, yazdırma öncesinde yazdırma alanını belirtilen seçimle değiştirebilirsiniz.
1. Ambar Ctrl tuşuna ve ardından yazdırmak istediğiniz sütunları seçin. Ekran görüntüsüne bakın:
2. tık fileto > Print ve sonra seçim yapın Seçimi Yazdır itibaren ayar Bölüm. Ekran görüntüsüne bakın:
Veri içeren son satıra yazdırma alanını ayarla
Burada da bu işlemi yapmak için bir makro kodu tanıtıyorum.
1. Kullandığınız sayfayı etkinleştirin, Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere ve tıklayın Ekle > modül. Ekran görüntüsüne bakın.
2. Aşağıdaki kodu, modül komut dosyası ve basın F5 çalıştırmak için anahtar.
VBA: Alanı son satıra ayarlayın
'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ırlatan bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OK, baskı alanı ayarlandı.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
