-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sorgu için arama sonuçları: ExportAsFixedFormat
-
Yerine koy ve PDF oluştur.
Hocam çok teşekkür ederim. Emeğinize sağlık. Var olun.- muratgunay48
- Posta #5
- Forum: Makro-VBA Soruları
-
M
Yerine koy ve PDF oluştur.
...dosyaAdi = klasorYolu & isim & ".pdf" ' Sayfa2'yi PDF olarak kaydet wsHedef.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard End If Next i MsgBox "Tüm PDF dosyaları başarıyla 'yazılar' klasörüne...- mustafa1205
- Posta #4
- Forum: Makro-VBA Soruları
-
Yerine koy ve PDF oluştur.
Hocam emeğinize sağlık, tam istediğim gibi. Yalnız ilginçtir. Belgelerimdeki dosyaya değil de direk belgelerime kaydediyor. Dosya ismini değiştirdim (VBA'dan da tabi). Yok olmuyor.- muratgunay48
- Posta #3
- Forum: Makro-VBA Soruları
-
Yerine koy ve PDF oluştur.
...adını hazırla dosyaAdi = isim & ".pdf" ' Sayfa2'yi PDF olarak kaydet wsHedef.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard End If Next i MsgBox "Tüm PDF dosyaları başarıyla kaydedildi!"...- Hakan ERDOST
- Posta #2
- Forum: Makro-VBA Soruları
-
N
Belirli Bir Yazdırma Alanı İçerisinde Yazdırma İşlemi
...Sheets(Array("Ö", "Sİ", "EA", "K", "DK")).Select 'Sheets(Array("Ö", "Sİ", "EA", "K", "DK")).PrintOut , preview:=True ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\Kontrol.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...- necati
- Posta #17
- Forum: Makro-VBA Soruları
-
Otomatik Pdf yapma
...S1.PageSetup.Orientation = xlPortrait Else S1.PageSetup.Orientation = xlLandscape End If S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Tarih & "_GÜNLÜK İŞLEMLER " & S1.Range("U1") & ".pdf", _...- Korhan Ayhan
- Posta #16
- Forum: Makro-VBA Soruları
-
B
Otomatik Pdf yapma
- bjk55
- Posta #15
- Forum: Makro-VBA Soruları
-
B
Otomatik Pdf yapma
S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Musteri & "_MUTABAKAT MEKTUBU " & S1.Range("U1") & ".pdf", _ OpenAfterPublish:=False burda hata vermekte Tarihlerde "." olduğu için dosyayı kaydedemiyor sanırsam- bjk55
- Posta #13
- Forum: Makro-VBA Soruları
-
A
Farklı Kaydet Butonu ile hem pdf hem xls olarak kaydetme
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- ahmeterdemir2
- Posta #4
- Forum: Makro-VBA Soruları
-
V
Farklı Kaydet Butonu ile hem pdf hem xls olarak kaydetme
...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- volki_112
- Posta #2
- Forum: Makro-VBA Soruları
-
PDF to XML
...Dim fileNameWithoutExt As String fileNameWithoutExt = Left(xmlFile, InStr(xmlFile, ".") - 1) wordDoc.ExportAsFixedFormat OutputFileName:=pdfFolderPath & fileNameWithoutExt & ".pdf", ExportFormat:=17 wordDoc.Close False xmlFile = Dir Loop...- catalinastrap
- Posta #14
- Forum: Makro-VBA Soruları
-
Xml To Pdf
...fileNameWithoutExt As String fileNameWithoutExt = Left(xmlFile, InStr(xmlFile, ".") - 1) wordDoc.ExportAsFixedFormat OutputFileName:=pdfFolderPath & fileNameWithoutExt & ".pdf", ExportFormat:=17 wordDoc.Close False xmlFile = Dir...- catalinastrap
- Posta #2
- Forum: Diğer Excel Soruları
-
Sayfayı PDF sayfasına sığdırma
....FitToPagesWide = 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...- Biolightant
- Posta #2
- Forum: Makro-VBA Soruları
-
Sayfayı PDF sayfasına sığdırma
...= ws.Cells(ws.Rows.Count, "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...- byfika
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
Seçilen bölgeyi kaydetmeden pdf olarak mail iletme
...As String PdfPath = Environ("TEMP") & "\RangePdfMail.pdf" ' PDF dosyasını belirtilen yere kaydet ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfPath, _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _...- Biolightant
- Posta #7
- Forum: Diğer Excel Soruları
-
M
PDF Birleştirme (Uygulamasız)
Hocam ilgi alanız için çok teşekkür ederim. Birazdan PC başına geçip denemek için sabırsızlanıyorum.- meslek5
- Posta #16
- Forum: Makro-VBA Soruları
-
PDF Birleştirme (Uygulamasız)
...Next i ' PDF olarak kaydet pdfPath = Environ("USERPROFILE") & "\Desktop\BirlesikPdfLer.pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...- Biolightant
- Posta #15
- Forum: Makro-VBA Soruları
-
herhangi bir sayfayı pdf olarak kaydetme
Elinize sağlık çok güzel olmuş.- Turgay1983XX
- Posta #3
- Forum: Makro-VBA Soruları
-
M
herhangi bir sayfayı pdf olarak kaydetme
....FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintPreview Yazici.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FilePath & "\" & FileName & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _...- md3m1ray
- Posta #2
- Forum: Makro-VBA Soruları
-
M
Formları tek pdf olarak dökme
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- meydan
- Posta #3
- Forum: Makro-VBA Soruları