Excel’de her sayfanın etrafına nasıl kenarlık yazdırabilirim?
Yüzlerce sayfayı içeren büyük çalışma kitaplarıyla çalışırken, verileri net ve profesyonel bir şekilde yazdırmak büyük önem taşır. Bunun en etkili yollarından biri, her yazdırılan sayfanın çevresine bir kenarlık eklemektir; böylece çıktınız görsel olarak ayrılmış ve okunması kolay hale gelir. Excel’de bu kenarlıkları her sayfaya manuel olarak uygulamak mümkün olsa da, çok sayfalı belgelerde bu yöntem son derece zaman alıcı ve pratik değildir. Neyse ki, Excel’de her sayfanın etrafına otomatik olarak kenarlık eklemenizi sağlayacak daha verimli çözümler mevcuttur. Bu makalede, hem yerleşik özellikleri hem de alternatif yaklaşımları kapsayan bu işlemi gerçekleştirmenin birkaç pratik yolunu inceleyeceğiz.
➤ Izgara çizgilerini ayarlayarak her sayfanın etrafına kenarlık yazdırma
➤ Kutools for Excel ile tek tıklamayla her sayfanın etrafına kenarlık yazdırma
➤ VBA makrosu otomasyonu kullanarak her sayfanın etrafına kenarlık yazdırma
Izgara çizgilerini ayarlayarak her sayfanın etrafına kenarlık yazdırma
Excel, her yazdırılan sayfanın etrafına kenarlık eklemek için özel bir seçenek sunmasa da, sayfa kenarlıklarını simüle etmek amacıyla Izgara Çizgilerini Yazdır özelliğini kullanabilirsiniz. Bu yöntem hem hızlıdır hem de eklenti gerektirmez. Ancak kalın bir sayfa anahattı oluşturmaz—Excel tüm ızgara çizgilerini yazdırır ve sayfanın kenarı, en dıştaki yazdırılan ızgara çizgileriyle görsel olarak belirlenir.
Notlar:
- Bu yöntem, çalışma sayfanız düzenli bir ızgara düzenine uyuyorsa ve yoğun özel kenarlıklara bağlı değilse en iyi şekilde çalışır.
- Çalışma sayfanız zaten tablolar için belirgin kenarlıklar kullanıyorsa, yazdırılan ızgara çizgileri bu kenarlıklarla görsel olarak çakışabilir.
1. Özel kenarlıklar varsa, yazdırırken çakışma veya tutarsız çizgiler oluşmaması için öncelikle bunları kaldırın. Sayfayı seçin ve ardından tüm seçili hücrelerin kenarlıklarını temizlemek için Giriş > Kenarlık (simge) > Kenarlık Yok yolunu izleyin:
2.Sayfa Düzeni> gruptaki köşedeki küçük oka tıklayarak Sayfa Düzeniiletişim kutusunu açın:
3.Sayfa Düzeniiletişim kutusunda Sayfasekmesine geçin ve Izgara Çizgilerikutusunu Yazdırbölümünde işaretleyin; böylece sayfa kenarlarındaki dahil tüm ızgara çizgileri yazdırılır:
4. Sonucu onaylamak için Yazdırma Ön İzleme’ye tıklayın. Yazdırdığınızda her sayfa, en dıştaki yazdırılan ızgara çizgileriyle oluşturulan net bir dikdörtgen ızgara sınırı gösterecek ve bu, sayfa kenarlığını taklit edecektir. Örneğe bakın:
İpuçları:
- Daha kalın ve dikkat çekici kenarlıklara ihtiyacınız varsa, Baskı Alanı’na dış kenarlıkları manuel olarak eklemeyi veya sayfa ana hatlarını çizmek için bir makro kullanmayı düşünün.
- Birleştirilmiş veya düzensiz hücre bölgelerinden kaçının; bunlar, yazdırılan ızgara çizgilerinin görsel sürekliliğini bozabilir.
- Yazdırmadan önce her zaman ön izleme yaparak görünümün beklentilerinizi karşıladığından emin olun.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
Kutools for Excel ile tek tıklamayla her sayfanın etrafına kenarlık yazdırma
Karmaşık biçimlendirmeye sahip çalışma sayfalarında veya ızgara çizgileri yeterli olmadığında daha profesyonel bir görünüm için sayfa kenarlığı isteyen kullanıcılar için Kutools for Excel, kullanışlı bir çözüm sunar: Sayfa Sonlarına Kenarlık Ekle özelliği. Bu araç, etkin çalışma sayfasının her yazdırılabilir sayfasına tek tıklamayla düzgün bir kenarlık eklemenizi sağlar; böylece zaman kazanır ve tüm sayfalarda tutarlı bir görünüm elde edersiniz.
Kutools for Excel yüklendikten sonra Sayfa Sonlarına Kenarlık Ekle için aşağıdaki adımları izleyin:
1. Kenarlık eklemek istediğiniz sayfayı etkinleştirin ve ardından Kurumsal > Yazdırma > Sayfa Sonlarına Kenarlık Ekle yolunu izleyin. Ekran görüntüsüne bakın:
2. Devam ederseniz, mevcut tüm kenarlıkların silineceğini belirten bir iletişim kutusu görürsünüz. Bu durumda, çalışmalarınızı kaydettiğinizden veya kenarlıkların üzerine yazmanın sorun oluşturmayacağınızdan emin olun. İşleme devam etmek için Evet’e tıklayın:
Uygulandıktan sonra çalışma sayfanızın her sayfası, kalın ve net bir kenarlıkla çevrelenir; böylece yazdırılan çıktı düzenli ve kolayca ayırt edilebilir hale gelir. Bu yöntem hızlıdır ve manuel çabayı en aza indirir.
İpuçları ve notlar:
- Bu seçeneği kullandığınızda, mevcut kenarlıklar Geçerli Çalışma Sayfası'ndan kaldırılır.
- Belirli kenarlıkları korumanız gerekiyorsa, dosyanızı veya çalışma sayfanızı önceden yedeklemenizi öneririz.
- Bu seçenek, tutarlı ve görsel olarak net sayfa kenarlıkları gerektiren çok sayfalı büyük çalışma sayfalarında mükemmel sonuçlar verir.
VBA makrosu otomasyonu kullanarak her sayfanın etrafına kenarlık yazdırma
Her yazdırılabilir sayfanın etrafına kenarlık ekleme işlemini otomatikleştirmek istiyorsanız—özellikle tekrarlayan görevlerde veya özel düzenlerde—Excel’in Sayfa Sonu’nu okuyan ve her sayfa için anahat çizen bir VBA makrosu kullanabilirsiniz. Bu yöntem, eklentilere gerek kalmadan kenarlık stilini ve kalınlığını tamamen kontrol etmenizi sağlar.
Notlar:
- Makro, yalnızca üst, sol, alt ve sağ dış kenarlıkları kullanarak her yazdırılabilir sayfayı çerçeveleyen bir kenarlık ekler; mevcut iç hücre kenarlıklarını etkilemez.
- İyi yapılandırılmış sayfalarda en iyi performansı gösterir; karmaşık birleştirilmiş sayfalar veya alışılmadık baskı alanları küçük ayarlamalar gerektirebilir.
İşlem adımları:
1. Visual Basic for Applications düzenleyicisini açmak için Alt + F11 tuşlarına basın. Yeni bir modül eklemek için Ekle > Modül yolunu izleyin.
2. Aşağıdaki kodu modüle kopyalayıp yapıştırın:
Sub AddBorderToEachPrintablePage()
Dim ws As Worksheet
Dim LastRow As Long, LastCol As Long
Dim StartRow As Long, EndRow As Long
Dim StartCol As Long, EndCol As Long
Dim vRowBreaks As Variant, vColBreaks As Variant
Dim i As Long, j As Long
Dim oldDisp As Boolean
Dim f As Range
Set ws = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
' Check if sheet is empty
Set f = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If f Is Nothing Then GoTo CleanUp
LastRow = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastCol = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
' Force refresh of page breaks
oldDisp = ws.DisplayPageBreaks
ws.DisplayPageBreaks = True
' Collect horizontal page breaks (add top and bottom bounds)
vRowBreaks = Array(0)
For i = 1 To ws.HPageBreaks.Count
vRowBreaks = ArrayJoin(vRowBreaks, Array(ws.HPageBreaks(i).Location.Row - 1))
Next i
vRowBreaks = ArrayJoin(vRowBreaks, Array(LastRow))
' Collect vertical page breaks (add left and right bounds)
vColBreaks = Array(0)
For j = 1 To ws.VPageBreaks.Count
vColBreaks = ArrayJoin(vColBreaks, Array(ws.VPageBreaks(j).Location.Column - 1))
Next j
vColBreaks = ArrayJoin(vColBreaks, Array(LastCol))
' Draw only outer borders for each printable page
For i = 0 To UBound(vRowBreaks) - 1
StartRow = vRowBreaks(i) + 1
EndRow = vRowBreaks(i + 1)
For j = 0 To UBound(vColBreaks) - 1
StartCol = vColBreaks(j) + 1
EndCol = vColBreaks(j + 1)
With ws.Range(ws.Cells(StartRow, StartCol), ws.Cells(EndRow, EndCol))
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous: .Weight = xlThick
End With
End With
Next j
Next i
CleanUp:
ws.DisplayPageBreaks = oldDisp
Application.EnableEvents = True
Application.ScreenUpdating = True
If Not f Is Nothing Then
MsgBox "Borders have been added to each printable page!", vbInformation, "AddBorderToEachPrintablePage"
End If
End Sub
Function ArrayJoin(a As Variant, b As Variant) As Variant
Dim temp() As Variant
Dim alen As Long, blen As Long, k As Long
alen = UBound(a) - LBound(a) + 1
blen = UBound(b) - LBound(b) + 1
ReDim temp(0 To alen + blen - 1)
For k = 0 To alen - 1
temp(k) = a(k)
Next k
For k = 0 To blen - 1
temp(alen + k) = b(k)
Next k
ArrayJoin = temp
End Function
3. Excel’e dönün, hedef çalışma sayfasının etkin olduğundan emin olun ve makroyu çalıştırmak için F5tuşuna basın (veya)Çalıştır düğmesini kullanın). Makro, Sayfa Sonu’nu algılar ve her yazdırılabilir sayfa bloğunun etrafına kalın bir kenarlık çizer.
İpuçları:
- Kenarlık stilini ve ağırlığını, dört
xlEdge*bölümüne girerek düzenleyin (örneğin,).Weight = xlMedium; renk ise.Colorile ayarlanır). - Özel bir Baskı Alanı ayarı yapılmışsa, Excel’in sayfa sonu bunu takip eder; sonuçları Yazdırma Ön İzleme bölümünde doğrulayın.
- Makroları çalıştırmadan önce mutlaka çalışma kitabınızı kaydedin. Eğer makroyu tekrar tekrar kullanmayı planlıyorsanız, dosyayı makro destekli bir biçimde ()
.xlsm) kaydetmeyi unutmayın. - İçerik bulunamazsa, makro güvenli bir şekilde çıkar ve bir mesaj görüntüler (boş sayfalarda hata oluşmasını engeller).
Makro beklenen şekilde çalışmıyorsa, Birleştirilmiş hücreler, gizli satır/sütunlar veya “1 sayfa genişliğinde N sayfa yüksekliğinde sığdır” gibi alışılmadık ölçekleme ayarlarını kontrol edin. Baskı Alanı veya Sayfa Düzeni ayarlarınızı optimize ederek sayfa bloklarını iyileştirebilir ve makroyu yeniden çalıştırabilirsiniz.
Her Sayfanın Etrafına Kenarlık Ekle
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