J'ai essayé ce petit code dans une macro sur excel (2003):
Code :
MsgBox Excel.Application.ActivePrinter
Excel.Application.ActivePrinter = "\\twist\DSc435 on Ne03:"
MsgBox Excel.Application.ActivePrinterCette petite macro fonctionne bien
dans excel. Je voudrais utiliser ce même code dans access (2003), mais, j'ai
l'erreur suivante:
Run time error '1004'
Method 'ActivePrinter' of object'_Application'failed à la ligne
Excel.Application.ActivePrinter = "\\twist\DSc435 on Ne03:"
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
CErnst
Il n'y a pas de propriété ActivePrinter dans Access Regardez dans l'aide les propriétés Printer et Printers de l'objet Application
"obelix1990" a écrit dans le message de news:
Bonjour;
J'ai essayé ce petit code dans une macro sur excel (2003):
Code : MsgBox Excel.Application.ActivePrinter Excel.Application.ActivePrinter = "twistDSc435 on Ne03:" MsgBox Excel.Application.ActivePrinterCette petite macro fonctionne bien dans excel. Je voudrais utiliser ce même code dans access (2003), mais, j'ai l'erreur suivante:
Run time error '1004' Method 'ActivePrinter' of object'_Application'failed à la ligne Excel.Application.ActivePrinter = "twistDSc435 on Ne03:"
Il n'y a pas de propriété ActivePrinter dans Access
Regardez dans l'aide les propriétés Printer et Printers de l'objet
Application
"obelix1990" <obelix1990@discussions.microsoft.com> a écrit dans le message
de news: 74D088DF-72C0-4E83-A06D-CAE176179D78@microsoft.com...
Bonjour;
J'ai essayé ce petit code dans une macro sur excel (2003):
Code :
MsgBox Excel.Application.ActivePrinter
Excel.Application.ActivePrinter = "\twistDSc435 on Ne03:"
MsgBox Excel.Application.ActivePrinterCette petite macro fonctionne bien
dans excel. Je voudrais utiliser ce même code dans access (2003), mais,
j'ai
l'erreur suivante:
Run time error '1004'
Method 'ActivePrinter' of object'_Application'failed à la ligne
Excel.Application.ActivePrinter = "\twistDSc435 on Ne03:"
Il n'y a pas de propriété ActivePrinter dans Access Regardez dans l'aide les propriétés Printer et Printers de l'objet Application
"obelix1990" a écrit dans le message de news:
Bonjour;
J'ai essayé ce petit code dans une macro sur excel (2003):
Code : MsgBox Excel.Application.ActivePrinter Excel.Application.ActivePrinter = "twistDSc435 on Ne03:" MsgBox Excel.Application.ActivePrinterCette petite macro fonctionne bien dans excel. Je voudrais utiliser ce même code dans access (2003), mais, j'ai l'erreur suivante:
Run time error '1004' Method 'ActivePrinter' of object'_Application'failed à la ligne Excel.Application.ActivePrinter = "twistDSc435 on Ne03:"
Bonjour CErnst, Il est exact que dans Access il n'y a pas de propriété ActivePrinter, mais cette propriété existe dans la collection Excel et Word, c'est pourquoi j'avais utilisé la commande "Excel.Application...". La commande semblait fonctionner puisqu'elle me renvoyait bien le nom de l'imprimante active.
Pour palier ce problème et changer l'imprimante utilisée à ma guise j'ai trouvé la solution suivante (qui change l'imprimante par défaut avec la dll de windows):
' Change l'imprimante par defaut ' ------------------------------------
' Remet l'imprimante par defaut ' -----------------------------------
Shell ("c:windowssystem32rundll32 printui.dll,PrintUIEntry /y /n " + Chr(34) + NomImprimanteAvant + Chr(34)) Cette solution est fonctionnelle, ne prend qu'une ligne et convient parfaitement pour mon application.
Merci pour la réponse....
"CErnst" a écrit :
Il n'y a pas de propriété ActivePrinter dans Access Regardez dans l'aide les propriétés Printer et Printers de l'objet Application
"obelix1990" a écrit dans le message de news: > Bonjour; > > J'ai essayé ce petit code dans une macro sur excel (2003): > > > Code : > MsgBox Excel.Application.ActivePrinter > Excel.Application.ActivePrinter = "twistDSc435 on Ne03:" > MsgBox Excel.Application.ActivePrinterCette petite macro fonctionne bien > dans excel. Je voudrais utiliser ce même code dans access (2003), mais, > j'ai > l'erreur suivante: > > Run time error '1004' > Method 'ActivePrinter' of object'_Application'failed à la ligne > Excel.Application.ActivePrinter = "twistDSc435 on Ne03:" > > Pouvez-vous m'aider? > > Merci > > PS la macro suivante fonctionne aussi sous word > > > Code : > MsgBox Excel.Application.ActivePrinter > ActivePrinter = "twistDSc435 on Ne03:" > MsgBox Word.ActivePrinter >
Bonjour CErnst,
Il est exact que dans Access il n'y a pas de propriété ActivePrinter, mais
cette propriété existe dans la collection Excel et Word, c'est pourquoi
j'avais utilisé la commande "Excel.Application...". La commande semblait
fonctionner puisqu'elle me renvoyait bien le nom de l'imprimante active.
Pour palier ce problème et changer l'imprimante utilisée à ma guise j'ai
trouvé la solution suivante (qui change l'imprimante par défaut avec la dll
de windows):
' Change l'imprimante par defaut
' ------------------------------------
' Remet l'imprimante par defaut
' -----------------------------------
Shell ("c:windowssystem32rundll32 printui.dll,PrintUIEntry /y /n " +
Chr(34) + NomImprimanteAvant + Chr(34))
Cette solution est fonctionnelle, ne prend qu'une ligne et convient
parfaitement pour mon application.
Merci pour la réponse....
"CErnst" a écrit :
Il n'y a pas de propriété ActivePrinter dans Access
Regardez dans l'aide les propriétés Printer et Printers de l'objet
Application
"obelix1990" <obelix1990@discussions.microsoft.com> a écrit dans le message
de news: 74D088DF-72C0-4E83-A06D-CAE176179D78@microsoft.com...
> Bonjour;
>
> J'ai essayé ce petit code dans une macro sur excel (2003):
>
>
> Code :
> MsgBox Excel.Application.ActivePrinter
> Excel.Application.ActivePrinter = "\twistDSc435 on Ne03:"
> MsgBox Excel.Application.ActivePrinterCette petite macro fonctionne bien
> dans excel. Je voudrais utiliser ce même code dans access (2003), mais,
> j'ai
> l'erreur suivante:
>
> Run time error '1004'
> Method 'ActivePrinter' of object'_Application'failed à la ligne
> Excel.Application.ActivePrinter = "\twistDSc435 on Ne03:"
>
> Pouvez-vous m'aider?
>
> Merci
>
> PS la macro suivante fonctionne aussi sous word
>
>
> Code :
> MsgBox Excel.Application.ActivePrinter
> ActivePrinter = "\twistDSc435 on Ne03:"
> MsgBox Word.ActivePrinter
>
Bonjour CErnst, Il est exact que dans Access il n'y a pas de propriété ActivePrinter, mais cette propriété existe dans la collection Excel et Word, c'est pourquoi j'avais utilisé la commande "Excel.Application...". La commande semblait fonctionner puisqu'elle me renvoyait bien le nom de l'imprimante active.
Pour palier ce problème et changer l'imprimante utilisée à ma guise j'ai trouvé la solution suivante (qui change l'imprimante par défaut avec la dll de windows):
' Change l'imprimante par defaut ' ------------------------------------
' Remet l'imprimante par defaut ' -----------------------------------
Shell ("c:windowssystem32rundll32 printui.dll,PrintUIEntry /y /n " + Chr(34) + NomImprimanteAvant + Chr(34)) Cette solution est fonctionnelle, ne prend qu'une ligne et convient parfaitement pour mon application.
Merci pour la réponse....
"CErnst" a écrit :
Il n'y a pas de propriété ActivePrinter dans Access Regardez dans l'aide les propriétés Printer et Printers de l'objet Application
"obelix1990" a écrit dans le message de news: > Bonjour; > > J'ai essayé ce petit code dans une macro sur excel (2003): > > > Code : > MsgBox Excel.Application.ActivePrinter > Excel.Application.ActivePrinter = "twistDSc435 on Ne03:" > MsgBox Excel.Application.ActivePrinterCette petite macro fonctionne bien > dans excel. Je voudrais utiliser ce même code dans access (2003), mais, > j'ai > l'erreur suivante: > > Run time error '1004' > Method 'ActivePrinter' of object'_Application'failed à la ligne > Excel.Application.ActivePrinter = "twistDSc435 on Ne03:" > > Pouvez-vous m'aider? > > Merci > > PS la macro suivante fonctionne aussi sous word > > > Code : > MsgBox Excel.Application.ActivePrinter > ActivePrinter = "twistDSc435 on Ne03:" > MsgBox Word.ActivePrinter >
