shell Problem ( @Nepumuk )
11.03.2004 23:10:52
Jorainbo
vor einiger Zeit hast Du mir mal was gepostet, um in einer Listbox angezeigte pdf's zu öffnen:
https://www.herber.de/forum/archiv/384to388/t385716.htm
Die Funktion beschreibt für mich zwar nur böhmische Dörfer, funktioniert aber prima !
Nun, da ich die pdf's anschließend ausdrucke (es handelt sich um Zeichnungsdateien),
habe ich das Schlüsselwort "open" mal gegen "print" getauscht, funktioniert auch.
Jedoch bleibt nach Ausführung des codes das AcroReader-Fenster aktiv, ich möchte aber wieder zurück zu Excel.
AppActivate Excel - MeineDatei funktioniert nicht, weil der code längst durchlaufen ist bis der Reader überhaupt zu drucken anfängt.
Besteht eine Möglichkeit im Hintergrund zu drucken ?
Oder kann man das Ereignis "Sicht wechselt zu AcroReader" irgendwie wahrnehmen ?
Liegt der Schlüssel gar in der Variablen "lpnShowCmd=3" am Ende des ShellExecute-Befehls ?
Mein code sieht so aus (Function wie oben):
Private Sub CommandButton1_Click()
Dim i
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
ShellExecute 0, "print", .List(i), "", .List(i, 1), 3
End If
Next i
End With
End Sub
Vielen Dank schonmal für jede Hilfe
Gruß
Tom