Sorgu için arama sonuçları: ExportAsFixedFormat

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

...isim = Date & "-" & 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...

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.

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

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

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

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

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

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

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

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

Elinize Emeğinize sağlık. Allah işinizi rast getirsin. Teşekkür ederim

...With .Sections(i) isim = Split(.Range.Paragraphs(2).Range.Text, vbCr)(0) ActiveDocument.ExportAsFixedFormat ActiveDocument.Path & "\" & isim & ".pdf", _ wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, i, i, wdExportDocumentWithMarkup, _...

isim = Rng.Paragraphs(2).Range.Text run-time error '5941' Grupta listelenen eleman yok hatası veriyor

...Name:="\page") isim = Rng.Paragraphs(2).Range.Text isim = Replace(isim, vbCr, "") .ExportAsFixedFormat .Path & "\" & isim & ".pdf", _ wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, i, i, wdExportDocumentWithMarkup, _ False, False...

...fileName = Replace(fileName, "/", "-") Else fileName = "Page_" & I End If tempDoc.ExportAsFixedFormat OutputFileName:=xPathStr & "\" & fileName & ".pdf", _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _...