PDF_Olarak_Kaydetme..!!

Kulanıcı arayüz formu

PDF_Olarak_Kaydetme..!!

İleti#1)  huseyinkkamer » 29 Ağu 2019 08:18

Merhaba Arkadaşlar,
Butona PDF olarak kaydet Text adını verdim. Fakat butona tıkladığımızda açık olan dosyayı PDF olarak kaydetme ve kaydetme alanını biz seçme kodunu paylaşır mısınız?
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 16 Arl 2017 22:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 27
İleti: 65
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

Cevap: PDF_Olarak_Kaydetme..!!

İleti#2)  erseldemirel2 » 29 Ağu 2019 10:14

huseyinkkamer yazdı:Merhaba Arkadaşlar,
Butona PDF olarak kaydet Text adını verdim. Fakat butona tıkladığımızda açık olan dosyayı PDF olarak kaydetme ve kaydetme alanını biz seçme kodunu paylaşır mısınız?


Butonun içine kodları deneyiniz.

Kod: Tümünü seç

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
filename:=ThisWorkbook.path & "\KayıtPDF.pdf"
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 561
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: PDF_Olarak_Kaydetme..!!

İleti#3)  huseyinkkamer » 29 Ağu 2019 12:58

erseldemirel2 yazdı:
huseyinkkamer yazdı:Merhaba Arkadaşlar,
Butona PDF olarak kaydet Text adını verdim. Fakat butona tıkladığımızda açık olan dosyayı PDF olarak kaydetme ve kaydetme alanını biz seçme kodunu paylaşır mısınız?


Butonun içine kodları deneyiniz.

Kod: Tümünü seç

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
filename:=ThisWorkbook.path & "\KayıtPDF.pdf"


Merhaba Ersel,
Çok Teşekkür Ederim Cidden. Fakat tam istediğim kod bu değil. Şöyle . Ben butona bastığımda exceli Pdf formatında nereye kaydedeceğim hedefi kendim seçmek istiyorum. Aynı farklı kaydet gibi.
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 16 Arl 2017 22:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 27
İleti: 65
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

Cevap: Cevap: Cevap: PDF_Olarak_Kaydetme..!!

İleti#4)  erseldemirel2 » 29 Ağu 2019 13:06

huseyinkkamer yazdı:
erseldemirel2 yazdı:
huseyinkkamer yazdı:Merhaba Arkadaşlar,
Butona PDF olarak kaydet Text adını verdim. Fakat butona tıkladığımızda açık olan dosyayı PDF olarak kaydetme ve kaydetme alanını biz seçme kodunu paylaşır mısınız?


Butonun içine kodları deneyiniz.

Kod: Tümünü seç

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
filename:=ThisWorkbook.path & "\KayıtPDF.pdf"


Merhaba Ersel,
Çok Teşekkür Ederim Cidden. Fakat tam istediğim kod bu değil. Şöyle . Ben butona bastığımda exceli Pdf formatında nereye kaydedeceğim hedefi kendim seçmek istiyorum. Aynı farklı kaydet gibi.


Kod: Tümünü seç
Sub pdfkaydet()
Application.ScreenUpdating = False
sat = 1
Dosya = Application.GetSaveAsFilename(filefilter:="Pdf dosyaları,*.pdf", Title:="Pdf dosyaları")
If Dosya = False Then Exit Sub
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya
Application.ScreenUpdating = True
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 561
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Cevap: Cevap: PDF_Olarak_Kaydetme..!!

İleti#5)  huseyinkkamer » 03 Eyl 2019 09:48

Kod: Tümünü seç
Sub pdfkaydet()
Application.ScreenUpdating = False
sat = 1
Dosya = Application.GetSaveAsFilename(filefilter:="Pdf dosyaları,*.pdf", Title:="Pdf dosyaları")
If Dosya = False Then Exit Sub
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya
Application.ScreenUpdating = True
End Sub
[/quote]


Çook Teşekkür Ederim...
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 16 Arl 2017 22:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 27
İleti: 65
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

Cevap: Cevap: Cevap: Cevap: Cevap: PDF_Olarak_Kaydetme..!!

İleti#6)  erseldemirel2 » 03 Eyl 2019 13:04

huseyinkkamer yazdı:
Kod: Tümünü seç
Sub pdfkaydet()
Application.ScreenUpdating = False
sat = 1
Dosya = Application.GetSaveAsFilename(filefilter:="Pdf dosyaları,*.pdf", Title:="Pdf dosyaları")
If Dosya = False Then Exit Sub
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya
Application.ScreenUpdating = True
End Sub



Çook Teşekkür Ederim...[/quote]


Kolay gelsin
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 561
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: PDF_Olarak_Kaydetm

İleti#7)  huseyinkkamer » 03 Eyl 2019 21:53

erseldemirel2 yazdı:
huseyinkkamer yazdı:
Kod: Tümünü seç
Sub pdfkaydet()
Application.ScreenUpdating = False
sat = 1
Dosya = Application.GetSaveAsFilename(filefilter:="Pdf dosyaları,*.pdf", Title:="Pdf dosyaları")
If Dosya = False Then Exit Sub
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya
Application.ScreenUpdating = True
End Sub



Çook Teşekkür Ederim...



Kolay gelsin[/quote]


Ersel Ya sana zahmet mail ile ilgili bir konu daha açtım.
Onu da inceleyebilir misin ?
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 16 Arl 2017 22:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 27
İleti: 65
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe