dosya içindeki pdf lerin hepsini yazdırabilmek

[KuTuKa]

Merhaba Arkadaşlar

excel.web.tr de buldğum kodu kendimde denedim ama başarılı olamadım.
istediğim excelde makro çalışınca bir doya içindeki tüm pdf leri yazdırabilmek.ama aşağıdaki makro hata vermektedir. hatayı jpg olarak ekledim.başka bir yolu varsa onuda söyleyebilirsiniz.


#If Win64 Then
Declare PtrSafe Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#Else
Declare Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
Option Explicit

Private 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

Private Const SW_HIDE As Long = 0
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWMINIMIZED As Long = 2


Sub Yazdir()
ShellExecute Application.hwnd, "open", " C:\Users\halil.kutuka\Documents\1-Personel İşlemleri\Torba Yasa\Kasım 2017\4447-10", vbNullString, " C:\Users\halil.kutuka\Documents\1-Personel İşlemleri\Torba Yasa\Kasım 2017\4447-10", SW_SHOWNORMAL
ShellExecute Application.hwnd, "print", " C:\Users\halil.kutuka\Documents\1-Personel İşlemleri\Torba Yasa\Kasım 2017\4447-10", vbNullString, " C:\Users\halil.kutuka\Documents\1-Personel İşlemleri\Torba Yasa\Kasım 2017\4447-10", SW_SHOWNORMAL
End Sub

 

[Asri]

Bu konudaki kodlarını kullanabilirsiniz.

http://www.excel.web.tr/f48/kapaly-dosyalarda-yazdyrmak-t168646.html#post920193