pdf Kaydetme Sorunu

[BYSERTTAS]

Selamlar
Aşağıdaki kod ile Ekcel Dosyası kaydediyorum. Ayrıca birde pdf olarak kaydetmem gerekiyor. Bu kodu Aynı şekilde Pdf Kaydetmesi için nasıl uyaralarım yardımcı olursanız minnettar kalırım. şimdiden teşekkürler.
Kullandığım kod:
If G_YIL = "" Or AYLAR = "" Then

BilgiMesajı ("Dosya Yılı Yada Dosya Ay'ı Boş Olamaz...")
Exit Sub
Else

Application.DisplayAlerts = False
Dim sayfa As Worksheet, kitap As Workbook
For Each sayfa In ThisWorkbook.Sheets

Select Case sayfa.Name

Case "Disket", "BankaListesi", "Puantaj", "İsimListesi", "TekBordro" 'işlem yapılacak sayfalar
Set kitap = Workbooks.Add
sayfa.Copy kitap.Sheets(1)
kitap.SaveAs ThisWorkbook.Path & "\EXCELLER" & "\" & G_YIL & " Yılı" & " " & AYLAR & " " & " " & " Ayı " & sayfa.Name & ".xls", xlExcel8
kitap.Close False

End Select

Next sayfa
Set sayfa = Nothing
Application.DisplayAlerts = True

MsgBox "Excell Dosyaları Hazırlandı....", vbInformation, "BİLGİ"
End If
End Sub

 

[dEdE]

Merhaba,
kitap.Close False satırından önce aşağıdaki satırları ekleyerek dener misiniz?

Yol_Dosya_Adı = "C:\Users\ozdem\Desktop\Aaaa.pdf" 'Kendinize göre değiştiriniz.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol_Dosya_Adı

 

[BYSERTTAS]

Merhaba,
kitap.Close False satırından önce aşağıdaki satırları ekleyerek dener misiniz?

Yol_Dosya_Adı = "C:\Users\ozdem\Desktop\Aaaa.pdf" 'Kendinize göre değiştiriniz.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol_Dosya_Adı

Çok Teşekkürler İşimi gördü bu kod Hürmetler