Depuis access je voudrais imprimer un classeur excel
en utilisant le module ci-apr=E8s (merci Raymond) cela=20
marche sans probl=E8me mais je me pose une question :=20
ne faut-il pas rajouter quelque chose pour dire =E0 excel=20
d'attendre la fin de l'impression avant de fermer ?
Avec une liaison Word j'avais trouv=E9
while objword.BackgroundPrintingStatus <>0
wend
mais cela ne marche pas evec Excel
sur les archives google j'ai trouve :
objExcel.EnableEvents =3D False
objExcel.ActiveWorkbook.PrintOut
objExcel.EnableEvents =3D true
objExcel.ActiveWorkbook.Close
objExcel.Quit
mais que veut dire EnableEvents ?? je ne sais pas si=20
c'est vraiment pour cela
merci de votre aide
MJ
'-----------Module=20
Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur =3D .Workbooks.Open("Classeur1.XLS")
Set XL_Feuille =3D XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
.Select
.PrintOut Copies:=3D1, Collate:=3DTrue
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App =3D Nothing
Set XL_Classeur =3D Nothing
Set XL_Feuille =3D Nothing
End Sub
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
RaphK34
Bonjour,
A priori une fois que le document est dans le Spool d'impression, Excel n'a plus besoin d'être ouvert. Evite de fermer ton OS ça devrait suffire.
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"MJ" a écrit dans le message de news: 8d8a01c4d1ff$4117f010$ Bonjour,
Depuis access je voudrais imprimer un classeur excel en utilisant le module ci-après (merci Raymond) cela marche sans problème mais je me pose une question : ne faut-il pas rajouter quelque chose pour dire à excel d'attendre la fin de l'impression avant de fermer ?
Avec une liaison Word j'avais trouvé while objword.BackgroundPrintingStatus <>0 wend mais cela ne marche pas evec Excel
sur les archives google j'ai trouve : objExcel.EnableEvents = False objExcel.ActiveWorkbook.PrintOut objExcel.EnableEvents = true objExcel.ActiveWorkbook.Close objExcel.Quit mais que veut dire EnableEvents ?? je ne sais pas si c'est vraiment pour cela
merci de votre aide MJ
'-----------Module Private Sub Commande0_Click() Dim XL_App As New Excel.Application Dim XL_Classeur As Object Dim XL_Feuille As Object With XL_App Set XL_Classeur = .Workbooks.Open("Classeur1.XLS") Set XL_Feuille = XL_Classeur.Sheets("Avril 2003") With XL_Feuille .Select .PrintOut Copies:=1, Collate:=True End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing End Sub
Bonjour,
A priori une fois que le document est dans le Spool d'impression, Excel n'a plus besoin d'être ouvert. Evite de fermer ton OS ça
devrait suffire.
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------
"MJ" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 8d8a01c4d1ff$4117f010$a601280a@phx.gbl...
Bonjour,
Depuis access je voudrais imprimer un classeur excel
en utilisant le module ci-après (merci Raymond) cela
marche sans problème mais je me pose une question :
ne faut-il pas rajouter quelque chose pour dire à excel
d'attendre la fin de l'impression avant de fermer ?
Avec une liaison Word j'avais trouvé
while objword.BackgroundPrintingStatus <>0
wend
mais cela ne marche pas evec Excel
sur les archives google j'ai trouve :
objExcel.EnableEvents = False
objExcel.ActiveWorkbook.PrintOut
objExcel.EnableEvents = true
objExcel.ActiveWorkbook.Close
objExcel.Quit
mais que veut dire EnableEvents ?? je ne sais pas si
c'est vraiment pour cela
merci de votre aide
MJ
'-----------Module
Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("Classeur1.XLS")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
.Select
.PrintOut Copies:=1, Collate:=True
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub
A priori une fois que le document est dans le Spool d'impression, Excel n'a plus besoin d'être ouvert. Evite de fermer ton OS ça devrait suffire.
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"MJ" a écrit dans le message de news: 8d8a01c4d1ff$4117f010$ Bonjour,
Depuis access je voudrais imprimer un classeur excel en utilisant le module ci-après (merci Raymond) cela marche sans problème mais je me pose une question : ne faut-il pas rajouter quelque chose pour dire à excel d'attendre la fin de l'impression avant de fermer ?
Avec une liaison Word j'avais trouvé while objword.BackgroundPrintingStatus <>0 wend mais cela ne marche pas evec Excel
sur les archives google j'ai trouve : objExcel.EnableEvents = False objExcel.ActiveWorkbook.PrintOut objExcel.EnableEvents = true objExcel.ActiveWorkbook.Close objExcel.Quit mais que veut dire EnableEvents ?? je ne sais pas si c'est vraiment pour cela
merci de votre aide MJ
'-----------Module Private Sub Commande0_Click() Dim XL_App As New Excel.Application Dim XL_Classeur As Object Dim XL_Feuille As Object With XL_App Set XL_Classeur = .Workbooks.Open("Classeur1.XLS") Set XL_Feuille = XL_Classeur.Sheets("Avril 2003") With XL_Feuille .Select .PrintOut Copies:=1, Collate:=True End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing End Sub
