AccessTr.neT

Merhaba
Uygulamam da Poliçeler sayfasında Poliçe giriş formunda tıkladığınızda açılan formda bir pdf gösterme alanım var normalde resim nesnelerini excelde istediğim klasöre istediğim adla kaydedebiliyorum fakat aynı işlevi PDF dosyalarında yapamıyorum. Amacım bilgisayarımdaki bir PDF dosyasını yükle butonu ile seçip userform üzerine getirdikten sonra Userfom üzerindeki Poliçe numarasını PDF nin ismine atayarak Excel ile aynı klasörün içinde bulunan PDF_Evrakları klasörüne kaydetmek. Yardımlarınız için teşekkür ederim.

Merhaba Sayın @Oğuz Türkyılmaz

Image kontrolüne pdf yükleyemezsiniz zira bir resim dosyası değildir. Bunun yerine webbrowser kontrolü kullanarak

WebBrowser1.Navigate "c:\users\xxx\yyy\abc.pdf"

ile yükleyebilirsiniz.

Eklediğiniz pdf dosyasını yeniden adlandırmak ve istediğiniz klasöre kopyalamak için FileCopy kullanabilirsiniz.

Örnek kod:

Private Sub



Dim SPath, DPath As String



SPath = "C:\xxx\yyyy\ppp.pdf"

DPath = "D:\zzz & "\" & Kriteleriniz & "*.pdf"



FileCopy SPath, DPath



End Sub

Sn.Atoykan webbrowser da biraz cebelleşmiştim dün ve üzerinde tıklayınca büyüterek görüntüleme gibi bir seçenek yok yada ben bulamadım. Benim derdim userformda bir ımage nesnesi yada webbrowser gibi bir nesne içinde pdf yi görüntülemek değil. Form üzerinden bilgisayarımdaki bir  pdf belgesini seçip onu belirlediğim bir klasöre formun  üzerindeki bir textboxta yazan numara ile kaydedebilmek ve bu PDF yi daha sonra yine aynı form yada başka bir form üzerinden bir butona basarak full ekran açabilmek. Form üzerinde vesikalık resim büyüklüğünde bir alanda koca a4 sayfasını görüntülemek zaten saçma. Bu söylediğim işleyişle ilgili ne tavsiye edersiniz köprü vs herşey olabilir önemli olan çok fazla pdf var onları bir klasörde tutup dilediğimde tek tuşla istediğim kayıttaki pdf yi ekrana getirebilmek derdim.

Bence

Private Sub .....

Dim SPath As String 

With Application.FileDialog(msoFileDialogFolderPicker) 

.Title = "Dosya Seçiniz" 

.AllowMultiSelect = False    'çoklu seçim için True olmalı

.InitialFileName = "C:\xxx\

If .Show Then 

SPath = .SelectedItems(1) 

Me.TextBox = SPath 

Else 

MsgBox "İptal edildi." 

Exit Sub 

End If 

End With 

End Sub

gibi kod ile dosya seçebilir, dosya yolunu bir textboxa atayabilir ve bunu parametre olarak kullanıp istediğiniz şekilde kaydedebilirsiniz. Kontrol noktasında işlem başarılı ise PDF ile alakalı bir görseli de image kontrole yüklersiniz komut olarak illa bir resim gibi eklemeniz gerekiyor ise.

Sn@atoykan kodu çalıştırdığımda Gözat bölümünde seçim yapamıyorum. Bu seçimi yapabilmem için sanırım
Aşağıdaki kodu da kodunuza adapte etmem gerekiyor ama maalesef yapamadım hata alıyorum.

Dim DSec As FileDialog, SPath As String

Set DSec = Application.FileDialog(msoFileDialogFilePicker)

    

DSec.AllowMultiSelect = False

DSec.Title = "Dosya Seçiniz"

DSec.InitialFileName = "C:\"

DSec.Filters.Add "PDF Dosyaları", "*.pdf"

If DSec.Show = -1 Then

SPath = DSec.SelectedItems(1)

Me.TextBox1 = SPath

Else

MsgBox "İptal edildi."

Exit Sub

End If

End Sub

şeklinde uygularsanız pdf dosyaları filtrelenmiş olarak dosya seçebilirsiniz. Ben sehven klasör seçmeye göre yazmışım öncekinde kusura bakmayın.