Sorgu için arama sonuçları: xlTypePDF

Geç gördüm cevabınızı. Teşekkürler destek için

...& "-" & s1.Name ' PDF satırlarını tamamen kaldırdık ' yol = ActiveWorkbook.Path & "\" & isim ' s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ ' IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False...

Sayın @muhasebeciyiz teşekkürler, buda alternatif güzel bir çözüm. Mail gitmeden önce yüklenmiş olarak ekranda, gönder olayını manuel yapıyoruz. Mail üzerinde değişiklik yapılabiliyor.

..."yyyy-mm-dd") & "-" & s1.Name yol = ActiveWorkbook.Path & "\" & isim pdfPath = yol & ".pdf" s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False...

...Set s1 = ActiveSheet isim = Date & "-" & s1.Name yol = ActiveWorkbook.Path & "\" & isim s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False With...

...= hedefYol & dosyaAdi '--- PDF'yi masaüstüne oluştur ActiveSheet.Range("A1:Q164").ExportAsFixedFormat _ Type:=xlTypePDF, _ Quality:=xlQualityMinimum, _ OpenAfterPublish:=False, _ Filename:=kaynakDosya '--- Hedefte varsa sil (overwrite için) If...

Teşekkür ederim çok güzel olmuş

...= hedefYol & dosyaAdi '--- PDF'yi masaüstüne oluştur ActiveSheet.Range("A1:Q164").ExportAsFixedFormat _ Type:=xlTypePDF, _ Quality:=xlQualityMinimum, _ OpenAfterPublish:=False, _ Filename:=kaynakDosya '--- Hedefte varsa sil (overwrite için) If...

...MAİLLER\" yil = Year(Date) ay = Month(Date) gun = ActiveSheet.Name If Len(ay) < 2 Then ay = 0 & ay ActiveSheet.Range("A1:Q164").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, OpenAfterPublish:=True, fileName:=yol & "TR - " & yil & "-" & ay & "-" & gun & ".pdf" End Sub

...& "\" & ThisWorkbookName & "_" & ThisSheetName & ".pdf" ' PDF olarak kaydet ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=SvAs, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...

...Path & DosyaAdi & "_" & Sayac & ".pdf" Sayac = Sayac + 1 Loop ' PDF kaydet Worksheets("İZİN FORMU").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=TamYol MsgBox "PDF başarıyla kaydedildi:" & vbCrLf & TamYol, vbInformation End Sub Dener...

...ADISOYADI = Worksheets("İZİN FORMU").Range("C5").Value Worksheets("İZİN FORMU").ExportAsFixedFormat xlTypePDF, Filename:=Path & ADISOYADI & "_" & Date & ".pdf" End Sub Merhaba, Bu şekil de kaydetmek için çalıştırdığım bir makrom var fakat dosya adın da bir den fazla kaydetmek...

...wsExtre.PageSetup.PrintArea = Alan PDFYolu = ThisWorkbook.Path & "\PDF\" & TbS1 & ".pdf" wsExtre.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ PDFYolu, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True...

...Then MkDir klasorYol If Dir(testKlasorYol, vbDirectory) = "" Then MkDir testKlasorYol Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol DoEvents ' Excel'in yanıt vermeye devam etmesini sağlar Next MsgBox "İşlem tamamlandı." Exit Sub hata...

Merhaba çok teşekürrr ederim istediğim buydu üstad allah razı olsun sağolasın..

...As String BelgelerimYolu = Environ("USERPROFILE") & "\Documents\" & DosyaAdi ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=BelgelerimYolu, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False...

...End If Sheets("Teklif").Select Set shsayfa = Sheets("Teklif") Yol = " & " \ " & [A2]" shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & [A2] & " " & [v2], Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True end sub

Hocam çok teşekkür ederim. Emeğinize sağlık. Var olun.

...dosyaAdi = klasorYolu & isim & ".pdf" ' Sayfa2'yi PDF olarak kaydet wsHedef.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard End If Next i MsgBox "Tüm PDF dosyaları başarıyla 'yazılar' klasörüne...

Hocam emeğinize sağlık, tam istediğim gibi. Yalnız ilginçtir. Belgelerimdeki dosyaya değil de direk belgelerime kaydediyor. Dosya ismini değiştirdim (VBA'dan da tabi). Yok olmuyor.