XP De Çalışan PDF 'ye Çevir Makrosu

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki kod Office 7 de çalışıyor. Bu kodun XP de çalışması nasıl olması gerektiği hakkında bilgisi olan var mı ? Dosya ekte.

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

 

[Leoncio]

Merhaba,

Bu kodların office 7'de çalıştığına emin misiniz?