Public 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
 
 

Public Function StartDoc(ByVal DocOrAppName As String, _
                         Optional ByVal ArgumentsOfApp As String = "", _
                         Optional ByVal Pathname As String = "", _
                         Optional ByVal RunCommand As String = "Open", _
                         Optional ByVal fhwnd As Long = 0) As Boolean
 

      Dim tmppath$
      Dim Result&
      Dim Ansicht As Integer
      
      Const SW_Hide = 0
      Const SW_SHOWNORMAL = 1
 
10       On Error GoTo StartDoc_Error
 
          
20        If Pathname = "" Then
30            If InStr(DocOrAppName, "") Then
40                tmppath = Mid(DocOrAppName, 1, _
                            InStrRev(DocOrAppName, "") - 1)
50                Select Case Mid(tmppath, Len(tmppath) - 1, 1)
                      Case ":"
60                        tmppath = tmppath & ""
70                End Select
80                Pathname = tmppath
90            End If
100       End If
 
110       If RunCommand = "Open" Then
120                 Ansicht = SW_SHOWNORMAL
130       Else
140                 Ansicht = SW_Hide
150                 ArgumentsOfApp = vbNullString
160                 Pathname = "C:"
170       End If
180       Result = ShellExecute(fhwnd, RunCommand, DocOrAppName, ArgumentsOfApp, _
                                  Pathname, Ansicht)
190       If Result > 32 Then
200           StartDoc = True
210       Else
                  
220       End If
 
230       Exit Function
 
240      On Error GoTo 0
250      Exit Function
 
StartDoc_Error:
 
260       MsgBox "Fehlernr.: " & Err.Number & " (" & Err.Description & ") in Prozedur StartDoc von Modul mdlGlobal", , "Fehler in Zeile: " & Erl
End Function
 
 

Public Sub Print_all(sPfad as string)
dim sFile as String
dim Result
 
sFile = Dir(sPfad & "*.*")
 
do while sFile""
     Result = StartDoc(sPfad & sFile , , , "Print")
      sFile = Dir()
Loop
 
End Sub
 
 

Call ShellExecute(hWnd, "PrintTo", DocName, sPrinter, Pathname, SW_HIDE)
 
 

call Print_all(myTextbox.text & "")