yazdırma kodunda düzenleme

[gedavet]

hayırlı günler iyi çalışmalar


aşağıda bir makro var dosyanın adı DERNEK HESABI kod yazdırma işlemi yaptırıyor ancak dosyanın adı değişirse yazdırmıyor

dosyanın adı ne olursa olsun yazdırması lazım nasıl düzenleriz yardımcı olabilirmisiniz


örnek kod

Sub YAZDIR2_Tıklat()
'
If MsgBox(" E M İ N M İ S İ N İ Z", vbYesNo) = vbNo Then Exit Sub
'
Sheets("ŞUBAT GELİR").Select
Application.Run "'DERNEK HESABI.xlsm'!OtomatikŞekilS1_Tıklat"
Sheets("ŞUBAT GİDER").Select
Application.Run "'DERNEK HESABI.xlsm'!OtomatikŞekilS1_Tıklat"
Sheets("ŞUBAT GİDER GELİR").Select
'
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[Muzaffer Ali]

Dosya isimlerini silerek deneyin. Aşağıdaki gibi

Sub YAZDIR2_Tıklat()
'
If MsgBox(" E M İ N M İ S İ N İ Z", vbYesNo) = vbNo Then Exit Sub
'
Sheets("ŞUBAT GELİR").Select
Application.Run "OtomatikŞekilS1_Tıklat"
Sheets("ŞUBAT GİDER").Select
Application.Run "OtomatikŞekilS1_Tıklat"
Sheets("ŞUBAT GİDER GELİR").Select
'
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[gedavet]

ilginiz için teşekkür ederim