Aktif Sayfayı Masaüstüne PDF olarak farklı kaydetme

[excelapachi]

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]

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

 

[arif_55]

arkadaşlar yardım edecek kimse yokmu

 

[Necdet]

Merhaba,

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

 

[arif_55]

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

 

[asi_kral]

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

Merhaba

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]

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

 

[leventidil]

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]

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]

atakan1971;

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

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

.

 

[atakan1971]

Yapmaya çalıştım ama bir türlü beceremedim. Size yaptığım çalışmayı paylaşıyorum, incelerseniz sevinirim.
Listem bir aylık ben günlük kullanacağım için sorun oluyor.

 

[atakan1971]

Bugünde uğraştım ama bir türlü bulamadım ve yapamadım. Bana hangi sayfayı görmek istediğimi sorsa yeterli olacak bana.