yazdırmadan önce uyarma

[Crazy Drake]

Müracaat formunu doldurmak için bir belge oluşturdum örnek olarak komut butonuna bastığımda aşağı koddaki kopyalamaları yapacak ve ardından uyarı yazısı çıkacak ve "Yazıcıya müracaat formunu yerleştirin ve devama basın" yazacak
kopyalamayı ve yazdırmayı bu kodlarla hallettim ama uyarının içinden çıkamadım yardımcı olursanız sevinirim örnek kod aşağıda

Sub Muracaat()
Sheets("Sayfa2").Range("c1").Value = Range("a1").Value
Sheets("Sayfa2").Range("c2").Value = Range("a2").Value
---Burada uyaracak devam dersem işleme devam edecek---
Sayfa2.PrintOut
End Sub

 

[algil]

Merhaba
Bu kod ile yazdırılacak belgeyi görüntülersiniz. isterseniz yazdırır isterseniz iptal edersiniz.

Sub Muracaat()
Sheets("Sayfa2").Range("c1").Value = Range("a1").Value
Sheets("Sayfa2").Range("c2").Value = Range("a2").Value
Sayfa2.PrintPreview
End Sub

 

[Bekci_32]

Sub Muracaat()
On Error Resume Next
Sheets("Sayfa2").Range("c1").Value = Range("a1").Value
Sheets("Sayfa2").Range("c2").Value = Range("a2").Value
If MsgBox("Yazdırmak İstiyor musunuz? ?", vbQuestion + vbYesNo, "Dikkat") = vbNo Then Exit Sub
Sayfa2.PrintOut
End Sub
bu şekilde denedinizmi?

 

[metinozlu]

Sub Muracaat()
Dim cevap As Variant
Sheets("Sayfa2").Range("c1").Value = Range("a1").Value
Sheets("Sayfa2").Range("c2").Value = Range("a2").Value
cevap = MsgBox("Yazıcıya müracaat formunu yerleştirin ve evete basın" , vbYesNo)
If cevap = 6 Then

---Burada uyaracak devam dersem işleme devam edecek---
Sayfa2.PrintOut
End If
If cevap = 7 Then
Exit Sub

End Sub

 

[Crazy Drake]

tam aradığım buydu çok teşekkürler. Bu ne hız

 

[Crazy Drake]

Butonlara evet hayır yerine başka birşey yazabilirmiyiz

 

[metinozlu]

soruyu değiştirebiliriz
Sub Muracaat()
Dim cevap As Variant
Sheets("Sayfa2").Range("c1").Value = Range("a1").Value
Sheets("Sayfa2").Range("c2").Value = Range("a2").Value
cevap = MsgBox("Yazıcıya müracaat formunu yerleştirdiniz mi?" , vbYesNo)
If cevap = 6 Then

---Burada uyaracak devam dersem işleme devam edecek---
Sayfa2.PrintOut
End If
If cevap = 7 Then
Exit Sub

 

[Crazy Drake]

hayır dediğimiz zaman işlemi bitirmesi yerine başka bir makroyu çalıştırmasını nasıl yaparız

 

[metinozlu]

soruyu değiştirebiliriz
Sub Muracaat()
Dim cevap As Variant
Sheets("Sayfa2").Range("c1").Value = Range("a1").Value
Sheets("Sayfa2").Range("c2").Value = Range("a2").Value
cevap = MsgBox("Yazıcıya müracaat formunu yerleştirdiniz mi?" , vbYesNo)
If cevap = 6 Then

---Burada uyaracak devam dersem işleme devam edecek---
Sayfa2.PrintOut
End If
If cevap = 7 Then
'hayır cevabında çalışacak makroyu buraya yazınız."


Exit Sub