Druck Papierschacht 2
17.08.2004 14:42:40
Sandra
mit folgendem Makro versuche ich vergeblich, ein Worddokument aus Schacht 2, drucken zu lassen:
Sub Druck_aus_Word()
Dim wdApp As Object
Dim wdDoc As Object
Dim sFile As String
sFile = "G:\...\...doc"
If Dir(sFile) = "" Then
MsgBox "Datei wurde nicht gefunden"
Else
Set wdApp = CreateObject("Word.Application.9")
wdApp.Visible = False
Set wdDoc = wdApp.documents.Open(sFile)
Range("C8:J8").Copy
wdDoc.Range.Paste
'schacht 2 wählen
Application.SendKeys "%di%o^{tab}{enter 2}"
wdDoc.PrintOut Copies:=1
Application.Wait Now + TimeSerial(0, 0, 5)
wdDoc.Close savechanges:=False
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
Application.CutCopyMode = False
End If
End Sub
Das Dokument wird zwar in die Druckerwarteschlange eingetragen, jedoch nicht gedruckt.
Wer kann helfen?
Grüßle Sandra