Private Sub Command1_Click()
PrintFile "C:\Dokumente und Einstellungen\Lukas\Desktop\coruce.pdf"
End Sub
 
Public Sub PrintFile(sFile As String)
Dim ap As String
 
' Pfad Des Acrobat Readers emitteln:
ap = RegRead("HKEY_CLASSES_ROOT\AcroExch.Document.7\shell\Print\command\")
' Wenn du einen anderen Dateityp drucken willst musst du natürlich den 
' auszulesenden Pfad
' hier ändern
 
' Mit deinem Dateipfad füllen:
ap = Replace(ap, "%1", sFile)
 
' Programm starten und Datei drucken
Shell ap, vbNormalFocus
End Sub
 
Private Function RegRead(Path As String) As String
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
  Exit Function
 
ErrHandler:
  RegRead = ""
End Function