Soru BeforePrint Tanımlama

hlojan

Altın Üye
Katılım
15 Mayıs 2015
Mesajlar
422
Excel Vers. ve Dili
Microsoft Office 2007
Merhaba

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

Kod:
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ı?

Kod:
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
8,880
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
Kod:
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
.
 
Üst