Pdf olarak yedekleme ?

[Gorarr]

Selamlar sitedeki örnekler ile güncellediğim bu excel dosyası, "C:\Yedek" klasörü içerisine excel'in istediğim kısmını "xls" olarak yedeğini alıyor. Benim sorum bu yedeği direkt pdf olarak alabilirmi. (sitede araştırdım ancak sonuç alamadım) Yardımlar için şimdiden teşekkürler...

 

[halit3]

http://www.microsoft.com/downloads/d...displayLang=tr

Bu kod 2007 de çalışıyor tabi yukarıdaki linkdeki eklentininde kurulması gerekiyor.sayfa düzeninizi ayarlayınız zira pdf formatı ikinci sayfaya taşıyor.

Sub yedek()
Dim i
'Sayfa Korumalarını Kaldır
For a = 1 To Sheets.Count
Sheets(a).Unprotect "12" = True
Next
'Kopyalanacak Sayfa
Sheets("Sayfa1").Select
Range("A1:CC16").Select
Selection.Copy
'Değer olarak Yapıştıtırılacak Saysa
Sheets("Sayfa2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
'Sayfayı Karıklı Kaydet
Dim Dosya_Yolu As String, Dosya_Adı As String

Application.ScreenUpdating = False
Sheets("Sayfa2").Select
'Sheets("Sayfa2").Copy

Klasor = "C:\Yedek"
On Error Resume Next
If Dir(Klasor) = "" Then MkDir Klasor


Dosya_Adı = Format(Now, "dd_mm_yyyy_hh_mm_ss")
Sheets("Sayfa2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Klasor & Application.PathSeparator & Dosya_Adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Sayfa1").Select
Application.ScreenUpdating = True
Call temizle
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

sitede bununula ilgili bazı konular var.

http://www.excel.web.tr/search.php?searchid=1561721

 

[halit3]

buda kısaltılmışı

Sub yedek()
Klasor = "C:\Yedek"
On Error Resume Next
If Dir(Klasor) = "" Then MkDir Klasor
Dosya_Adı = Format(Now, "dd_mm_yyyy_hh_mm_ss")
Sheets("Sayfa1").Range("A1:CC16").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Klasor & Application.PathSeparator & Dosya_Adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Gorarr]

Çok teşekkür ederim. Gerçekten çok işime yaradı. Saygılar selamlar..

 

[halit3]

Çok teşekkür ederim. Gerçekten çok işime yaradı. Saygılar selamlar..

iyi çalışmalar