yazdır tuşuna basıldığında bir uyarı yazısı ekrana gelebilir mi?

[maed2312]

Değerli arkadaşlar;
yazıcıdan çıktı alınmak istendiğinde, yapılan işlemlerin tekrar kontrol edilmesi gerektiğini yazan bi kutu ekrana gelebilir mi? teşekkür ederim.

 

[Recep İpek]

Bildiğim kadarıyla bu işlem sadece makro ile yapabilirsiniz.

Aşağıdaki kodu çalışma kitabınızın ThisWorkbook bölümüne kopyalayın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "İşlemi Kontrol Ediniz!!!"
End Sub

 

[maed2312]

ripek çok güzel oldu.ama işlemi kontrol ediniz.yazdırmaya devam edilsin mi? diye bir onay yeri daha ekleyebilirmiyiz.yani yazdırmadan vazgeçebilmek için

 

[Recep İpek]

O zaman kodlarınızı aşağıdaki şekilde değiştiriniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("İşlemi Tekrar Kontrol Ediniz!!!", vbDefaultButton1 + vbYesNo, "UYARI") = vbNo Then
Cancel = True
Exit Sub
End If
End Sub

 

[maed2312]

harika oldu.allah razı olsun.kendi çapımda bir çalışma hazırladım.bunda seninde katkın oldu(diğer arkadaşlar gibi).hakkınızı nasıl öderim bilemiyorum.

 

[alaybeyli]

Ripek kardeş, birde exel de 10 sayfa var, birinci sayfada bir makro oluşturup bir tuşla bütün sayfaları yazdırabilirmiyiz?

 

[Seyit Tiken]

Bu kodu deneyiniz.

Sub Düğme1_Tıklat()
For a = 1 To 10
Sheets(a).PrintOut
Next
End Sub

 

[alaybeyli]

Çok teşekkür ederim. Sizce kolay bir kod ama, benim çok işime yaradı. İşlerin rast gelsin...

 

[Recep İpek]

Sn.Seyit Tiken cevap yazmış ama alternatif olarak,

Sub Yazdir()
Dim a, s As Variant
s = 0
For Each a In Worksheets
s = s + 1
Sheets(s).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
MsgBox "Bitti"
End Sub

 

[unur]

Bildiğim kadarıyla bu işlem sadece makro ile yapabilirsiniz.

Aşağıdaki kodu çalışma kitabınızın ThisWorkbook bölümüne kopyalayın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "İşlemi Kontrol Ediniz!!!"
End Sub

Arkadaşlar aradım ancak en yakın başlık bunu buldum.Başka başlık açmak istemedim.
Bende yazcıya belgeyi gönderdiğimde öncelikle "İcmal sayfasındaki h49 hücresi ile özet_bordro sayfasındaki o23 hücresini karşılaştırmasını istiyorum.
Bu iki hücredeki rakamlar birbirini tutmuyorsa yazıcıya göndermesin icmal ile bordro birbirini tutmuyor diyerek uyarı vermesini istiyorum.
Teşekkürler.

 

[unur]

Bu konuda bir fikri olan arkadaş yokmu?

 

[fedeal]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
a = Sheets("icmal").Range("h49")
b = Sheets("özet bordro").Range("o23")
If a = b Then
Else
MsgBox "İşlemi Kontrol Ediniz!!!"
Cancel = True
End If
End Sub

iyi çalışmalar.

 

[unur]

Teşekkürler, elinize sağlık.

 

[istanbulcahan]

A (MEHMET ZURNA) - B (MUSTAFA ÖZER ) VE C (TURAN TUNA)-MUSTAFA İLE tekler maçı yapıyorlar. Dosyada 2 kişinin isimlerinin karşısına 1 yazdır tuşu olmalı ve bu tuş ile ornek.xls dosyası bu dosyada maç kağıdı var ve buna isimleri otomatikman yazdıracak ve bu tuş işlemden sonra kendini imha edecek. Bunu yapabailirmiyiz.

 

[baarslan]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If sheets("icmal").range("h49").value<>sheets("özet_bordro").range("o23").value then
Msgbox "icmal ile bordro birbirini tutmuyor."
Cancel = True
End If
End Sub

 

[unur]

Arkadaşlar
Yukarıdaki kodu icmal ve özet bordro sayfalarındaki hücreleri değilde aktif olan sayfada iki hücrenin kıyaslamasını yapmak için kodu nasıl değiştirirsek uygun olur?Örn:aynı sayfadaki A5 hücresi ile B8 hücresi eşitse yazıcıya göndersin aksi taktirde uyarı versin.

Teşekkürler.

 

[peleryn]

Merhaba;

Aşağıdaki şekilde bir deneyin..

Private Sub Workbook_BeforePrint(Cancel As Boolean)
a = [a5]
b = [b8]
If a = b Then
Else
MsgBox "İşlemi Kontrol Ediniz!!!"
Cancel = True
End If
End Sub

 

[unur]

Çok Teşekkürler.Elinize sağlık.

 

[peleryn]

Son yaptığım yardımı hemen herkesten alabilirdiniz.Bu konuda sorununuzu çözen gerçek yardımı yapan kodun içine Cancel=True satırını yazan sayın Fedeal'dir.İyi çalışmalar dilerim.