D: ' de olan Pdf veya Word belgesini yazdırma yardım!

[power468]

UserForm üzerinde bir CommaButton butonuna tıkladığımızda Yerel disk D: olan Tutanak Klasörü içindeki Depolar "Pdf veya Word" belgesini mümkünse açmadan yazdırmasını sağlayacak şekilde bir kod varmı? Formda ve başka sitelerde bir kaçtane kod buldum ama olmadı hatalar veriyor. Bu konuda yardımcı olursanız çok sevinirim.

 

[u.L.a.s]

Merhaba

aşağıdaki linkte bahsettiğine benzer konu mevcut. yalnız sadece pdf dosya için geçerli. birde o klasör içerisinde kaç tane pdf dosya varsa hepsini yazdırabiliyor. o yüzden birebir belirtilen dosya adını yazdırmak için revizyon gerekecek. benim o kadar bilgim yok. ama bu kodlar belki yardımcı olur sana.

https://www.excel.web.tr/threads/klasoerden-pdf-leri-acmadan-direk-yazdirma.156670/

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

Sub Emre()
    On Local Error Resume Next
    Dim evn As Object, pdfler As Object
    Set evn = CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path)
    For Each pdfler In evn.Files
        If LCase(Right(pdfler.Path, 3)) = "pdf" Then
            ShellExecute 0, "Print", pdfler, "", "", vbNormalNoFocus
            Application.Wait Now + TimeSerial(0, 0, 2)
        End If
    Next pdfler
    Set pdfler = Nothing: Set evn = Nothing
End Sub

 

[power468]

teşekkür ederim. Deneyecem