Vba da PDF yazdırma

[heft]

Merhaba
Commandbutton1 e bastığımda
C:\deneme klasörü içindeki 1001.pdf uzantılı dosyanın çıktısını yazıcıya göndermek istiyorum, hangi kodu yazmalıyım, yardımcı olursanız çok sevinirim.
Şimdiden teşekkürler

 

[Hepgel]

Merhaba @heft

Bu şekil denermisiniz.

Sub PDF_YAZDIR()
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

 

[heft]

çok teşekkür ederim

 

[Hepgel]

Rica Ederim. Dönüş yaptığınız için teşekkür ederim.
İyi Çalışmalar.