Sorgu için arama sonuçları: xlTypePDF

Teşekkür ederim, Dosya adını çekiyor şimdi, Sadece dosya adının yanında uzantısı da geliyor "Dosyaadi.xlsm-Sayfa-adı.PDF" xlsm dosya türünü yazmasını nasıl engelleyebiliriz ?

...1) End With konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" adi = s1.Range("D3") & " EĞİTİM SERTİFİKASI " & s1.Range("E20") uzanti = ".pdf" s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti End If Next i...

...Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name &"_"& Sayfa.Name & ".pdf", _ Quality:=xlQualityStandard...

...+ 1 Sheets(Array("Hakediş Özeti", "Hakediş İcmali", "Hakediş Raporu")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True...

...Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _...

...& "\" adi = S1.Range("L9") & " 7 NOKTA VE ZULA - DUR-KALK FORMU (" & S1.Range("L11") & " - " & S1.Range("AE11") & ") " & S1.Range("L12") uzanti = ".pdf" S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti ActiveSheet.Protect

Deneyiniz. ActiveSheet.Range("A1:D30").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Environ("UserProfile") & "\Desktop\" & Range("A1").Value & " - " & Range("B1").Value & ".pdf" , _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...

Size zahmet olmayacaksa bana iki hücreden alması gerekiyor. 1 Fatura kodu, 2 Müşteri adı. Bunuda yaparsanız çok sevinirim

...olmadan ilgili hücreye dosya adını yazarsanız sorun çıkmadan kullanabilirsiniz. ActiveSheet.Range("A1:D30").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Environ("UserProfile") & "\Desktop\" & Range("A1").Value & ".pdf" , _ Quality:=xlQualityStandard, _...

Ayhan bey Bu koda bir de her pdf olarak kayd etdiyinde pdf dosyasının ismini belli bir hücredeki textden almasınıda ekleye bilirmisiniz?

...> 0 And Bitis_No > 0 Then For X = Baslangic_No To Bitis_No S1.Range("H4") = X S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & Application.PathSeparator & "Belge " & X & ".pdf", _ Quality:=xlQualityStandard...

...dosyayolu = ThisWorkbook.Path & "\" With Sheets("pdf").Range(Cells(1, "a"), Cells(X, "g")) .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=dosyayolu & "\" & dosyaadi & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...

...Each ogr In list Range("F7").Value = ogr pdfName = folderName & ogr & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ pdfName, Quality:=xlQualityStandard, _...

Merhaba, Tüm bilgisayarlarda Masa üstüne yyy.pdf olarak kaydeder. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/yyy.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

Çok teşekkür ederim ama S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Musteri & " " & S1.Range("R1").Value & " - Mutabakat Mektubu.pdf", OpenAfterPublish:=False bu şekilde girdiğim zaman hata verdi

Adem hocam , çok teşekkür ederim iyi günler dilerim,

...As String Set s1 = Sayfa1 'çıktı alınacak sertifika sayfası konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" adi = s1.Range("D3") & " EĞİTİM SERTİFİKASI " & s1.Range("E20") uzanti = ".pdf" s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti End Sub

...= xlPortrait Else S1.PageSetup.Orientation = xlLandscape End If S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Musteri & " - Mutabakat Mektubu.pdf", _ OpenAfterPublish:=False Next On Error Resume...

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

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ı