mit nachstehendem Makro werden diverse Vordrucke über Schaltflächen ausgedruckt,
ohne dass Word geöffnet wird:
Sub Schaltfläche11_BeiKlick()
Dim appWord As Object
Dim doc As Object
On Error Resume Next
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open("C:\test.doc")
doc.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
Nachteilig ist, dass die temporäre Datei "~$test.doc" unter C:\, die beim Aufruf entsteht, nicht wieder geschlossen bzw. gelöscht wird.
Der nächste Benutzer der die test.doc per Makro ausdrucken will erhält somit die Nachricht, dass die Datei sich noch in Verwendung befindet bzw. gesperrt ist.
Da der Vordruck-Ordner immer derselbe ist und die Dateien vorne immer die Bezeichnung ~$ und hinten immer die Endung.doc haben suche ich nach einer Lösung, die das obige Makro dahingehend erweitert, dass unter C:\ Dateien
mit ~$ sucht und löscht.
Um Fehler auszuschließen sollte vorher geprüft werden ob unter C:\ Dateien mit ~$ existieren, falls ja : löschen, falls nein : nichts tun.
Der Dateiname, der je nach Länge unterschiedlich verstümmelt wird, ließe sich
eventuell mit einem * symbolisieren.
Hat jemand von euch eine Lösung parat oder kennt vielleicht ein anderes Makro
mit dem sich Word-Dateien verdeckt ausdrucken lassen (ohne das ~$-Problem)?
Danke schonmal vorab für eure Hilfe!
Gruss
Max