Vba ile toplu çıktı alma

[spasmex97]

Arkadaşlar bir excel çalışma kitabında =KÖPRÜ işlevi ile bağlanmış kodlarım var, bunları yan sayfaya sadece köprülenmiş kod olarak aktarıyorum, bu köprü kurulmuş bağlantılar .pdf dosyaları, bunları tek seferde çıktı almak istiyorum nasıl yapabilirim?

 

[Korhan Ayhan]

Arşiv konularını inceleyiniz..

Arşiv Konuları

 

[spasmex97]

Arşiv konularını inceleyiniz..

Arşiv Konuları

maalesef tam aradığım değil

 

[Korhan Ayhan]

Amacım paylaşılan kodları kendi isteğinize göre derleyip kullanmanız şeklindeydi..

Yani pişmiş balık vermek istemedim..

 

[spasmex97]

Amacım paylaşılan kodları kendi isteğinize göre derleyip kullanmanız şeklindeydi..

Yani pişmiş balık vermek istemedim..

acrobat reader programı mevcut değil, bu yüzden bana uygun gibi görünen bir yöntemi kullanamıyorum, ayrıca, arkadaşların .pdf uzantılı dosya adıyla, aradığı "ad" eşleşmiş şekilde, benimkinin farklı, 123456 adlı projeye 123154sdf.pdf diye bir dosya bağlamış olabiliyorum

 

[Korhan Ayhan]

Siz linki alabilecek kodu bulduktan sonra linkteki Zeki beyin önerdiği kodu döngü ile birleştirip rahatlıkla kullanabilirsiniz.

Pdf dosyası yazdırma

Merhaba ben çok iyi bir access kullanıcısı değilim. Ancak 7,8 adet pdf dosyasını bir tıkla yazdırmak istiyourm. Yani access te bir sayfada sadece butona basarak pdf te bulunan bilgileri yazdırmak istiyorum. Yapabilecek arkadaşlar örnek le yardımcı olabilirmi. saygılarımla.

www.excel.web.tr

 

[spasmex97]

Siz linki alabilecek kodu bulduktan sonra linkteki Zeki beyin önerdiği kodu döngü ile birleştirip rahatlıkla kullanabilirsiniz.

Pdf dosyası yazdırma

Merhaba ben çok iyi bir access kullanıcısı değilim. Ancak 7,8 adet pdf dosyasını bir tıkla yazdırmak istiyourm. Yani access te bir sayfada sadece butona basarak pdf te bulunan bilgileri yazdırmak istiyorum. Yapabilecek arkadaşlar örnek le yardımcı olabilirmi. saygılarımla.

www.excel.web.tr

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub PDF_Yazdir()
Dim lRet As Long

lRet = ShellExecute(0, "print", ThisWorkbook.Path & "\deneme.pdf", "", "", 0)
End Sub

Zeki Bey in kodundan alıntı yaparak, Function kısmına PtrSafe tanımlamasını eklememi istiyor
anlayamadığım kısımsa, hücrelerde herhangi bir hyperlink aramıyor, nasıl benim köprü kurduğum .pdf dosyalarını çıkartacak?
"this code needs to be updated hatasını aşamıyorum "

 

[Korhan Ayhan]

Zeki bey tek bir dosya için örnek vermiş..

Siz öncelikle hücredeki dosya adresini bulan kodu halletmeniz lazım. Forumda arama yaparsanız ulaşabilirsiniz.

Sonrasında bu kodu döngü haline getirmelisiniz ki tüm satırları işleme alsın. En son olarak bu döngü arasına Zeki beyin yazdırma kodunu entegre edip kullanabilirsiniz.

 

[spasmex97]

Zeki bey tek bir dosya için örnek vermiş..

Siz öncelikle hücredeki dosya adresini bulan kodu halletmeniz lazım. Forumda arama yaparsanız ulaşabilirsiniz.

Sonrasında bu kodu döngü haline getirmelisiniz ki tüm satırları işleme alsın. En son olarak bu döngü arasına Zeki beyin yazdırma kodunu entegre edip kullanabilirsiniz.

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

kısmını yazdığımda "Constants, fixed-lenght strings, arrays, user-defined types and Declare statements are not allowed as Public members of object modules" hatasını alıyorum