Run Time Error : 438 (PDF)

[baydeniro]

Merhaba arkadaşlar. Daha önce normal çalışan kod birden çalışmamaya başladı. Başka bilgisayarda çalışıyor üstelik. Dosya ekte, kod aşağıda :

Sub PDF_kaydet()

dosya_adi = ActiveWorkbook.Name
Range("A1:AA59").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & dosya_adi, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

 

[baydeniro]

Microsoft Excel 12.0 Object Library Vba ve xltypePDF sorunu hakkında bilgisi olan var mı arkadaşlar ?

 

[baydeniro]

Microsoft Excel 12.0 Object Library Vba ve xltypePDF sorunu hakkında bilgisi olan var mı arkadaşlar ?