Sorgu için arama sonuçları: ExportAsFixedFormat

  1. Korhan Ayhan

    Soru pdf yapma macro yavaşlığı

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

    Soru pdf yapma macro yavaşlığı

    Teşekkür ederim çok güzel olmuş
  3. Korhan Ayhan

    Soru pdf yapma macro yavaşlığı

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

    Soru pdf yapma macro yavaşlığı

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

    Çalışma Sayfasını PDF olarak kayderken excel uzantısını yazmaması

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

    makro kaydetme sorunu

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

    makro kaydetme sorunu

    ...Worksheets("AYARLAR").Range("J11").Text 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...
  8. E

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

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

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

    ...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, _...
  10. E

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

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

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

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

    word Adres mektup birleştirme ile üretilen sayfaları tek tek pdf yapma

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

    word Adres mektup birleştirme ile üretilen sayfaları tek tek pdf yapma

    ...Then xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) End If For I = xStartPage To xEndPage ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _ wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _ False...
  14. E

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

    ...= ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) End If For I = xStartPage To xEndPage ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _ wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I...
  15. celikomerh

    Userform sayfa yazdırma (Başlık sabitleme)

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

    Makro Klasör Kaydı

    ...= "" 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...
  17. N

    Pdf kaydetme şarta bağlı farklı klasörlere

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

    Pdf kaydetme şarta bağlı farklı klasörlere

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

    Pdf kaydetme şarta bağlı farklı klasörlere

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

    Yerine koy ve PDF oluştur.

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