Sorgu için arama sonuçları: ExportAsFixedFormat

  1. M

    Kod içindeki klasör yolunu düzenlemek

    ...Set Yeni_Mail = Uygulama.CreateItem(0) Dosya_Adi = S1.Range("G3").Value & " " & S1.Range("G5").Value & ".pdf" S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & Dosya_Adi, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...
  2. Korhan Ayhan

    Çözüldü MAKRO İLE FARKLI BİR SHEETİ PDF OLARAK KAYDETME

    Merhaba, Şu bölümü; ActiveSheet.ExportAsFixedFormat Aşağıdaki gibi değiştirip deneyiniz. Sheets("EK2A").ExportAsFixedFormat
  3. ttb

    Çözüldü MAKRO İLE FARKLI BİR SHEETİ PDF OLARAK KAYDETME

    ...şekilde ifade edebilmişimdir. Tekrar teşekkürler. Private Sub EK2A() Application.ScreenUpdating = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/EK2A" & Sheets("EK2A").Range("F30") &...
  4. halit3

    Pdf olarak kaydetmek

    ...= False Yol = ThisWorkbook.Path Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1 ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...
  5. T

    Çözüldü Excel Çalışma Kitabındaki Sayfanın xlsx Uzantılı Olarak Microsoft Outlook Programına Giden Maile Ek Olarak Eklenmesi Hk.

    ...yok" Exit Sub End If Kaynak = "C:\Perform_pdf\" If Right(Kaynak, 1) <> "\" Then End If yer = Kaynak & dosya_adı Range("A1:AU48").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ yer, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False...
  6. skaan

    Çözüldü Excel Çalışma Kitabındaki Sayfanın xlsx Uzantılı Olarak Microsoft Outlook Programına Giden Maile Ek Olarak Eklenmesi Hk.

    ...& Satir4).Value = Bilgi4 ' Yazdırma alanını belirle ve PDF olarak kaydet With Proforma .ExportAsFixedFormat Type:=xlTypePDF, Filename:=TamDosyaAdi, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False End With...
  7. hkaradag

    Hücre Değeriyle Kayıt Yapmak

    ...döngüsü başlangıcı Do While Sheets("SONUC").Range("B8").Value <> 0 'B8 hücresi 0 değilse döngüyü çalıştır ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\karad\Desktop\YDA_Sonuc_Aciklama\" & Sheets("SONUC").Range("B8").Value & ".pdf"...
  8. I

    Çözüldü hangi hücrede işlem yapıldığı

    ...ActiveSheet.Name 'gun2 = ActiveSheet.Name gun3 = ActiveSheet.Name If Len(ay) < 2 Then ay = 0 & ay ActiveSheet.Range("A1:Q164").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, OpenAfterPublish:=True, fileName:=yol & yil & "-" & ay & "-" & gun & "-TR.pdf"...
  9. asdsxx

    UserForm, TextBox'daki bilgileri pdf çıktı alma

    Korhan Bey Necati Bey'in söylediği şekilde ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ satırını docword.ExportAsFixedFormat OutputFileName:=Yol, _ olarak değiştirince düzeldi. Şahsınıza da çok çok teşekkür ederim. Ellerinize, emeklerinize sağlık.
  10. asdsxx

    UserForm, TextBox'daki bilgileri pdf çıktı alma

    ...Böylece çok daha kullanışlı oldu If CheckBox5 = True Then Yol = ThisWorkbook.Path & "\Hadisler_" & say5 & ".pdf" docword.ExportAsFixedFormat OutputFileName:=Yol, _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint...
  11. asdsxx

    UserForm, TextBox'daki bilgileri pdf çıktı alma

    Necati Bey Teşekkürler... ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ satırını sizin dediğiniz docword.ExportAsFixedFormat OutputFileName:=Yol, _ olarak değiştirince düzeldi. Yalnız "Application.ScreenUpdating = False" komutunu True yapmasamda çalışıyıyor, Yapsamda çalışıyor. Bu...
  12. N

    UserForm, TextBox'daki bilgileri pdf çıktı alma

    ...daha önce karşılaşmıştım. Activedocument'in önüne set yapılan Application ismini de yazınca düzeliyor. appword.ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ yada: Activedocument'in yerine SET yapılan dosya ismi yazılınca da düzeliyor. docword.ExportAsFixedFormat...
  13. asdsxx

    UserForm, TextBox'daki bilgileri pdf çıktı alma

    Korhan Bey ilginize teşekkür ederim. Kodun son kısmına tıpkı Word belgesinde olduğu gibi dosya kapatılsa daha iyi olacak Yani PDF dosyası açık olmasın kayıt yapınca kapansın. Bunun için kodun sonuna docword.Close appword.Quit Bunların karşılığı ne yazılabilir
  14. Korhan Ayhan

    UserForm, TextBox'daki bilgileri pdf çıktı alma

    ...satırının üstüne konumlandırıp deneyiniz. Sub Makro1() Yol = ThisWorkbook.Path & "\Deneme.pdf" ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, _ OptimizeFor:=wdExportOptimizeForPrint...
  15. A

    Çalışan Makronun çalışmaması

    ...KLS.createfolder MASAÜSTÜ & "\" & S1.Range("Z18").Text For SY = 1 To 55 S1.Range("B5") = SY S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" & S1.Range("Z18").Text & "\" & S1.Range("Z11").Text & ".pdf" Next S1.Range("B5") = 1 MsgBox "İşlem Tamamlandı", , "Sonuç" End Sub Sayfanın Kod...
  16. Y

    Pdf olarak kaydetmek

    ...boş devam edilemez") Exit Sub End If Set shsayfa = ActiveSheet yol = ActiveWorkbook.Path & "\" & [k1] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  17. tamer42

    Soru PDF KAYDETME MAKROSU

    Aşağıdaki kodları ekler misiniz, "Sayfaya Sığdır" With ActiveSheet.PageSetup .Zoom = False End With
  18. S

    Soru PDF KAYDETME MAKROSU

    ...konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" adi = s1.Range("D8") & "EĞİTİM SERTİFİKASI (" & s1.Range("B1") & s1.Range("C1") & ") " & s1.Range("E20") uzanti = ".pdf" s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti ActiveSheet.Protect End Sub
  19. M

    Gizli sayfa makro

    ...False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.PageSetup.PaperSize = 281 ActiveSheet.Range("$B$2:$D$34").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...
  20. M

    Kağıt boyutu seçme

    ...& "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$2:$D$33").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...
Üst