Klasörde hazır olan pdf dosyaları varsayılan yazıcıya gönderme

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Klasörde hazır olan pdf dosyaları varsayılan yazıcıya gönderme konusunda örnek bir makroya ihtiyacım var.
Saygılarımla

 

[muhasebeciyiz]

Private Declare PtrSafe 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 YaziciyaGonder()
Dim DosyaYolu As String
Dim DosyaAdi As String
Dim KlasorYolu As String
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim RetVal As Long

KlasorYolu = "C:\Users\Administrator\Desktop\tüfek\deneme\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(KlasorYolu)

For Each objFile In objFolder.Files
If objFSO.GetExtensionName(objFile.Path) = "pdf" Then
DosyaYolu = objFile.Path
DosyaAdi = objFSO.GetFileName(objFile)

RetVal = ShellExecute(0, "Print", DosyaYolu, vbNullString, vbNullString, 0)

If RetVal > 32 Then
Debug.Print "Yazdırılan Dosya: " & DosyaAdi
Else

MsgBox "Yazdırma işlemi başarısız oldu: " & DosyaAdi
End If
End If
Next objFile

Set objFSO = Nothing
Set objFolder = Nothing
Set objFile = Nothing
End Sub

Denermisiniz.

 

[Tevfik_Kursun]

Çok teşekkür ederim.
Saygılarımla