Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Aktif Sayfayı Masaüstüne PDF olarak farklı kaydetme (http://www.excel.web.tr/showthread.php?t=111850)

excelapachi 16-02-2012 14:01

Aktif Sayfayı Masaüstüne PDF olarak farklı kaydetme
 
Sub farklı_kaytet_pdf()
dosya_adı = Cells(1, "a").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub




Az önce bir arkadaş böyle bir şey sormuştu ama konuyu göremedim.
Aktif sayfayı masaüstüne PDF formatında farklı kaydeder.
Modüle yapıştırarak kullanın.

arif_55 07-07-2012 08:44

peki masaüstüne değilde isteğimiz bi klasöre nasıl kaydederiz.şimdiden teşekkürler.

arif_55 09-07-2012 11:13

arkadaşlar yardım edecek kimse yokmu

Necdet Yeşertener 09-07-2012 16:03

Merhaba,

ThisWorkbook.Path'i değiştiriniz. Örneğin : "C:\DENEME" yazabilirsiniz.

arif_55 11-07-2012 09:05

hocam dediğiniz şeklilde denedim ya olmadı ya beceremedim kusuruma bakmayın daha çok yeniyim.

asi_kral 11-07-2012 09:20

Alıntı:

arif_55 tarafından gönderildi (Mesaj 642394)
hocam dediğiniz şeklilde denedim ya olmadı ya beceremedim kusuruma bakmayın daha çok yeniyim.

Merhaba
Kod:

Sub deneme()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\asi_kral_1967" & "\" & "excelciler", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Bu şekilde deneyin.

"C:\asi_kral_1967" ------ Bu yol bilgisi
"excelciler" ------------- Bu dosya adı bilgisi

arif_55 12-07-2012 10:24

teşekkür ederim arkadaşlar sonunda oldu.emeği geçen herkesin eline sağlık....

leventidil 21-05-2013 16:28

iki farklı sekmeyi kayıt yapabilirmiyiz sizin çalışma işime yaradı ama aşağıdaki sekmelere girip o şekilde 2 kere işlem yapmam gerekiyor

atakan1971 01-01-2018 15:08

Oluşturduğum EXCEL dosyasında "VARDİYA" sayfasında "nöbet listesi" düğmesine basınca tüm sayfaları PDF olarak kayıt ediyor. Ben ön izlemeyi istediğim tarihe göre almak istiyorum ve aynı zamanda masaüstüne PDF Adobe Reader dosyası kayıt etmesini istiyorum. Yani sadece 1 sayfayı görmek ve PDF olarak kayıt yapmak istiyorum.

Böyle bir kod yaptım ama tüm sayfaları kayıt yapıyor;

Sub YuvarlatılmışDikdörtgen_Tıklat()
dosya_adı = Cells(1, "a").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\cengiz\Desktop" & "\" & "GÜNLÜK VARDİYA ÇALIŞMA ÇİZELGESİ", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub

Haluk 01-01-2018 16:49

atakan1971;

Bu şekilde bir deneyin, bakalım olacak mı?

Kod:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\cengiz\Desktop" & "\" & "GÜNLÜK VARDİYA ÇALIŞMA ÇİZELGESİ.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False

.


Saat 23:10

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.