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
 
 
'Code z.B. in einem Button_Click platzieren
Private Sub Form_Load()
 
   Dim myFile As String
   myFile = "C:\daten\test.doc"
 
   Dim ret As Long
 
   ret = ShellExecute(Me.hwnd, "print", myFile, "", "", 0)
 
End Sub