Yazdırırken uyarı ve tarih belirleme

[SeSi]

Merhaba,

Yazdır komutu verince, "Liste tarihi ne olacak?" şeklinde uyarı çıkması ve userform üzerinde belirlenen tarihin (gg.aa.yyyy) aktif sayfanın F4 hücresine yazıldıktan sonra sayfanın yazıcıya gönderilmesini istiyorum.

Makro kodlarını nasıl yazmalıyım?

Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu thisworkbook sayfasına kopyalayın. Yazdırma butonuna bastığınızda kod çalışacaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
sor = InputBox("Liste tarihi ne olacak?", "UYARI")
[f4] = Format(sor, "dd.mm.yyyy")
End Sub

 

[SeSi]

Sayın leventm,

Teşekkürler.

Bunu tüm çalışma kitabında değilde sadece bir sayfada uygulamak istiyorum. Kodları Workbook yerine Worksheet'e yazdım ama çalışmadı.

 

[Levent Menteşoğlu]

Yapmanız gereken kod içine sayfaya göre işlem yapmasını sağlayan bir satır eklemektir. Örneğin sadece sayfa1 için geçerli olacaksa aşağıdaki gibi bir ilave yapılabilir.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[B][COLOR=blue]if activesheet.name<>"sayfa1" then exit sub[/COLOR][/B]
sor = InputBox("Liste tarihi ne olacak?", "UYARI")
[f4] = Format(sor, "dd.mm.yyyy")
End Sub

 

[SeSi]

İlave olarak; "cansel" tıkladığımızda yazdırma işlemini pital edebilir miyiz?

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

[LEFT]Private Sub Workbook_BeforePrint(Cancel As Boolean)
[COLOR=black]if activesheet.name<>"sayfa1" then exit sub
[/COLOR]sor = InputBox("Liste tarihi ne olacak?", "UYARI")
[B][COLOR=blue]if sor="" then cancel=true
[/COLOR][/B][f4] = Format(sor, "dd.mm.yyyy")
End Sub[/LEFT]

 

[SeSi]

Saygı ve teşekkürlerimi sunarım.