Sorgu için arama sonuçları: ExportAsFixedFormat

  1. A

    Farklı Kaydet Butonu ile hem pdf hem xls olarak kaydetme

    Kod çalışıyor çok teşekkürler. Pdf normal açılıyor ama xlsm açılırken " dosyanın bozuk olmadığını ve dosya uzantısının dosyan9ın biçimiyle eşleştiğini doğrulayın " hatası veriyor
  2. V

    Farklı Kaydet Butonu ile hem pdf hem xls olarak kaydetme

    ...End If ' Dosyanın bir kopyasını kaydet ThisWorkbook.SaveCopyAs savePath ' PDF olarak kaydet (aynı isimle) ThisWorkbook.Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(savePath, ".xlsm", ".pdf") MsgBox "Dosya başarıyla kaydedildi!" End Sub
  3. catalinastrap

    PDF to XML

    ...Dim fileNameWithoutExt As String fileNameWithoutExt = Left(xmlFile, InStr(xmlFile, ".") - 1) wordDoc.ExportAsFixedFormat OutputFileName:=pdfFolderPath & fileNameWithoutExt & ".pdf", ExportFormat:=17 wordDoc.Close False xmlFile = Dir Loop...
  4. catalinastrap

    Xml To Pdf

    ...fileNameWithoutExt As String fileNameWithoutExt = Left(xmlFile, InStr(xmlFile, ".") - 1) wordDoc.ExportAsFixedFormat OutputFileName:=pdfFolderPath & fileNameWithoutExt & ".pdf", ExportFormat:=17 wordDoc.Close False xmlFile = Dir...
  5. Biolightant

    Sayfayı PDF sayfasına sığdırma

    ....FitToPagesWide = 1 ' Yatayda 1 sayfa .FitToPagesTall = 1 ' Dikeyde 1 sayfa End With ' PDF'yi dışa aktar ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  6. byfika

    Sayfayı PDF sayfasına sığdırma

    ...= ws.Cells(ws.Rows.Count, "B").End(xlUp).Row Set rng = ws.Range("B1:L" & lastRow) pdfPath = "D:\YEDEK\Veri.pdf" rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  7. Biolightant

    Seçilen bölgeyi kaydetmeden pdf olarak mail iletme

    ...As String PdfPath = Environ("TEMP") & "\RangePdfMail.pdf" ' PDF dosyasını belirtilen yere kaydet ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfPath, _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _...
  8. M

    PDF Birleştirme (Uygulamasız)

    Hocam ilgi alanız için çok teşekkür ederim. Birazdan PC başına geçip denemek için sabırsızlanıyorum.
  9. Biolightant

    PDF Birleştirme (Uygulamasız)

    ...Next i ' PDF olarak kaydet pdfPath = Environ("USERPROFILE") & "\Desktop\BirlesikPdfLer.pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  10. Turgay1983XX

    herhangi bir sayfayı pdf olarak kaydetme

    Elinize sağlık çok güzel olmuş.
  11. M

    herhangi bir sayfayı pdf olarak kaydetme

    ....FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintPreview Yazici.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FilePath & "\" & FileName & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _...
  12. M

    Formları tek pdf olarak dökme

    Necati hocam öncelikle vakit ayırdığınız için teşekkür ederim. Listedeki personel sayısınca tek pdf olarak form oluşuyor ama tüm formlarda listede ilk sıradaki personelin bilgileri var. 150 tane form aynı kişiye ait
  13. N

    Formları tek pdf olarak dökme

    ...Next i Application.DisplayAlerts = False wbkT.Worksheets(1).Delete Application.DisplayAlerts = True wbkT.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "Meydan.pdf", OpenAfterPublish:=False wbkT.Close SaveChanges:=False Application.ScreenUpdating = True ' İşlem...
  14. M

    Formları tek pdf olarak dökme

    ...' PDF olarak kaydet PDFFileName = FolderPath & SicilNo & ".pdf" ' Klasör yolu ve dosya adını değiştirin wsForm.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFileName ' Formu temizle (sonraki sicil numarası için) wsForm.Range("W2").ClearContents Next i...
  15. okan32

    PDF olarak kaydetmek

    ...buraya girin dosyaYolu = klasorYolu & "FAALİYET_RAPORU_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaYolu, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False...
  16. tugkan

    Kaydedilen Dosya İsmini Hücredeki İsim ve Tarih Yapma Sorunu

    ...& Tarih & "_" & Counter & ".pdf" Counter = Counter + 1 Loop ' PDF dosyasını kaydet Sheets("İrsaliye").ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard MsgBox "Pdf Dosyası Başarıyla Kayıt Edildi! " End Sub Bu kod ile...
  17. K

    Kaydedilen Dosya İsmini Hücredeki İsim ve Tarih Yapma Sorunu

    ...While Dir(MyFileName) <> "" Counter = Counter + 1 MyFileName = MyPath & "Form_" & Counter & ".pdf" Loop Sheets("İrsaliye").ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard MsgBox "Pdf Dosyası Başarıyla Kayıt Edildi! "...
  18. P

    Boş sayfaları atlayarak PDF oluşturma. VBA

    ...Else MsgBox "Yazdırılacak dolu sayfa bulunamadı.", vbInformation Exit Sub End If ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=dosya_yolu, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...
  19. tugkan

    Boş sayfaları atlayarak PDF oluşturma. VBA

    ...' Dolu sayfalar PDF olarak kaydediliyor Worksheets(Split(doluSayfaListesi, ",")).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=dosya_yolu, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...
  20. tukayf

    Soru Bordrodaki Tüm Personele PDF Pusula Oluşturma

    ...isimler ucret.Range("B2").Value = isim.Value dosyaAdi = klasorYolu & isim.Value & ".pdf" ucret.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard, _ IncludeDocProperties:=True...
Üst