Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access erreur d'execution 4605

erreur d'execution 4605

1 réponse
Avatar
xavier
bonjour a tous

je veux simplement imprimer un document word a partir
d'une fonction
j'ai l'erreur suivante:

erreur d'execution 4605
cette methode ou propriete n'est pas disponible car une
fenetre de document n'est pas active

voici mon code:
Function livret()

Dim mywrd As Object
Set mywrd = CreateObject("Word.Application")


mywrd.Application.PrintOut
FileName:="C:\testlivret.doc", Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
Collate:=False, Background:=True,
PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0,
PrintZoomPaperHeight:=0

mywrd.Quit

Set mywrd = Nothing

End Function

merci de votre aide
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.
tu fais comme il te dit.

mywrd.Documents.Open ("C:testlivret.doc")
mywrd.PrintOut .........................

mywrd.PrintOut
Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
Collate:úlse, Background:=True,
PrintToFile:úlse, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0,
PrintZoomPaperHeight:=0



--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"xavier" a écrit dans le message de
news:1d5901c3e034$4d5ede50$
bonjour a tous

je veux simplement imprimer un document word a partir
d'une fonction
j'ai l'erreur suivante:

erreur d'execution 4605
cette methode ou propriete n'est pas disponible car une
fenetre de document n'est pas active

voici mon code:
Function livret()

Dim mywrd As Object
Set mywrd = CreateObject("Word.Application")


mywrd.Application.PrintOut
FileName:="C:testlivret.doc", Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
Collate:úlse, Background:=True,
PrintToFile:úlse, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0,
PrintZoomPaperHeight:=0

mywrd.Quit

Set mywrd = Nothing

End Function

merci de votre aide