Soru BeforePrint Tanımlama

[hlojan]

Merhaba

Print eventa olay eklemek için aşağıdaki kodu kullanıyoruz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 Örnek Kod
End Sub

Fakat hem yazdırmak hem Pdf kaydetmek BeforePrint eventı aktif hala getiriyor.

Bunu ayırmanın yöntemi var mı?

Private Sub Workbook_BeforePrint(Cancel As Boolean)

if "PDFsave" then


Pdf Kaydet KOdları

else

Print Kodları

End if
End Sub

Yardımlarınızı bekliyorum

 

[Haluk]

Dim savePDF As Boolean
'
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If savePDF = True Then
        Exit Sub
    Else
    '   Diger kodlar
    End If
End Sub
'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    savePDF = True
End Sub

.