Sorgu için arama sonuçları: ExportAsFixedFormat

  1. F

    Check Box temizleme

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

    Sayfayı pdf formatında buton ile kaydetme

    Çok teşekkür ederim.
  3. veyselemre

    Sayfayı pdf formatında buton ile kaydetme

    ...' Ü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
  4. T

    Sayfayı pdf formatında buton ile kaydetme

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

    Sayfayı pdf formatında buton ile kaydetme

    Tesekkür ederim deneyecegim.
  6. M

    Sayfayı pdf formatında buton ile kaydetme

    ...dosyaYolu As String 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...
  7. F

    Sayfayı pdf formatında buton ile kaydetme

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

    Sayfayı pdf formatında buton ile kaydetme

    ...kisminda hata 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"...
  9. M

    Sayfayı pdf formatında buton ile kaydetme

    ..."\" & 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!"...
  10. F

    Share Pointe pdf yüklemesi

    ...anpassen ' 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 &...
  11. F

    Sayfayı pdf formatında buton ile kaydetme

    ...anpassen ' 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 &...
  12. veyselemre

    Sayfayı pdf formatında buton ile kaydetme

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

    Masaüstü klasör

    Hocam burada hata verdi.
  14. muratgunay48

    Masaüstü klasör

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

    Masaüstü klasör

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

    Masaüstü klasör

  17. muratgunay48

    Masaüstü klasör

    Hiç o açıdan düşünmemiştim. Teşekkür ederim hocam. Emeğinize sağlık.
  18. B

    Masaüstü klasör

    ...PDFAdresi = ActiveWorkbook.Path & "\PDF RAPORLAR\test.pdf" Workbooks.Open Filename:=ExcellAdresi ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ PDFAdresi, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...
  19. muratgunay48

    Masaüstü klasör

    ...RAPORLAR\test.xlsx" ChDir "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\PDF RAPORLAR" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\PDF RAPORLAR\test.pdf", Quality:= _ xlQualityStandard...
  20. M

    seçili alanı yazdırma ve pdf kaydetme

    ...Worksheet Dim pdfName As String Set ws = ActiveSheet pdfName = ThisWorkbook.Path & "\" & ws.Name & ".pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard ActiveSheet.PrintOut End Sub Excel sayfanızda seçili alanları...
Üst