Sayfa sonlarında imzacılar

[sedat2161]

Merhaba ekteki bordroda her sayfanın altında 3 imzacı olacak sayfa yapısı değişmeden 3 imazcı açılacak. alt bilgi ile yapmaya çalıştım sağdaki 3. kişi çok sağa kayıyor. Bütün sayfalarda imzacıların çokmasını istiyorum. şimdiden teşekkürler.

 

[sedat2161]

Ekli dosyamda tüm sayfa sonlarına sayfa düzeni bozulmadan 3 imzacı açılacak. Ekle menüsündeki alt bilgi denedim sağdaki sayfanın sağına çık kayıyor. başka yol bilen bilen varsa yardımcı olursa çok sevinirim . saygılar

 

[netzone]

Mrerhaba,

- Menü > Görünüm sekmesinden > Sayfa Düzenini seçin Ekranı biraz küçülterek tamamını görün.
- Alt bilgi alanına tıklayın (Solda) Cetvelden alt bilgi alanını tutarak tablonuzun bittiği yere kadar yükseltin. [Burada göremezseniz sayfa yapısından alt bilgi alanını 2cm yapın]
- Paint yada başka bir program ile açmış olduğunuz boşluğa sığacak şekilde imza alanına yazmak istediğinizi yazın ve resim olarak kaydedin [imza 1, imza 2, imza 3]
- Excelde alt bilgi eklediğinizde resim ekle diyerek ilgili yerlere resimleri çağırın.

** Yada resim olarak yapmak yerine entera basarak (sol-orta-sağ alt bilgi) mevcut olanların üstüne çıkarak boşluk yerine tire koyup bu tireleri beyaza boyayaın ve yazıyı boyutlandırın. [Fazla karakter olacağından sonuç alınamayabilir.] [Alt bilgi de entere bastığınızda sayfanın dışına taşamayacağından mevcut olanı yukarıya öteler]

Sonuç istediğiniz gibi olacaktır.

*Örnek olarak büyük puntolara sahip imza 1-2-3 şeklinde yazdım ilk 3 sayfanın çıktısını pdf görünümünü gönderiyorum.

İyi çalışmalar.

 

[turist]

Ekli dosyayı inceleyiniz.

 

[sedat2161]

Makro il olmazmı çok önemli benim için

 

[sedat2161]

Excel web yokmu buna çözüm

 

[askm]

Alt bilgide olmasını istediklerinizi Sayfa1 adında yeni bir sayfa ekleyerek A ve B sutunlarına yazdırarak örnek kod yazdım.

Sub askm()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("2-Bordro")
Set s2 = Sheets("Sayfa1")
Application.ScreenUpdating = False
With s1.PageSetup

    .LeftHeader = ""            'Sol Üst
    .CenterHeader = ""          'Orta Üst
    .RightHeader = ""           'Sağ Üst
    .LeftFooter = ""            'Sol Alt
    .CenterFooter = ""          'Orta Alt
    .RightFooter = ""           'Sağ Alt
    .LeftFooter = "&""Arial Tur,Kalın""&28 " & s2.Range("A1") & Chr(10) & s2.Range("B1")
    .CenterFooter = "&""Arial Tur,Kalın""&28 " & s2.Range("A2") & Chr(10) & s2.Range("B2")
    .RightFooter = "&""Arial Tur,Kalın""&28 " & s2.Range("A3") & Chr(10) & s2.Range("B3")
End With
End Sub

 

[turist]

Makro ile çözümlü Dosya eklidir.

 

[Hüseyin]

Ekli dosyamda tüm sayfa sonlarına sayfa düzeni bozulmadan 3 imzacı açılacak. Ekle menüsündeki alt bilgi denedim sağdaki sayfanın sağına çık kayıyor. başka yol bilen bilen varsa yardımcı olursa çok sevinirim . saygılar

Merhaba, aynı konuyu 2-3 saat arayla iki defa ayrı mesajlarla açmışsınız. Lütfen forumun düzenine dikkat edin. Bu şekilde bilgi kirliliğine mahal vermeyelim.

NOT : Ben iki konuyu birleştirdim.

Teşekkürler.

 

[sedat2161]

kusura bakmayın ilk konunun eklenmendiğini sandım ekledikten sonra farkına vardım. özür dilerim