Sorgu için arama sonuçları: xlTypePDF

Çok ama çok teşekkür ederim hocam. Mükemmel oldu. Beni çok büyük bir iş yükünden kurtardınız. Sağ olun var olun.

....Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False End With ws.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Users\muratgunay48\Desktop\AAA.pdf", _ Quality:=xlQualityStandard, _...

Yukarıda paylaşmış olduğunuz kodun içerisinde böyle bir alan yer almamakla birlikte sorunuzun cevabına gelecek olursak; Biçimlendirme yapmış olduğunuz alanlar her ne kadar içi boş olsa da çıktınızda yer alır, bunun için biçimlendirmeyi son dolu hücreyi tespit ettirip o alana biçimlendirme...

Hocam sonu şöyle bitiyor. ChDir "C:\Users\muratgunay48\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\muratgunay48\Desktop\AAA.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _...

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...