Yazdİrma Sorunu

[ASMET67]

Selamlar.
excel sayfasında A ve E sutunları arasından 1000 satırlık bir excel çalışma sayfam var.
Yapmak istediğim.


1- İlk 10 satır hersayfada üstbilgi olarak kalacak.
2- 11. satırdan itibaren her 25 satırdan sonra sayfa sonu ekleyecek ve yazıcıya gönderecek.
Bu şekilde nasıl bir kod hazırlayabilirim.

 

[Levent Menteşoğlu]

Dosyanızın küçük bir örneğini eklermisiniz.

 

[kombo]

Sayfa sonu dediğiniz özel birşey mi? Yoksa her 10+25 =35 satıra bir sayfa mı sığacak?

 

[kombo]

Soru sorucu ortadan kayboldu ama biz yine vazifemizi yapıp karanlığa cevap yazalım.

 

[Metin Karaağaç]

Soruyu soran görmese bile forumdaki diğer arkadaşlar verdiğiniz bilgilerden yararlanacaktır Sn. kombo
Yani karanlığa cevap yazmıyorsunuz

 

[Ferhat Pazarçevirdi]

Sayın kombo'ya ek olarak, benim de, çorbada azıcık tuzum bulunsun Aşağıdaki kodları modül sayfasına kopyalayıp çalıştırınız.

Sub Sayfa_ayir()
'Bu makro :
'sheet'teki Herbir 25 satır sonunda yeni bir yazdırma sayfası oluşturur
'Sheet'teki İlk 10 satırı her sayfada tekrarlar
'verilerin A1'den başladığı varsayılmıştır
Set sh = ActiveSheet
ss = Range("A" & Rows.Count).End(xlUp).Row 'yazdirilacak Son satir
sk = Range("IV11").End(xlToLeft).Column 'yazdirilacak Son sütun

sh.PageSetup.PrintArea = Cells(1, 1).Address & ":" & Cells(ss, sk).Address 'toplam yazdırma alanı
sh.HPageBreaks.Add Before:=Range("A" & 36) 'ilk sayfanın sonu belirlenir
sh.PageSetup.PrintTitleRows = "$1:$10" '1 ve 10 satirlar yinelensin

If ss < 36 Then: Exit Sub 'Eğer yazdırılacak alan "1" sayfadan çoksa
ssayisi = (ss - 35) / 25 'ilk sayfadan sonra kaç sayfa var? Rasyonel sayi
ssayisi2 = (ss - 35) \ 25 'bu da tamsayi olarak sayfa sayisini verir-Tamsayi

If ssayisi - ssayisi2 > 0 Then 'tam 25 satırlık sayfaların en sonunda 25'ten az satırlı sayfa varmı? Varsa
For i = 1 To ssayisi2 + 1
sh.HPageBreaks.Add Before:=Range("A35").Offset(i * 25 + 1, 0) 'herbir sayfa için sayfasonu ekle
Next i
End If
End Sub

İyi çalışmalar

 

[ASMET67]

Öncelikle cevaplarınız için teşekkür ederim.
Ortadan kaybolduğum yok ama. Çok yoğun olduğum için vede forumda cevablandığına dair mesaj gelmediği için foruma girme fırsatı bulamadım.
Suan yeni gire biliyorum.
Kodları deneyip olumlu veya olumsuz bir dönüş yacağım.
Herkese tekrar teşekkürler.