Paraf bilgisi yazdırma

[rustuuslu]

Sayın Hocalarım. ekli dosyada 1.P.A.G komisyon olur sayfasında 47 satırda açıklama vardır.Şimdiden teşekkür ederim

 

[Ömer]

Merhaba,

Sorunuzu tam olarak anlayamadım,

Sub Yazdır()
ActiveSheet.PageSetup.PrintArea = "$A$4:$I$52"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = "$A$4:$I$46"
ActiveSheet.PrintOut
End Sub

İstediğiniz bu mu?
.

 

[rustuuslu]

sayın Hocam sayfada yazdır butonu var.
1.yazdırma işleminde kopya sayısını 1 dediğimde 47.satırdaki paraf bilgisini yazdıracak
2.yazdırma işleminde kopya sayısını 1 dediğimde 47.satırdaki paraf bilgisini yazdırmayacak

hocam bu işlem bahsi geçer sayfaya 47.satır gizle ve göster butonu ilede yapılabilir gibi ama kodu bilmiyorum

 

[Ömer]

Kodu denediniz mi?

.

 

[rustuuslu]

olmadı hocam

 

[Ömer]

Rüştü bey, ben denedim oluyor.

Butona basınca ilk önce $A$4:$I$52 bu aralığı yazıyor, daha sonra $A$4:$I$46 aralığını yazıyor. 2. yazılanda son aralık I46 olduğu için sizin belirtiğiniz kısım yazdırılmıyor. İstediğiniz bu değilmiydi.

.

 

[parametre]

sayın Hocam sayfada yazdır butonu var.
1.yazdırma işleminde kopya sayısını 1 dediğimde 47.satırdaki paraf bilgisini yazdıracak
2.yazdırma işleminde kopya sayısını 1 dediğimde 47.satırdaki paraf bilgisini yazdırmayacak

hocam bu işlem bahsi geçer sayfaya 47.satır gizle ve göster butonu ilede yapılabilir gibi ama kodu bilmiyorum

Sub Yazdır()
ActiveSheet.PageSetup.PrintArea = "$A$4:$I$52"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = "$A$4:$I$46"
ActiveSheet.PrintOut
End Sub

kırmızı olan yerlere yazdırmasını istediğin satırları yazacaksınız. sonuc alırsınız

 

[rustuuslu]

hocam dosyadaki yazdır butonunu kodu yazıp yüklermisiniz? ben niye yapamıyorum hala anlamadım

 

[Ömer]

Herzaman 2 suret yazacağınız düşünülmüştür. Kodlarınızı aşağıdaki gibi değiştiriniz..

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$52"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$46"
ActiveSheet.PrintOut
End Sub

.

 

[rustuuslu]

Sağol hocam bu kodlar oldu.Teşekkür ederim.ilgili dosyada çok değişikler olacak bazı konularda eğer form da bulamazsam sizden yardım isterim yine.