Folgendes Problem, nach dem ich hier schon ne Weile gesucht habe, aber nicht das passende gefunden habe.
Public Sub DRUCK03()
'DRUCK VERPACKUNGSANWEISUNG WORD
Dim lloProg As Long
With Application.FileSearch
.NewSearch
.LookIn = "G:\1005 DOKUMENTE\VERPACKUNGSANWEISUNGEN\"
.SearchSubFolders = True
.MatchTextExactly = True
.Filename = Range("B11:B11").Value & ".doc"
If .Execute() Then
lloProg = Shell("C:\Programme\Microsoft Office\OFFICE11\WINWORD.exe " & Chr(34) _
_
& .FoundFiles(1) & Chr(34))
End If
End With
End Sub
So suche ich eine Word Datei in Excel und öffne diese. Funktioniert super.
Jetzt meine Frage, habe ich eine Möglichkeit diese gleich automatisiert auszudrucken?
Und wenn noch folgendes funktionieren würde, wäre es klasse:
In Zelle I19 steht eine Zahl (die eigentliche Anzahl der benötigten Ausdrucke
Copies:= Range(I19) Kann man das auch noch irgendwie mit einfügen?
Wenn es sich um eine Exceldatei handelt, schaffe ich das, aber bei einem Worddokument, streiche ich die Segel.
Wäre nett wenn jemand helfen könnte
Gruß Gerhard