[size=10][COLOR=#0000ff]
For[/COLOR][/SIZE][size=10] i = 1 [/SIZE][size=10][COLOR=#0000ff]To[/COLOR][/SIZE][size=10] anzahl
lblstatus.Text = "Status: Drucke Etikett " + i.ToString + " von " + AnzEt.Text
[/SIZE][size=10][COLOR=#0000ff]Me[/COLOR][/SIZE][size=10].Refresh()
[/SIZE][size=10][COLOR=#008000]'p = Process.Start("C:\Programme\Adobe\Acrobat 7.0\Reader\acrord32.exe", "/t ""d:\fooo.pdf"" ""\\sc-server2000\Etikettendrucker cab e4/200""")
[/COLOR][/SIZE][size=10]Console.WriteLine(myDocPrinter)
p = Process.Start(ReaderPath, "/t " + DwnldPath + " " + myDocPrinter)
[/SIZE][size=10][COLOR=#008000]'p.PriorityClass = ProcessPriorityClass.RealTime
[/COLOR][/SIZE][size=10]PBar.Value = 100 / anzahl * i
p.WaitForInputIdle()
[/SIZE]

[size=10][COLOR=#0000ff]
Const[/COLOR][/SIZE][size=10] PNAME [/SIZE][size=10][COLOR=#0000ff]As[/COLOR][/SIZE][size=10] [/SIZE][size=10][COLOR=#0000ff]String[/COLOR][/SIZE][size=10] = "acrord32"
[/SIZE][size=10][COLOR=#0000ff]Dim[/COLOR][/SIZE][size=10] a [/SIZE][size=10][COLOR=#0000ff]As[/COLOR][/SIZE][size=10] System.Diagnostics.Process
[/SIZE][size=10][COLOR=#0000ff]Dim[/COLOR][/SIZE][size=10] aa [/SIZE][size=10][COLOR=#0000ff]As[/COLOR][/SIZE][size=10] System.Diagnostics.Process()
[/SIZE][size=10][COLOR=#008000]' --- Prozesse dieses Namens ermitteln
[/COLOR][/SIZE][size=10]aa = Process.GetProcessesByName(PNAME)
[/SIZE][size=10][COLOR=#008000]' --- Schleife über diese Prozesse
[/COLOR][/SIZE][size=10][/SIZE][size=10][COLOR=#0000ff]For[/COLOR][/SIZE][size=10] [/SIZE][size=10][COLOR=#0000ff]Each[/COLOR][/SIZE][size=10] a [/SIZE][size=10][COLOR=#0000ff]In[/COLOR][/SIZE][size=10] aa
[/SIZE][size=10][COLOR=#008000]' --- Beenden-Anfrage stellen...
[/COLOR][/SIZE][size=10][/SIZE][size=10][COLOR=#0000ff]If[/COLOR][/SIZE][size=10] a.CloseMainWindow [/SIZE][size=10][COLOR=#0000ff]Then
[/COLOR][/SIZE][size=10][/SIZE][size=10][COLOR=#008000]' --- Normales Ende
[/COLOR][/SIZE][size=10][/SIZE][size=10][COLOR=#0000ff]Else
[/COLOR][/SIZE][size=10][/SIZE][size=10][COLOR=#008000]' --- Keine Reaktion -> gewaltsames Ende
[/COLOR][/SIZE][size=10]a.Kill()
[/SIZE][size=10][COLOR=#0000ff]End[/COLOR][/SIZE][size=10] [/SIZE][size=10][COLOR=#0000ff]If
[/COLOR][/SIZE]