Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hWnd _
  As Long, ByRef lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess _
As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As _
Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) _
As Long
Private Const PROCESS_TERMINATE As Long = (&H1)
Private Declare Function WaitForSingleObject Lib _
  "kernel32" (ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000
 
Public Function WaitForProceed(ByVal sFile As String, _
  ByVal wStyle As VbAppWinStyle) As Long
 
  Dim taskID As Long
  Dim Handle As Long
 
  taskID = Shell(sFile, wStyle)
  WaitForProceed = taskID
  Handle = OpenProcess(SYNCHRONIZE, False, taskID)
  Call WaitForSingleObject(Handle, INFINITE)
  Call CloseHandle(Handle)
End Function
 
Public Sub PrintFile(sFile As String)
Dim ap As String
 
ap = RegRead("HKEY_CLASSES_ROOT\AcroExch.Document.7\shell\Print\command\")
ap = Replace(ap, "%1", sFile)
 
Dim h As Long
h = Shell(ap, vbNormalFocus)
 
GetWindowThreadProcessId h, h
h = OpenProcess(PROCESS_TERMINATE, True, h)
TerminateProcess h, 0
CloseHandle h
End Sub
 
Public 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

    strKeys = GetIniString("files", "file1", "", INIFile, 32767)
    If Not strKeys = "" Then
        Label4.Caption = strKeys
        Label6.Caption = "wird gedruckt..."
        PrintFile App.Path & "\data\" & strKeys
     End if

Dinge sind nur solange unm?glich, bis sie es nicht mehr sind.