Soru Yazdırma Alanı

[mcetinkaya65]

Yaklaşık 1000 satırlık bir yazdırma alanı var. Bunu yazdırırken eşit sayıda satırlarla yazdırmanın bir kolayı var mı?
Örnek : A1 den I1270 e kadar yazdırılacak bir alanı yazdırmak için görünüm / sayfa düzeninden manuel olarak ayarladım. Bu çalışmayı bir sayfada 30 ar satır olarak yazdırmanın bir kolayı varmı?
Saygılarımla..

 

[netzone]

Merhaba,

Sayfa yapısından alt ve üst boşlukları arttırarak, yada satır yüksekliklerini arttırarak yapabilirsiniz. Tabi ki farklı yollarla da sayfa yapısına dokunmadan 30 ar satır olarak da bölünmesi de mümkündür.

İyi çalışmalar.

 

[muygun]

Merhaba;
Alternatif:
Sayfanın kod bölümüne;

Sub yazdırma_alanı_belirleme_ve_yazdırma()
ilksat = 1: sonsat = 1270: sayfada = 30: sayfailk = 1: sayfason = 30 ' bu satırdaki rakamları isteğinize göre belirleyin
dön = Int(sonsat / sayfada) + 1
For k = 1 To dön
Range("A" & sayfailk & ":ı" & sayfason).Select
sayfailk = sayfailk + sayfada
sayfason = sayfason + sayfada
Rem PrintOut Copies:=1 'yazdırma işlemini aktive etmek için satırın önündeki Rem yazısını silin
Next k
End Sub

kodlarını ekleyin

Rem PrintOut Copies:=1 'yazdırma işlemini aktive etmek için satırın önündeki Rem yazısını silin

satırını;

PrintOut Copies:=1 'yazdırma işlemini aktive etmek için satırın önündeki Rem yazısını silin

Şeklinde değiştirin ve bir butona bağlayarak deneyin.

İyi çalışmalar.

Not: çıktı alarak denemedim.