Yazdırma İşlemi

[hlojan]

Merhabalar.

Bir sertifika formatım var excel halinde.

Kaydederken Xlsm ve Pdf olarak çoğaltarak kopya kaydediyorum

Ben her Kopyamı yazdırıyorum

Klasöre girip toplu seçip yazdır diyorum.

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
if Range("a1") = "Yazdırıldı" Then
Soru  = msgbox (" Yazdırılmış Sertifika. Yazdırmak istiyormusunuz ? ",Vbyesno)

if Soru = Yes then

Yazdır

else

Yazdırma

end if

Else

Yazdır

End if

End Sub

Böyle bir kod istiyorum. Yazdırma işlemini durdurmak istiyorum

Ama Başta bahsettiğim gibi pdf kaydettiğim için oda print event olduğundan pdf print yaparken atlaması

Yardımlarınızı bekliyorum

Anlaşılmayan yerleri tekrar anlatabilirim

 

[hlojan]

Ana amaç yazdırdığım dosyayı bir daha yazdırmamak. Yada bir excel dosyasını yazdırdığımda yazdırdığıma dair iz bırakmak. Örnek : İsmi değişsin ( Yazdırıldı ). xls gibi
Yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("A1") = "Yazdırıldı" Then
        Cancel = True
    Else
        Range("A1") = "Yazdırıldı"
    End If
End Sub

 

[hlojan]

Deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("A1") = "Yazdırıldı" Then
        Cancel = True
    Else
        Range("A1") = "Yazdırıldı"
    End If
End Sub

Cancel = True çalışmıyor.

Yazdırma gerçekleşiyor.

Masaüstünde excel dosyasını sağ tıklayıp yazdır diyorum

Ama yazdırmaya devam ediyor. Cancel = true durdurmuyor

 

[Korhan Ayhan]

Ben şimdi denedim ve olumlu sonuç alıyorum.

Bu işlemin olabilmesi için dosya açılışında makroların etkinleşmesi gerekiyor.