muratgunay48
Altın Üye
- Katılım
- 10 Şubat 2010
- Mesajlar
- 1,182
- Excel Vers. ve Dili
- Office 365 - Türkçe (64 bit)
- Altın Üyelik Bitiş Tarihi
- 31-01-2025
Evet hocam oluşturuyor.Bu kodu ofis 2007 yüklü bilgisayarda bir çalıştır sonucu buraya yaz pdf dosyası oluşturuyormu
Kod:Sub pdfaktar() Yol = ThisWorkbook.Path Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True MsgBox "İşlem Tamam", vbInformation, " U Y A R I " End Sub