Excel'de her sayfa etrafına nasıl kenarlık yazdırılır?
Yüzlerce sayfaya yayılan büyük çalışma sayfalarıyla çalışırken, verilerin net ve profesyonel bir biçimde yazdırılması hayati öneme sahip olur. Bunu başarmak için her yazdırılan sayfa etrafına bir kenarlık ekleyebilir, böylece çıktının görsel olarak ayrılması kolaylaşır ve okunması daha rahat hale gelir. Excel’de her sayfanın içeriğini manuel olarak seçip kenarlık uygulayabilirsiniz; ancak bu yöntem özellikle birden fazla sayfa ile uğraşırken son derece zaman alıcı ve pratik değildir. Neyse ki, Excel'deki her sayfa etrafına otomatik olarak kenarlık yazdırmak için daha verimli çözümler mevcut. Bu makalede, yerleşik seçenekler ve alternatif yaklaşımlar dahil olmak üzere bu görevi yerine getirmek için birkaç pratik yöntem keşfedeceğiz.
➤ Sayfa kenarlıkları yazdırmak için kılavuz çizgilerini ayarlama
➤ Kutools for Excel ile tek tıkla her sayfa etrafına kenarlık yazdırma
➤ VBA makrosu otomasyonu kullanarak her sayfa etrafına kenarlık yazdırma
Kılavuz çizgilerini ayarlayarak her sayfa etrafına kenarlık yazdırma
Excel, her yazdırılan sayfa etrafına özel bir kenarlık ekleme seçeneği sunmasa da, sayfa kenarlıklarını simüle etmek için Kılavuz Çizgileri Yazdır özelliğini kullanabilirsiniz. Bu hızlı bir yöntemdir ve herhangi bir eklenti gerektirmez. Ancak unutmayın, bu işlem kalın bir sayfa çerçevesi oluşturmaz—Excel tüm kılavuz çizgilerini yazdırır ve sayfa kenarı, yazdırılan son kılavuz çizgisiyle görsel olarak tanımlanır.
Notlar:
- Bu yöntem, çalışma sayfanız düzenli bir ızgara düzenine uygunsa ve özelleştirilmiş ağır kenarlıklara bağlı kalmıyorsanız en iyi şekilde işe yarar.
- Çalışma sayfanızda tablolar için belirgin kenarlıklar varsa, yazdırılan kılavuz çizgileri onlarla görsel olarak çakışabilir.
1. Özel kenarlıklar varsa, yazdırma sırasında üst üste binen veya tutarsız çizgilerden kaçınmak için önce bunları kaldırın. Çalışma sayfasını seçin, ardından Giriş > Kenarlık (ikon) > Kenarlık Yok'a giderek tüm seçili hücrelerin kenarlıklarını temizleyin:
2. Sayfa Düzeni > Grup köşesindeki küçük ok olan Sayfa Ayarları iletişim kutusu başlatıcısına tıklayarak Sayfa Ayarları iletişim kutusunu açın:
3. Sayfa Ayarları'nda, Sayfa sekmesine geçin ve Yazdır bölümünde Kılavuz Çizgileri'ni işaretleyerek tüm kılavuz çizgilerinin (sayfa kenarlarındakiler de dahil) yazdırılmasını sağlayın:
4. Sonucu onaylamak için Baskı Önizleme'ye tıklayın. Yazdırdığınızda, her sayfa en dıştaki yazdırılan kılavuz çizgileriyle oluşturulan net dikdörtgen bir ızgara sınırı gösterir, bu da sayfa kenarlığı taklit edilmiş olur. Örnek:
İpuçları:
- Daha kalın, belirgin kenarlıklar istiyorsanız, baskı alanına manuel olarak dış kenarlıklar eklemeyi veya sayfa çerçeveleri çizmek için bir makro kullanmayı düşünün.
- Birleştirilmiş/düzensiz hücre bölgelerinden kaçının; bu durum yazdırılan kılavuz çizgilerinin görsel sürekliliğini bozabilir.
- Her zaman baskıdan önce önizleme yaparak görünümün beklentilerinizi karşıladığından emin olun.
Kutools AI ile Excel Sihirini Keşfedin
- Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
- Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
- VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
- Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.
Kutools for Excel ile tek tıkla her sayfa etrafına kenarlık yazdırma
Özellikle karmaşık biçimlendirme içeren çalışma sayfalarında veya kılavuz çizgilerinin yetersiz kaldığı durumlarda daha profesyonel görünümlü bir sayfa kenarlığı isteyen kullanıcılar için Kutools for Excel, her yazdırılabilir sayfaya tek bir tıklamayla kalın bir kenarlık eklemenizi sağlayan bir çözüm sunar: Her Sayfaya Kenarlık Ekle özelliği. Bu araç, aktif çalışma sayfasının her yazdırılabilir sayfasına tek bir tıklamayla kalın bir kenarlık eklemenizi sağlar, hem zamandan tasarruf eder hem de tüm sayfalarda tutarlı bir görünüm sağlar.
Kutools for Excel'i yükledikten sonra, her sayfaya kenarlık eklemek için şu adımları izleyin:
1. Kenarlık eklemek istediğiniz sayfayı etkinleştirin ve ardından Kurumsal > Yazdırma > Her Sayfaya Kenarlık Ekle. Ekran görüntüsüne bakın:
2. Devam ederseniz tüm mevcut kenarlıkların silineceğini bildiren bir iletişim kutusu çıkarsa, önce çalışmanızı kaydettiğinizden veya kenarlıkların üzerine yazılmasının kabul edilebilir olduğundan emin olun. Tıklayın Evet devam etmek için:
Uygulandıktan sonra, çalışma sayfanızın her sayfası kalın ve net bir kenarlıkla çevrelenecek ve çıktı daha düzenli ve kolay ayırt edilebilir görünecektir. Bu yöntem hızlıdır ve manuel çabayı en aza indirir.
İpuçları ve notlar:
- Bu seçenek kullanıldığında mevcut kenarlıklar aktif sayfadan kaldırılacaktır.
- Belirli kenarlıkları korumanız gerekiyorsa, önce dosyanızı veya çalışma sayfanızı yedeklemeyi düşünün.
- Bu seçenek, tutarlı ve görsel olarak net sayfa kenarlıkları gerektiren çok sayıda baskı sayfasına sahip büyük çalışma sayfaları için iyi çalışır.
VBA makrosu otomasyonu kullanarak her sayfa etrafına kenarlık yazdırma
Özellikle tekrarlayan görevler veya özel düzenler için her yazdırılabilir sayfa etrafına kenarlık eklemeyi otomatikleştirmek istiyorsanız, Excel sayfa sonlarını okuyan ve bir sayfa çerçevesi çizen bir VBA makrosu kullanabilirsiniz. Bu, eklentilere bağımlı olmadan kenarlık stili ve kalınlığı üzerinde tam kontrol sağlar.
Notlar:
- Makro, yalnızca her yazdırılabilir sayfanın dış kenarlarına (üst/sol/alt/sağ) bir kenarlık çizer. Mevcut iç hücre kenarlıklarının üzerine yazmaz.
- İyi yapılandırılmış sayfalar üzerinde en iyi şekilde çalışır; karmaşık birleştirilmiş hücreler veya sıra dışı baskı alanları küçük ayarlar 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’e tıklayın.
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 geri dönün, hedef çalışma sayfasının etkin olduğundan emin olun ve makroyu F5 tuşuyla (veya Çalıştır düğmesiyle) çalıştırın. Makro, sayfa sonlarını algılayacak ve her yazdırılabilir sayfa bloğunun etrafına kalın bir kenarlık çizecektir.
İpuçları:
- Kenarlık stili/kalınlığını dört
xlEdge*bölümü düzenleyerek ayarlayın (örneğin,.Weight = xlMedium, renk için.Color). - Özel bir Baskı Alanı ayarlanmışsa, Excel’in sayfa sonları onu takip eder; sonuçları Baskı Önizleme'de doğrulayın.
- Makroları çalıştırmadan önce çalışma kitabınızı kaydedin. Tekrarlı kullanım için makro etkin bir dosya olarak kaydedin (
.xlsm). - İçerik bulunmazsa, makro boş sayfalardaki hataları önlemek için güvenli bir şekilde çıkar ve bir mesaj gösterir.
Makro beklenen şekilde davranmıyorsa, birleştirilmiş hücreleri, gizli satır/sütunları veya sıra dışı ölçeklendirme ayarlarını kontrol edin (örneğin, “Sığdır: 1 sayfa genişliğinde N sayfa yüksekliğinde”). Sayfa bloklarını rafine etmek için Baskı Alanı veya Sayfa Ayarları ayarlarını değiştirip makroyu yeniden çalıştırabilirsiniz.
Her Sayfa Etrafına Kenarlık Ekle
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin