Excel'de baskı alanını, verilerin bulunduğu en son satıra kadar olan sütunları içerecek şekilde nasıl ayarlarım?
Excel'de varsayılan olarak Baskı Alanı, veri içeren en son satıra kadar tüm çalışma sayfasını kapsar. Ancak aşağıdaki ekran görüntüsünde gösterildiği gibi, yalnızca A ile C sütunlarını (C'den sonraki sütunlardaki veriler hariç) verilerin bulunduğu en son satıra kadar yazdırmak isterseniz, bunu gerçekleştirmenin bir yolu var mıdır?
Seçimi Yazdır kullanarak Baskı Alanı'i verilerin bulunduğu en son Son Satır'a göre ayarlayın
VBA kullanarak Baskı Alanı'i verilerin bulunduğu en son Son Satır'a göre ayarlayın
| Verileri I sütununa kadar uzanan bir çalışma sayfası | Yalnızca C sütununa kadar olan verileri gösteren yazdırma önizlemesi |
 |  |
Seçimi Yazdır kullanarak Baskı Alanı'ü verilerin bulunduğu en son Son Satır'a göre ayarlayın
Yazdırmadan önce, verilerin bulunduğu en son satıra kadar olan seçimi yazdırmak için Baskı Alanı’nı bu seçime göre ayarlayabilirsiniz.
1. Ctrl tuşunu basılı tutun ve ardından yazdırmak istediğiniz sütunları seçin. Ekran görüntüsüne bakın:
2. Dosya > Yazdır seçeneğine tıklayın ve ardından Ayarlar bölümünden Seçimi Yazdır seçeneğini seçin. Ekran görüntüsüne bakın:
Verilerin bulunduğu en son Son Satır'a göre Baskı Alanı'u ayarlayın
Bu işlemi gerçekleştirmek için burada bir makro kodu da paylaşıyorum.
1. Kullandığınız sayfayı etkinleştirin, ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın ve Ekle > Modül seçeneğine tıklayın. 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ır Olarak 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ırlatan bir iletişim kutusu açılır. Ekran görüntüsüne göz atın:
4. Tamam düğmesine tıklayın, baskı alanı ayarlandı.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar