Sorgu için arama sonuçları: ExportAsFixedFormat

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

...' 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...

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

...& 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...

...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! "...

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

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

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

teşekkürler...Kodları denedim ve çalıştıramadım...

ŞİFRE :metaa26

Üstadım Merhaba; Konu oldukça dikkatimi çekti gerçekten elinize emeğinize sağlık. Benimde buna benzer bir konu üzerine sorum ve yardım rica olacak. Ben bir sitenin yöneticisiyim her evin ayrı ayrı borç alacak tablosu var. Kodlarla da PDF çevirebiliyorum ancak gönderme konusunda tek tek...

...PDF olarak kaydet pdfPath = "C:\DosyaYolu\" & ActiveSheet.Name & ".pdf" ' Kendi dosya yolunu ayarla ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard ' WhatsApp'ı sadece bir kez aç If Not whatsappOpened Then...

...= num pdfName = folderPath & "Sozel_" & CStr(num) & ".pdf" wsTemplate.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard End If Next cell End Sub Sub PDF2() 'SAYISAL BOLUM ICIN...

With Worksheets("KİMLİK") .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=dosya_yolu, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End With ile PDF oluşturuyorum. Ancak Boş...

...fileName = filePath & cleanName & ".pdf" Debug.Print fileName ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False...

...filePath End If For Each ws In ThisWorkbook.Worksheets fileName = filePath & ws.Name & ".pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False...

Öncelikle bilginize emeğinize sağlık. Haftalardır çözmeye çalıştığım sorunuma yardımcı oldunuz çok teşekkür ederim. Son bir sorum olacak; PDF yerine excel dosyası olarak yapmak istesem neyi değiştirmem gerek?

...Next j Next i ' Sayfayı Rapor.pdf ismiyle aktif olan Excel dosyasının olduğu klasöre kaydet ve aç tempSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Rapor.pdf", OpenAfterPublish:=True ' OpenAfterPublish:=False Dosyayı açmaz ' Sayfayı silerken...

...pdffile = gecicipath & Range("B7") & ".pdf" Set alan = Range(ActiveSheet.PageSetup.PrintArea) alan.ExportAsFixedFormat Type:=xlTypePDF, fileName:=pdffile, openafterpublish:=False ReDim Preserve pdfFiles(i - 5) pdfFiles(i - 5) = pdffile Next...

...= ThisWorkbook.Path & "\" pdffile = gecicipath & Range("B7") & ".pdf" Set alan = Range(ActiveSheet.PageSetup.PrintArea) alan.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdffile, openafterpublish:=False Set outmail = outapp.CreateItem(olMailItem) With outmail .To = Range("j1") .Subject =...