Sorgu için arama sonuçları: xlTypePDF

Kod çalışıyor çok teşekkürler. Pdf normal açılıyor ama xlsm açılırken " dosyanın bozuk olmadığını ve dosya uzantısının dosyan9ın biçimiyle eşleştiğini doğrulayın " hatası veriyor

...End If ' Dosyanın bir kopyasını kaydet ThisWorkbook.SaveCopyAs savePath ' PDF olarak kaydet (aynı isimle) ThisWorkbook.Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(savePath, ".xlsm", ".pdf") MsgBox "Dosya başarıyla kaydedildi!" End Sub

...= 1 ' Yatayda 1 sayfa .FitToPagesTall = 1 ' Dikeyde 1 sayfa End With ' PDF'yi dışa aktar ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' PDF açmak...

..."B").End(xlUp).Row Set rng = ws.Range("B1:L" & lastRow) pdfPath = "D:\YEDEK\Veri.pdf" rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "PDF...

...= Environ("TEMP") & "\RangePdfMail.pdf" ' PDF dosyasını belirtilen yere kaydet ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfPath, _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _ OpenAfterPublish:=False...

Hocam ilgi alanız için çok teşekkür ederim. Birazdan PC başına geçip denemek için sabırsızlanıyorum.

...i ' PDF olarak kaydet pdfPath = Environ("USERPROFILE") & "\Desktop\BirlesikPdfLer.pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...

Elinize sağlık çok güzel olmuş.

...= 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintPreview Yazici.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FilePath & "\" & FileName & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False...

Necati hocam öncelikle vakit ayırdığınız için teşekkür ederim. Listedeki personel sayısınca tek pdf olarak form oluşuyor ama tüm formlarda listede ilk sıradaki personelin bilgileri var. 150 tane form aynı kişiye ait

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

...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 ' İşlem...

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

...& 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, "Bilgi"...

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

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

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