Yazdır'dan sonra kod çalıştırma

[EKREM1661]

Çok Değerli Forum Üyeleri..! Şöyle bir şey olabilir mi.?

Yazdır Diyalog kutusunda(ctrl+p), yazdırma adedini belirleyip, "Enter" veya "Tamam" dedikten sonra; her hangi bir kodu çalıştırma eylemi..

 

[Orion1]

Ekli dosyayı inceleyiniz.
ctrl+j tuşlarına basınız.

 

[EKREM1661]

Sn.Evren hocam..! Ben şöyle bir şey tasarlamıştım.. Yazdır diyalog kutusunu çağırıyorum (Application.Dialogs(xlDialogPrint).Show).. Sonra yazdırılacak sayfa adedini belirleyip yazdırma işlemi gerçekleştikten sonra, 39:42 satır aralığının gizlenmesi gerekiyor..

Yani bu dediğim satır aralığındaki veriler (dip not), sadece yazdırırken lazım..

Bu dip notu; "Baskı ön izleme-Ayarlar-Özel alt bilgi" bölümüne yerleştirdim, fakat bu sadece A4 ebatlı kağıtlar için kullanışlı oluyor.. Daha kısa A5 boyutlu kağıtlar için de yukarıda anlattığım şekil aklıma geldi..

(sayfa kenar boşluklarını, her defasında makro ile açma kapama işi ise, biraz fazla işlem oluyor gibi gözüküyor)

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
Rows("39:42").EntireRow.Hidden = True
Application.Dialogs(xlDialogPrint).Show
Rows("39:42").EntireRow.Hidden = False
End Sub

 

[EKREM1661]

Saygıdeğer Sayın Seyit hocam..! Sayenizde amacım gerçekleşti.. Hem Sizlere, hem de ilgilenen Sn Evren hocama teşekkürlerimi ifade ediyorum.. Hayırlı çalışmalar ve muvaffakiyetler dileğiyle..

 

[EKREM1661]

Hayır arkadaşlar olmadı, asıl konuyu ifade etmeyi unutmuşum.. Sayfada birleştirilmiş satırda metin dizesi kullanıyorum.. Bu metin boyutu zaman zaman değişince satır yüksekliğide değişiyor. O zaman da dip not kayma yapıyor..

Buraya çok farklı bir hile düşünmek gerekiyor. Çünkü sayfa boyu devamlı değişken..

 

[EKREM1661]

hayır, hayır bu olacak iş değil.. Excel kalkıp, kağıt boyutunu da ölçecek değil ya.. Meşgul ettiğim için özür beyan ederim..