PDF dosyasını yazdır

[kolay_ik]

Merhaba
Aşağıdaki kod yardımıyla belirtilen konumdaki pdf dosyasını açıyorum. Bu işlevi yazdır komutuyla nasıl desteklerim? Yani açtığı pdf dosyasını sonrasında yazdıracak ve yazdırma işlemi sonrasında pdf dosyasını kapatacak. Şimdiden teşekkürler.

Private Sub CommandButton11_Click()

klasör = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
dosya_adi = klasör & "\" & TextBox2.Text & ".pdf"

If CreateObject("Scripting.FileSystemObject").FileExists(dosya_adi) = False Then
MsgBox "pdf dosyası yok"
End If

If dosya_adi <> "" Then
CreateObject("Shell.Application").Open (dosya_adi)
End If


End Sub

 

[muhasebeciyiz]

Sub pdfyaz()
yolveisim = ThisWorkbook.Path & "\" & "PDF_BELGENİN_ADI.pdf"
If Dir(yolveisim) <> "" Then _
CreateObject("Shell.Application").Namespace(0).ParseName(yolveisim).InvokeVerb ("Print")
If Dir(yolveisim) = "" Then: MsgBox yolveisim & vbCr & vbCr & "dosyası bulunamadı !", vbCritical
End Sub

 

[kolay_ik]

Teşekkürler.