VBA Hilfe gesucht, Word Datei drucken, Meldung ign
13.06.2005 21:48:56
Andy
Ich habe folgendes Problem, ich möchte gerne den Druck einer Word Datei aus Excel per Befehlsschaltfläche starten. Das funktioniert auch soweit, jedoch bekomme ich immer bei Drucken die Word-Meldung:" Seitenränder außerhalb des Druckbereiches; soll trotzdem gedruck werden" Wenn ich die Meldung bestätige startet der Druck. Ich kann jedoch an der Word Datei nichts ändern, der Druckbereich paßt auch aufs Papier. Daher möchte ich gerne die Meldungen irgendwie ignorieren, kann mir da jemand weiterhelfen?
Hier der Code der Schaltfläche
Private Sub Drucken_Click()
Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open(ThisWorkbook.Path & "\worddatei.doc")
doc.PrintOut
doc.Close
appWord.Quit
Set doc = Nothing
Set appWord = Nothing
End Sub
Danke!