İmha Listesi Oluşturmak

[yyhy]

İmha listesi oluşturuyorum. Sayfa başı ve sonu bilgilerini otomatik olarak nasıl eklenebilir, hesaplattırılabilir?

 

[ÖmerFaruk]

Ben böyle değil de kenarlıkların düzegün olması için şu kodları kullanmıştım.

    ActiveSheet.ResetAllPageBreaks
    ActiveWindow.View = xlPageBreakPreview
    For i = 1 To ActiveSheet.HPageBreaks.Count - 1
        Range("A" & ActiveSheet.HPageBreaks(i).Location.Row - 1, "N" & ActiveSheet.HPageBreaks(i).Location.Row - 1).Borders(xlEdgeBottom).Weight = xlThin
    Next i
    ActiveWindow.View = xlNormalView

Sizin ihtiyacınız biraz daha farklı ama bunlar size ışık tutmalı. Sizin yerinizde olsam

• Sayfa başı ve sonu için 1 ya da 1 den fazla satır içeren bir şablon belirlerim.
• İlk sayfa zaten belli o şablonu ilk sayfa başı için kullanırım.
• HPageBreaks kontrolüyle sayfa sonlarını belirlerim. Sayfa sonuna ve haliyle bir sonraki sayfanın başına istediğim bilgileri getiririm.

 

[yyhy]

Sayın @NextLevel acaba örnek dosyada nasıl oluşturabilirim, manuel yapmak 40-50 sayfa ve üzeri olduğu zaman çok sıkıcı oluyor.

 

[ÖmerFaruk]

manuel yapmak 40-50 sayfa ve üzeri olduğu zaman çok sıkıcı oluyo

Ben zaten manuel yapın demedim. Bunu kodlarla döngülerle yapmalısınız. Sadece yol göstermeye çalıştım.

 

[yyhy]

Sayın @NextLevel ne yapacağımı bilemedim eğer bu konuda örnek dosya üzerinde yardım edebilir misiniz? Eklemiş olduğunuz bilgiler konusunda bilgim yok.

 

[hımmmmmmmm]

tasarımda bir kaç değişiklik oldu... umarım işine yarar

girişlerini giriş sayfasından gir.. ( özellikle; 'konusu' sütun genişliği aynı kalsın ve satır giriş yapmaya çalış)

liste al butonunu tıkla.. burada 2 tercihin var..
yazıcıya yollama ile; direk yazıcıdan çıktı alınır..
form sayfasında göster ilede; yazıcıdan alınacak çıktıyı form sayfasında inceleyebilirsin .. hatta oradanda yazıcıya yollayabilirsin

 

[yyhy]

Kontrol edip dönüş yapacağım.

 

[yyhy]

Sayın @hımmmmmmmm inceledim çıktı almadım güzel olmuş çok teşekkür ederim. Konya' dan selamlar emeğinize sağlık ihtiyaca cevap verdi. Sorun olursa tekrar bildiririm ama görünüşte yok gibi tekrar iyi akşamlar.