Sorgu için arama sonuçları: xlTypePDF

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

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

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

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

...' 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, _ OpenAfterPublish:=False...

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

Çok teşekkür ederim.

...' Üstteki satırı bu şekilde değiştirebilirsiniz.. fName = Sheets("Sheet1").Range("B2").Value sh = Sheets("Sheet1").Range("C8").Value Sheets(sh).ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _ Filename:=pth & fName & ".pdf" End Sub

Sayın Veysel Bey, çok teşekkür ediyorum. çok güzel oldu. Geliştirmek adına 2 ekleme yapabilir miyiz? Mümkünmüdür? 1. "B2" hücresine yazdığın veriyi dosya adı olarak alıp kaydetmesi. 2. pdf dosyalarını istediğim yere kaydettirebilir miyim? şimdiden teşekkürler

Tesekkür ederim deneyecegim.

...dosyaYolu = "\\sunucu\paylaşılan_klasör\test.pdf" ThisWorkbook.Worksheets("Anwesenheit IT1").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaYolu Bu kod, belirtilen sunucudaki paylaşılan klasöre "test.pdf" adıyla PDF dosyası olarak kaydeder. Tüm kullanıcılar aynı ağa...

ThisWorkbook.Worksheets("Anwesenheit IT1").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Users\BKU\faruk\Firma Ismi\Technische Anlagen - Dokumente\General\01 OPEX Board\Archiv\Anwesenheit IT 1\test.pdf" bu sekilde calisiyor. Ama bu tek kullanicida oluyor baska kullanicilar...

...vermekte.Users belirtilerek yazildiginda calismakta. ThisWorkbook.Worksheets("Anwesenheit IT1").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Users\BKU\faruk\Firma Ismi\Technische Anlagen - Dokumente\General\01 OPEX Board\Archiv\Anwesenheit IT 1\test.pdf" bu sekilde...

..."\" & dateiname2 Dim istek As Object Set istek = CreateObject("MSXML2.XMLHTTP") istek.Open "PUT", dosyaYolu istek.SetRequestBody ActiveWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q16").ExportAsFixedFormat(Type:=xlTypePDF) istek.Send MsgBox "Dosya başarıyla ortak alana kaydedildi!"...

...' Bereich A1 bis M16 als PDF exportieren ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2 ' Optional: PDF-Datei in einem neuen Fenster öffnen ' Application.FollowHyperlink pfad & "\" & dateiname2...

...' Bereich A1 bis M16 als PDF exportieren ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2 ' Optional: PDF-Datei in einem neuen Fenster öffnen ' Application.FollowHyperlink pfad & "\" & dateiname2...

Sub test() Dim pth$, sh$ pth = ThisWorkbook.Path & "\" sh = Sheets("Sheet1").Range("C8").Value Sheets(sh).ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _ Filename:=pth & sh & ".pdf" End Sub

Hocam burada hata verdi.

...= True ----------------------------------------------------------------------- ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ PDFAdresi, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...

...araya biçimlendirme ekleyeceğiz o halde 1.adım exceli açalım 2.Adım Biçimlendir 3.Adım Pdf Kaydet Vs Workbooks.Open Filename:=ExcellAdresi '1.Adım Sheets("TV").Select ....... Application.PrintCommunication = True ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ '3.Adım