Yazdırırken uyarı verme

[burak80li]

Arkadaşlar ekteki gibi basit birşey yapmak istiyorum. Yazdır butonuna tıklayınca bir uyarı gelsin ve o sayfanın yedeklenme uyarısı yapsın. Yapmaya çalıştım ama sadece uyarı geliyor sayfayı yazmıyor. Ben her yazdırma butonuna basınca o uyarının gelmesini istiyorum.

İşyerinde sayfa üzerinde değişiklikler yaptıktan sonra her değişikligi bilgisayara kaydettigimiz bir dosya var. Bu sayfayı yazdırıyoruz da mutlaka.
Bu dosyayı göndermek istemedim. Sanırım anlayışla karşılarsınız. S
ık sık kayıt edilme unutulduğu için böyle bir yöntem aklıma geldi. Başka bir yöntem tavsiye ederseniz onu da uygulayabilirm..

 

[ersoyalan]

Arkadaşım kodu denermisin


Sub mesaj()
MsgBox ("lütfen yedeklemeyi unutmayın")
If MsgBox("Sayfayı yazdırmak için evet ön izleme için hayıra basınız", vbYesNo + vbInformation) = vbYes Then
ActiveSheet.PrintOut
Else
ActiveSheet.PrintPreview
End If
End Sub

 

[burak80li]

Hemen bakıyorum......

........

Teşekkür ederim ama çalışmadı ya. İki uyarı da geliyor lakin evete bastığımda yazmoyr.
Ayrıca ikinci uyarının gelmesine gerek yok sanırım. O msgbox sadece hatırlatma amaçlı olsa yeter galiba.

 

[Ayhan Ercan]

Merhaba

Sub yaz()
MsgBox ("lütfen yedeklemeyi unutmayın")
ActiveSheet.PrintOut
End Sub

 

[ersoyalan]

Bende çalışıyordu...

Ayhan hocam işi halletmiş...

 

[burak80li]

Arkadaşlar ikinize de teşekkür ederim. Ama yine aynı şeyi yapıyor. Uyarı geliyor yazma işlemi yapılmıoyor. Yazıcımda problem yok. Normalde yazdırabiliyorum yani. Sadece yazdırma komutunu yapan makro çalışıyor mesela..

 

[Ayhan Ercan]

Merhaba

Yazdırma işleminin kodu PrintOut dur.

Yukarda verilen kodun çalışması gerek. Hata alındığına göre çalışmanızın diğer modül ve kodlarında bunu engelleyen bir durum olmalı...

 

[burak80li]

Merhaba

Yazdırma işleminin kodu PrintOut dur.

Yukarda verilen kodun çalışması gerek. Hata alındığına göre çalışmanızın diğer modül ve kodlarında bunu engelleyen bir durum olmalı...

Hocam çalışmamda başka bilgi veya makro mevcut değil şimdilik. Boş bir excel sayfasında deneme yapıyorum sadece.

 

[ersoyalan]

Ayhan hocamın verdiği kodu bende denedim çalışıyor..Ayhan hocama katılıyorum kullandığınız diğer kodlardan kaynaklanabilir..

 

[Ayhan Ercan]

İlk mesajınızda yollamış olduğunuz ek dosyada iki ayrı modül vardı.
O dosyada deneme yapıyorsanız sonuca gidemeyebilirsiniz...

Ek dosyayı incelermisiniz...

 

[burak80li]

Ekteki dosyayı indirdim ve çalıştı. Ama sizinkinden hiçbir farkı yok benim kodun. tek farkı sizinkinde private olması. Bir de ben düğmeyi direk excel formlarından oluşturup ona makro atamıştım. Acaba bundan mı kaynaklanıyor. Her neyse. Neticede çalışıyor böyle. Çok teşekkür ederim arkadaşlar elinize sağlık. İnşaallah birgün benim de size yararım dokunur.

 

[burak80li]

Sizin yaptığınız şekliyle çalışıyor. Fakat ben mesela menu butonu ekleyip ona makro atadığımda çalışmıyor. Bunun sebebini bir türlü anlamadım.

 

[ersoyalan]

dosya ekleyin..

 

[burak80li]

dosya

Gönderdim hocam bi incelermisiniz

 

[ersoyalan]

Arkadaşımm erhaba,

Dosyanızdaki kodlar düzenli bir şekilde çalışıyor fakat siz dosyanızda yazdırma alanını belirtmediğiniz için makro çalışmıyor..Aslında çalışıyor fakat nereyi yazdıracağını belirtmediğiniz için yazma başlamıyor..

 

[burak80li]

inceliyorum hocam..
.........

Hocam işte bu ya. Çok teşekkür ederim. sayfa yapısından yazdırma alanını belirtince çalıştı. Ben sanıyordum ki sadece otomatik ilk sayfayı yazar...
Çok teşekkür ettim ya.

 

[İsmail Küçükşengün]

Merhaba;

Yukarıdaki örneği, Butona tıklayınca önizleme de yapılacak şekilde (seçmeli olarak) düzenleyebilir misiniz?

 

[ersoyalan]

2.mesajımdaki kodu kendinize uyarlıyabilirsiniz...
Syg

 

[ersoyalan]

burak80li, Güle güle kullanın...

İyi çalışmalar.

 

[İsmail Küçükşengün]

2.mesajımdaki kodu kendinize uyarlıyabilirsiniz...
Syg

Maalesef. Ne önizleme, ne de yazdırma yapmıyor. Zaten o yüzden rica etmiştim.

Bir örnek üzerinde yapabiliseniz sevinirim.