sayfaya makro ile alt bilgi ekleme ve düzenleme

[tamer42]

Merhabalar,
Makro ile sayfa alt bilgilerinin yazdırılması konusunda aşağıdaki kodu oluşturdum
burada verileri 2'şerli olmak üzere şimdi 3 ' parçaya ( sol, orta, sağ) böldüm ; parçalar arasında çok boşluk var,
parça içinde daha çok boşluk vererek, parçalar arası boşluğu azaltabilir miyiz?
veriler daha düzenli görünsün, özetle sayfanın alt tarafında eşit olarak dağılsın.

yardımlarınız için şimdiden teşekkürler,

iyi Çalışmalar dilerim.

Sub SetFooterThreeAreasOptimized()
    Dim ws As Worksheet
    Dim ayar As Worksheet
    Dim tasks(1 To 6) As String, names(1 To 6) As String
    Dim footerLeft As String, footerCenter As String, footerRight As String
    Dim PadInner As Integer ' Parça içi boşluk
    
    Set ws = ThisWorkbook.Sheets("Tablo")
    Set ayar = ThisWorkbook.Sheets("Ayarlar")
    
    ' --- Görev ve isimleri al ---
    Dim i As Integer
    For i = 1 To 6
        tasks(i) = ayar.Cells(i + 1, "E").Value
        names(i) = ayar.Cells(i + 1, "F").Value
    Next i
    
    PadInner = 6 ' Parça içi boşluk (görev ve isimler arasında)
    
    ' --- Sol / Orta / Sağ alanlar ---
    footerLeft = tasks(1) & " / " & names(1) & Space(PadInner) & tasks(2) & " / " & names(2)
    footerCenter = tasks(3) & " / " & names(3) & Space(PadInner) & tasks(4) & " / " & names(4)
    footerRight = tasks(5) & " / " & names(5) & Space(PadInner) & tasks(6) & " / " & names(6)
    
    ' --- PageSetup ---
    With ws.PageSetup
        .LeftFooter = footerLeft
        .CenterFooter = footerCenter
        .RightFooter = footerRight
        .LeftMargin = Application.InchesToPoints(0.3)
        .RightMargin = Application.InchesToPoints(0.3)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        ' Üstbilgi
        .CenterHeader = "&""Calibri,Bold""&16 " & ayar.Range("B2").Value
    End With
End Sub

 

[muhasebeciyiz]

Parçalar Arası Boşluk: Sol, Orta ve Sağ altbilgi alanları arasındaki boşluk sabit ve eşittir, sayfa genişliği ve kenar boşlukları tarafından belirlenir. Bunu değiştiremezsiniz.

Görsel Yanılsama: Parçalar arası boşluğu azaltmanın tek yolu, her bir parçayı (örneğin footerLeft içindeki metni) görsel olarak daha sıkı ve daha az yayılmış göstermektir. Bu, sizin isteğinizin tersine, parça içi boşluğu (PadInner) azaltarak (örneğin 6 yerine 3 veya 4 yaparak) veya daha kısa ayırıcılar (örneğin Space(PadInner) yerine " | ") kullanarak mümkün olur.

Deneyiniz: Yukarıdaki kodda PadInner değerini 4 olarak ayarladım ve setler arasına " | " ayırıcısını eklendi. Bu, altbilginizin daha düzenli görünmesine yardımcı olacaktır.

Hocam bilginize sunulur.Saygılar