title image


Smiley Hab ich mich verleiten lassen...
Hi,



...,weil du das Dokument als Object vorgegeben hattest.

Die PrintOut-Methode gehört aber zum Application-Objekt!



Heisst in deinem Fall statt Doc.PrintOut - appWord.PrintOut



PS: Zum Testen ist es besser die Fehlerroutine ändern(auch wenn in deinem Fall auf ein evtl.geöffnetes Word-Object zugegriffen wird). Dann wird dir auch der Fehler angezeigt!



zum Test beispielsweise:





Sub drucken()

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")

On Error GoTo Fehler

Set doc = appWord.Documents.Open("c:\Dok01.doc")



With appWord

.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _

        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _

        Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=2, _

        PrintZoomRow:=1, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

End With



doc.Close

Set doc = Nothing

appWord.Quit

Set appWord = Nothing

Exit Sub

Fehler:

MsgBox Err.Number & ":" & Err.Description

Set doc = Nothing

appWord.Quit

Set appWord = Nothing

End Sub 
Der Zugvogel
(mIsCHa Reichelt)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: