Belli sütuna odaklı olarak yazdırma

Katılım
20 Şubat 2006
Mesajlar
259
Arkadaşlar aşağıdaki komutu değiştiripte a1ile w500 arası, C sütunun en son dolu olan hücresine kadar yazdırma fonksiyonu sizce nasıldır.

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$a$1:$W$" & [a65536].End(3).Row
ActiveSheet.PrintOut
End Sub
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Sn.gecemavisi
Aşağıdaki makroyu inceleyin. İşinize yararsa kullanın....

Sub Yaz()
ActiveSheet.PageSetup.PrintTitleRows = "$1:$5"
ActiveSheet.PageSetup.PrintArea = "$A$1:$W$65536"
ActiveSheet.PrintOut From:=1, To[A1].Value, Copies:=1, preview:=False, Collate:=True
End Sub

Birinci satırda ki $1:$5 Her sayfada yanilenecek satır sayısı.
Eğer her sayfada yenilenecek satırınız yoksa silin.
Üçüncü satırda ki A1 yazdırılacak sayfa sayısı.
 
Katılım
6 Şubat 2005
Mesajlar
1,467
say ile başlayan satırı değiştirdim
Private Sub CommandButton1_Click()
say = Range("c1").CurrentRegion.Rows.Count
ActiveSheet.PageSetup.PrintArea = "A1:W" & say
ActiveSheet.PrintOut
End Sub
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Eksik yazdım ;
Aşağıdaki formülü A1 hücresine kopyalayın:

=YUKARIYUVARLA((EĞERSAY(W1:W65536;">0")+5)/60;0)

W en son verinin olduğu sütun. Sizde hangi sütunsa o olacak. +5 Başlık satırı için ayrılan kısım, /60 bir sayfaya yazdırmak istediğiniz satır sayısı.
 
Katılım
6 Şubat 2005
Mesajlar
1,467
Kusura bakma iyi okumadan acele ile cevap vermişim
say ile başlayan satırı aşağıdaki gibi değiştirirsen
say = Range("c1").End(xlDown).Row
 
Katılım
20 Şubat 2006
Mesajlar
259
Buna benzer b'r sey olacak ama a b c sutununda full formul var. onlarin icinde veri bulunmus yani dageri bos olmayan yere kadar olan kismi yazdiracak.
Sizce bu is nasil olur
saygilarimla...
 
Katılım
6 Şubat 2005
Mesajlar
1,467
gecemavisi' Alıntı:
Buna benzer b'r sey olacak ama a b c sutununda full formul var. onlarin icinde veri bulunmus yani dageri bos olmayan yere kadar olan kismi yazdiracak.
Sizce bu is nasil olur
saygilarimla...
Küçük "ı"ları "i" yapmaktan vazgeçersen iyi olacak, kod yazarken yaparsın bu işi.
Formül sonuçları ne veriyor, sıfırmı veriyor.
a.b ve c sütunlarından herhangi biri dolu olursa o kayıta kadarmı yazdırsın.
 
Katılım
20 Şubat 2006
Mesajlar
259
Kusura bakma Sn Omer Ceri.
Yurt dışında Türkçe klavye olmadığından internet kafede öyle tesadüf geldi. Formül sonuçları sıfır veriyor. Boş veride veriyor.
 
Katılım
6 Şubat 2005
Mesajlar
1,467
Bir örnek göndersen daha çabuk haledilebilir.
 
Üst