1 sayfadan 1. sayfa

PDF_Olarak_Kaydetme..!!

İletiTarih: 29 Ağu 2019 08:18
huseyinkkamer
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?

Cevap: PDF_Olarak_Kaydetme..!!

İletiTarih: 29 Ağu 2019 10:14
erseldemirel2
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"

Cevap: Cevap: PDF_Olarak_Kaydetme..!!

İletiTarih: 29 Ağu 2019 12:58
huseyinkkamer
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.

Cevap: Cevap: Cevap: PDF_Olarak_Kaydetme..!!

İletiTarih: 29 Ağu 2019 13:06
erseldemirel2
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

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

İletiTarih: 03 Eyl 2019 09:48
huseyinkkamer
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...

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

İletiTarih: 03 Eyl 2019 13:04
erseldemirel2
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

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

İletiTarih: 03 Eyl 2019 21:53
huseyinkkamer
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 ?