pdf olarak kaydetme yardım

[sosorry]

iyi çalışmalar,
ekteki dosyada çalışma sayfasında 2 adet düğme ekledim. ancak istediğim düğmelerden 1 tanesi çalışma sayfasını, sayfa adı ile masaüstüne pdf olarak kaydedecek, diğeri ise sayfayı kopyalayacak. bu konu için yardımcı olabilir misiniz?

 

[Mdemir63]

Selamlar

PDF için ekteki dosyayı inceleyin.

iyi çalışmalar

 

[Korhan Ayhan]

Aşağıdaki kodları deneyiniz.

Sub PDF_KAYDET()
    Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    Dosya_Adi = ActiveSheet.Name
    ChDir Yol
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Yol & "\" & Dosya_Adi & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Sub SAYFA_KOPYALA()
    Sayfa_Adi = Application.InputBox("Sayfa adı giriniz!", "SAYFA ADI TANIMLAMA")
    If Sayfa_Adi = False Or Sayfa_Adi = "" Then Exit Sub
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Sayfa_Adi
    ActiveSheet.Range("B7:I16").ClearContents
    ActiveSheet.Range("C20:E23").ClearContents
End Sub

 

[Orion1]

excel 2003 te yapılamıyor diye biliyorum,yanlış hatırlamıyorsam.