Sorgu için arama sonuçları: ExportAsFixedFormat

  1. N

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

    ...rCopy.Copy Set docN = Documents.Add Selection.Paste Selection.TypeBackspace Selection.TypeBackspace docN.ExportAsFixedFormat OutputFileName:=ThisDocument.Path & "\" & isim & ".pdf", ExportFormat:=wdExportFormatPDF docN.Close SaveChanges:=wdDoNotSaveChanges Next i...
  2. N

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

    ...rCopy.Copy Set docN = Documents.Add Selection.Paste Selection.TypeBackspace Selection.TypeBackspace docN.ExportAsFixedFormat OutputFileName:= _ ThisDocument.Path & "\" & isim & ".pdf" _ , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False...
  3. K

    Çözüldü Pdf ve mail gönderme kodu hk.

    ...= CreateObject("WScript.Shell").SpecialFolders("Desktop") Dosya_Adi = Range("AX18").Value & ".pdf" Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & Dosya_Adi, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...
  4. A

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    Aslında bu kodu da denedim ama ben çalıştırmayı beceremedim kesin. Yine de size de çok teşekkür ederim
  5. Korhan Ayhan

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    Şu satırda dosyayı açar... Worksheets("Günlük").ExportAsFixedFormat, OpenAfterExport:=True
  6. A

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    Çok çok teşekkür ederim. İstediğimden bile daha fazlasını paylaşmışsınız. Sorunsuz çalışıyor.
  7. RBozkurt

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    ...> 0 Then MsgBox "Dosya mevcut: " & DosyaYolu, vbExclamation, "Uyarı" Else Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=DosyaYolu End If End Sub Sor ve kaydet, Sub PdfKaydet() Dim Path As String Dim Tarih As String Dim DosyaYolu As...
  8. A

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    Bunu da uyguladım hata vermiyor ama sonuç da vermiyor malesef. Kayıt yapmıyor yani.
  9. A

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    Bu şekilde hata verdi
  10. H

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    sub kaydet() Path = Worksheets("Ayarlar").Range("C15").Text Tarih = Worksheets("Günlük").Range("G2").Value If Dir(Path & Tarih & ".pdf" ) <> "" then Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf" end if end sub
  11. M

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    ...= Worksheets("Günlük").Range("G2").Value dosyaAdi = Path & Tarih & ".pdf" If fs.FileExists(dosyaAdi) = True Then Msgbox "Aynı isimde dosya bulunduğu için kayıt işlemi yapılmadı.!" Exit sub End If Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf" End Sub
  12. A

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    Compile error: Syntax error Bu hatayı veriyor
  13. H

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    If Dir(Path & Tarih & ".pdf" ) <> "" Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf" end if
  14. A

    PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

    Merhaba Excelde pdf olarak kaydetmek için aşağıdaki kodu kullanıyorum. Ama aynı isimli dosya olursa uyarı vermeden direk üstüne kaydediyor. Aynı isimli pdf dosyası olduğu zaman kaydetmeyecek şekilde kodu güncelleyebilir miyiz?
  15. RBozkurt

    Makro Klasör Kaydı

    ..."" Then MkDir klasorYol End If If Dir(testKlasorYol, vbDirectory) = "" Then MkDir testKlasorYol End If Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol Next MsgBox "İşlem tamamlandı." Exit Sub hata: MsgBox "Bir hata oluştu: " & Err.Description...
  16. RBozkurt

    Makro Klasör Kaydı

    ...= ThisWorkbook.Path & "\" & Sheets(x).Name If Dir(klasorYol, vbDirectory) = "" Then MkDir klasorYol End If Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol Next MsgBox "İşlem tamamlandı." Exit Sub hata: MsgBox "Bir hata oluştu: " & Err.Description End Sub
  17. J

    Makro Klasör Kaydı

    ...yapabilir mi? Private Sub CommandButton1_Click() For x = 1 To Sheets.Count yol = ThisWorkbook.Path & "\" & Sheets(x).Name On Error GoTo hata: Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol hata: Next MsgBox "İşlem tamamlandı." End Sub Kullandığım kod bu. Teşekkür ederim.
  18. cems

    PrintToPDF Macro

    ...End If ' Her bir sayfayı PDF olarak kaydet For Each ws In ThisWorkbook.Worksheets pdfPath = folderPath & ws.Name & ".pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard Next ws MsgBox "Tüm sayfalar PDF olarak kaydedildi!" End Sub Açıklamalar...
  19. Biolightant

    sayfadan userforma resim ekleme

    ...CleanUpTempFiles ' Geçici dosyaları temizle Else MkDir ParcaFolder ' Klasörü oluştur End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality _ :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...
  20. F

    Check Box temizleme

    ...' Format: JJJJMMTT Dim dateiname2 As String dateiname2 = dateiname & "_" & datumString & ".pdf" ' Dateiname und Erweiterung anpassen ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q19").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2 End Sub
Üst