Sayfa yazdırma

[6729626]

Bir formum var; ve bu formun bazı veriler sabit yazdırmak üzere(a116 ve a4557), a1744 satırlarında otomatik sıra numaralı veriler var. Sıra numarası a sütününda, bu satırlarda en son veri kaç da ise bu veriler ve sabit yazdırılacak verilerin yazdır bütunuyla yazdırmak istiyorum. Yardımcı olan arkadaşlara şimdiden teşekkür ederim. Kolay gelsin

 

[melphisto]

Bir örnek verirmisiniz, pek açıklayıcı olmamış

 

[6729626]

Yazdır sorunu

Sorunumu çözdüm teşekkürler

 

[cdroy1]

benimde aynı sorunum var nasıl yaptığını söylermisin

 

[6729626]

Ofis 2007 kullanıyorum

Formu tamamen göndereyim diyecem ama ofis 2007 kullanıyorum ve sanıyorum 2003 te açılmıyor Onun yerine size makroları göndersem herhalde kendinize göre uyarlarsınız.

 

[6729626]

Makrolar

Sub yazdir()
ActiveSheet.Unprotect

kodgentr = [d44].End(xlUp).Row
Rows(kodgentr + 1 & ":" & 44).EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = "A157"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows(kodgentr + 1 & ":" & 44).EntireRow.Hidden = False



ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub