Sorgu için arama sonuçları: ExportAsFixedFormat

  1. Muzaffer Ali

    Makronun Farklı Yere Kaydetme Sorunu

    Bu satırı silin Sheet3.Hyperlinks.Add anchor:=nextrec.Offset(0, 6), Address:=path & fname & ".pdf" yerine aşağıdakini ekleyin. Sheet3.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & fname & ".pdf"
  2. B

    Makronun Farklı Yere Kaydetme Sorunu

    ...dt_issue = Range("f14") fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=fname Set nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0) nextrec = invno...
  3. K

    Çalışma Sayfasını PDF olarak dışa aktarma

    ...".pdf" Do While Dir(MyFileName) <> "" Counter = Counter + 1 MyFileName = MyPath & "Sayfa8_" & Counter & ".pdf" Loop ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard MsgBox "Form PDF olarak kaydedildi: " & MyFileName, vbInformation End Sub...
  4. K

    Çalışma Sayfasını PDF olarak dışa aktarma

    ...Sayfa6.PrintOut Sayfa7.PrintOut End Sub Sub kod() isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf" Sheets("Sayfa8").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _...
  5. M

    Çalışma Sayfasını PDF olarak dışa aktarma

    ...<> "" Counter = Counter + 1 MyFileName = MyPath & "Form_" & Counter & ".pdf" Loop ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard MsgBox "Form PDF olarak kaydedildi: " & MyFileName, vbInformation End Sub...
  6. ÖmerBey

    Çalışma Sayfasını PDF olarak dışa aktarma

    Merhaba, Deneyiniz... Sub kod() isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf" Sheets("Form").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _ OpenAfterPublish:=False End Sub
  7. B

    klasör_altKlasör ve Pdf Kaydetmek

    ...& ".pdf" ' Eğer aynı isimde bir dosya yoksa PDF olarak kaydet If Dir(dosyaAdi) = "" Then ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard MsgBox "Fatura PDF olarak kaydedildi.", vbInformation Else MsgBox...
  8. B

    Ayrı sayfalardan PDF oluşturma Makrosu

    ...rng = ws.Range("B2:S46") ElseIf ws.Name = "Fazla Mesai" Then Set rng = ws.Range("B2:S47") End If If Not rng Is Nothing Then ws.ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=folderPath & "\" & fileName & "_" & ws.Name & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...
  9. M

    Ayrı sayfalardan PDF oluşturma Makrosu

    ...Set rng = ws.Range("B2:S47") End If If Not rng Is Nothing Then ws.ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=folderPath & "\" & fileName & "_" & ws.Name & ".pdf", _...
  10. R

    Excelden WhatsApp'a Pdf Dosya Gönderme

    ...& " " & Sheets("RD").Range("C4")) ChDir CreateObject("WScript.Shell").SpecialFolders("Desktop") Sheets("RD").ExportAsFixedFormat Type:=xlTypePDF, Filename:=CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _ Application.PathSeparator & ad & ".pdf", Quality:= _...
  11. N

    Excelde makro ile içeriği değişen sayfaları biriktirip pdf yapma

    ...değişmesini burada yapacaksınız Next i Application.DisplayAlerts = False wb.Worksheets(1).Delete Application.DisplayAlerts = True wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Egitim_Belgesi.pdf", OpenAfterPublish:=False wb.Close SaveChanges:=False Application.ScreenUpdating = True End Sub
  12. O

    Word posta gönderilerini makro ile pdf olarak kaydetme

    Öncelikle ilgilendiğiniz için teşekkür ederim. Ben bunu yaptım ama olmadı. Ben beceremedim büyük bir ihtimal, dosyaları ekledim üzerinde uygulayabilir misiniz? Dosyalar
  13. N

    Word posta gönderilerini makro ile pdf olarak kaydetme

    ...= ActiveDocument Rem buradaki ("Borçlu") kelimesi yerine sizin exceldeki "kişi adı alanı" neyse o yazılacak. singleDoc.ExportAsFixedFormat _ OutputFileName:=PdfFolderPath & Application.PathSeparator & _...
  14. K

    excel sayfasını makro ile pdf yapma

    sayın Mdemir63 emeğinize sağlık teşekkür ederim
  15. Mdemir63

    excel sayfasını makro ile pdf yapma

    ...'Burayı siz kendi bilgisayarınızdaki masa üstüne göre değiştirin fileName = currentDate & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, Quality:=xlQualityStandard MsgBox "PDF dosyası başarıyla oluşturuldu: " & fileName, vbInformation End Sub
  16. M

    Sayfayı Outlook Mail Taslaklarına Kaydetme

    ...dönüştürülmüş hali bulunmaktadır." ' Sayfa PDF'e dönüştürme işlemi On Error Resume Next Sheets(sheetName).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath On Error GoTo 0 If Err.Number <> 0 Then MsgBox "PDF oluşturma hatası: " & Err.Description...
  17. Korhan Ayhan

    Word dosyasını PDF olarak farklı kaydet

    Ofis 365 sürümünde MAKRO KAYDET ile aşağıdaki kodları elde ettim.. Option Explicit Sub Macro1() ActiveDocument.ExportAsFixedFormat OutputFileName:= _ "C:\Admin\Desktop\Deneme.pdf", _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _...
  18. A

    Sayfa Numarası

    çok çok teşekkürler
  19. ÖmerBey

    Tek Tuşla PDF

    Merhaba, Deneyiniz. Sub kod() Sheets(Array("Sayfa1", "Sayfa2")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\Dosya.pdf", _ OpenAfterPublish:=True End Sub
  20. ÖmerBey

    Sayfa Numarası

    ...= a End If Next Sheets(2).Select For Each sh In Sheets If sh.Name <> s1.Name Then sh.Select False Next ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\Yazdır.pdf", _ OpenAfterPublish:=True Application.DisplayAlerts = False For...
Üst