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
Salut, je ne suis pas sûr que tu sois dans le bon NG!
Mais perso en VBA j'utilise:
Sub test() Dim prtDefault As Printer Set Application.Printer = Application.Printers(0) Set prtDefault = Application.Printer DoCmd.OpenReport "Test" End sub
à toi de faire varier ton N° d'imprimante! -- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"Rénald" <Ré a écrit dans le message de news:
| Hello, | | Comment puis-je définir une macro qui pointe vers une autre imprimante que | celle définie par défaut dans l'OS ? | | J'ai essayé : | | Sub test() | Application.ActivePrinter = "Fax" | Application.PrintOut | End Sub | | | Mais pas de résultat | | Salutations | | | Rénald | |
Salut, je ne suis pas sûr que tu sois dans le bon NG!
Mais perso en VBA j'utilise:
Sub test()
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(0)
Set prtDefault = Application.Printer
DoCmd.OpenReport "Test"
End sub
à toi de faire varier ton N° d'imprimante!
--
@+ Raph.
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------
"Rénald" <Rénald@discussions.microsoft.com> a écrit dans le message de news:
85E86751-F667-4CA7-91EC-37B7F7D614D6@microsoft.com...
| Hello,
|
| Comment puis-je définir une macro qui pointe vers une autre imprimante que
| celle définie par défaut dans l'OS ?
|
| J'ai essayé :
|
| Sub test()
| Application.ActivePrinter = "\Fax"
| Application.PrintOut
| End Sub
|
|
| Mais pas de résultat
|
| Salutations
|
|
| Rénald
|
|
Salut, je ne suis pas sûr que tu sois dans le bon NG!
Mais perso en VBA j'utilise:
Sub test() Dim prtDefault As Printer Set Application.Printer = Application.Printers(0) Set prtDefault = Application.Printer DoCmd.OpenReport "Test" End sub
à toi de faire varier ton N° d'imprimante! -- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"Rénald" <Ré a écrit dans le message de news:
| Hello, | | Comment puis-je définir une macro qui pointe vers une autre imprimante que | celle définie par défaut dans l'OS ? | | J'ai essayé : | | Sub test() | Application.ActivePrinter = "Fax" | Application.PrintOut | End Sub | | | Mais pas de résultat | | Salutations | | | Rénald | |
Rénald
Hello,
Très gentil à toi, seulement le script ne semble pas fonctionner.
En fait je reçois l'erreur 438 .
J'utilise outlook 2003
a+
Rénald
"RaphK34" wrote:
Salut, je ne suis pas sûr que tu sois dans le bon NG!
Mais perso en VBA j'utilise:
Sub test() Dim prtDefault As Printer Set Application.Printer = Application.Printers(0) Set prtDefault = Application.Printer DoCmd.OpenReport "Test" End sub
à toi de faire varier ton N° d'imprimante! -- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"Rénald" <Ré a écrit dans le message de news:
| Hello, | | Comment puis-je définir une macro qui pointe vers une autre imprimante que | celle définie par défaut dans l'OS ? | | J'ai essayé : | | Sub test() | Application.ActivePrinter = "Fax" | Application.PrintOut | End Sub | | | Mais pas de résultat | | Salutations | | | Rénald | |
Hello,
Très gentil à toi, seulement le script ne semble pas fonctionner.
En fait je reçois l'erreur 438 .
J'utilise outlook 2003
a+
Rénald
"RaphK34" wrote:
Salut, je ne suis pas sûr que tu sois dans le bon NG!
Mais perso en VBA j'utilise:
Sub test()
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(0)
Set prtDefault = Application.Printer
DoCmd.OpenReport "Test"
End sub
à toi de faire varier ton N° d'imprimante!
--
@+ Raph.
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------
"Rénald" <Rénald@discussions.microsoft.com> a écrit dans le message de news:
85E86751-F667-4CA7-91EC-37B7F7D614D6@microsoft.com...
| Hello,
|
| Comment puis-je définir une macro qui pointe vers une autre imprimante que
| celle définie par défaut dans l'OS ?
|
| J'ai essayé :
|
| Sub test()
| Application.ActivePrinter = "\Fax"
| Application.PrintOut
| End Sub
|
|
| Mais pas de résultat
|
| Salutations
|
|
| Rénald
|
|
Très gentil à toi, seulement le script ne semble pas fonctionner.
En fait je reçois l'erreur 438 .
J'utilise outlook 2003
a+
Rénald
"RaphK34" wrote:
Salut, je ne suis pas sûr que tu sois dans le bon NG!
Mais perso en VBA j'utilise:
Sub test() Dim prtDefault As Printer Set Application.Printer = Application.Printers(0) Set prtDefault = Application.Printer DoCmd.OpenReport "Test" End sub
à toi de faire varier ton N° d'imprimante! -- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"Rénald" <Ré a écrit dans le message de news:
| Hello, | | Comment puis-je définir une macro qui pointe vers une autre imprimante que | celle définie par défaut dans l'OS ? | | J'ai essayé : | | Sub test() | Application.ActivePrinter = "Fax" | Application.PrintOut | End Sub | | | Mais pas de résultat | | Salutations | | | Rénald | |
RaphK34
Salut,
En fait, je suis programmeur Access en SGBD, ci dessous le code que j'utilise, à toi de l'adapter à Outlook:
Function ImprimantesInstallées() Dim prtLoop As Printer MsgBox "La Première Imprimante à apparaître est" & vbCrLf _ & "L'imprimante N° 0 puis la N°1 en deuxième ect.." For Each prtLoop In Application.Printers With prtLoop MsgBox "Device name: " & .DeviceName & vbCrLf _ & "Driver name: " & .DriverName & vbCrLf _ & "Port: " & .Port End With Next prtLoop End Function
Function Testimprime() Dim prtDefault As Printer Set Application.Printer = Application.Printers(0) Set prtDefault = Application.Printer DoCmd.OpenReport "Test" ' Ici j'imprime un Report qui s'appelle "Test" sur l'imprimante 0, je ne connais pas la Cde "imprime" d'Outlook !
End Function
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"Rénald" a écrit dans le message de news:
| Hello, | | Très gentil à toi, seulement le script ne semble pas fonctionner. | | En fait je reçois l'erreur 438 . | | J'utilise outlook 2003 | | a+ | | Rénald | | "RaphK34" wrote: | | > Salut, je ne suis pas sûr que tu sois dans le bon NG! | > | > Mais perso en VBA j'utilise: | > | > Sub test() | > Dim prtDefault As Printer | > Set Application.Printer = Application.Printers(0) | > Set prtDefault = Application.Printer | > DoCmd.OpenReport "Test" | > End sub | > | > à toi de faire varier ton N° d'imprimante! | > -- | > @+ Raph. | > | > -------------------------------------------- | > Merci de répondre sur le NG | > Toutes remarques bienvenues ! | > | > Pour un contact direct, utiliser: | > en enlevant nospam. | > -------------------------------------------- | > | > | > | > "Rénald" <Ré a écrit dans le message de news: | > | > | Hello, | > | | > | Comment puis-je définir une macro qui pointe vers une autre imprimante que | > | celle définie par défaut dans l'OS ? | > | | > | J'ai essayé : | > | | > | Sub test() | > | Application.ActivePrinter = "Fax" | > | Application.PrintOut | > | End Sub | > | | > | | > | Mais pas de résultat | > | | > | Salutations | > | | > | | > | Rénald | > | | > | | > | > | >
Salut,
En fait, je suis programmeur Access en SGBD,
ci dessous le code que j'utilise, à toi de l'adapter à Outlook:
Function ImprimantesInstallées()
Dim prtLoop As Printer
MsgBox "La Première Imprimante à apparaître est" & vbCrLf _
& "L'imprimante N° 0 puis la N°1 en deuxième ect.."
For Each prtLoop In Application.Printers
With prtLoop
MsgBox "Device name: " & .DeviceName & vbCrLf _
& "Driver name: " & .DriverName & vbCrLf _
& "Port: " & .Port
End With
Next prtLoop
End Function
Function Testimprime()
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(0)
Set prtDefault = Application.Printer
DoCmd.OpenReport "Test" ' Ici j'imprime un Report qui
s'appelle "Test" sur l'imprimante 0, je ne connais pas la Cde "imprime"
d'Outlook !
End Function
--
@+ Raph.
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------
"Rénald" <Rnald@discussions.microsoft.com> a écrit dans le message de news:
C6A0C3EC-5B0D-4890-92B6-90D55EC8EC9E@microsoft.com...
| Hello,
|
| Très gentil à toi, seulement le script ne semble pas fonctionner.
|
| En fait je reçois l'erreur 438 .
|
| J'utilise outlook 2003
|
| a+
|
| Rénald
|
| "RaphK34" wrote:
|
| > Salut, je ne suis pas sûr que tu sois dans le bon NG!
| >
| > Mais perso en VBA j'utilise:
| >
| > Sub test()
| > Dim prtDefault As Printer
| > Set Application.Printer = Application.Printers(0)
| > Set prtDefault = Application.Printer
| > DoCmd.OpenReport "Test"
| > End sub
| >
| > à toi de faire varier ton N° d'imprimante!
| > --
| > @+ Raph.
| >
| > --------------------------------------------
| > Merci de répondre sur le NG
| > Toutes remarques bienvenues !
| >
| > Pour un contact direct, utiliser:
| > nospampizza.mpl@tiscali.fr en enlevant nospam.
| > --------------------------------------------
| >
| >
| >
| > "Rénald" <Rénald@discussions.microsoft.com> a écrit dans le message de
news:
| > 85E86751-F667-4CA7-91EC-37B7F7D614D6@microsoft.com...
| > | Hello,
| > |
| > | Comment puis-je définir une macro qui pointe vers une autre imprimante
que
| > | celle définie par défaut dans l'OS ?
| > |
| > | J'ai essayé :
| > |
| > | Sub test()
| > | Application.ActivePrinter = "\Fax"
| > | Application.PrintOut
| > | End Sub
| > |
| > |
| > | Mais pas de résultat
| > |
| > | Salutations
| > |
| > |
| > | Rénald
| > |
| > |
| >
| >
| >
En fait, je suis programmeur Access en SGBD, ci dessous le code que j'utilise, à toi de l'adapter à Outlook:
Function ImprimantesInstallées() Dim prtLoop As Printer MsgBox "La Première Imprimante à apparaître est" & vbCrLf _ & "L'imprimante N° 0 puis la N°1 en deuxième ect.." For Each prtLoop In Application.Printers With prtLoop MsgBox "Device name: " & .DeviceName & vbCrLf _ & "Driver name: " & .DriverName & vbCrLf _ & "Port: " & .Port End With Next prtLoop End Function
Function Testimprime() Dim prtDefault As Printer Set Application.Printer = Application.Printers(0) Set prtDefault = Application.Printer DoCmd.OpenReport "Test" ' Ici j'imprime un Report qui s'appelle "Test" sur l'imprimante 0, je ne connais pas la Cde "imprime" d'Outlook !
End Function
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"Rénald" a écrit dans le message de news:
| Hello, | | Très gentil à toi, seulement le script ne semble pas fonctionner. | | En fait je reçois l'erreur 438 . | | J'utilise outlook 2003 | | a+ | | Rénald | | "RaphK34" wrote: | | > Salut, je ne suis pas sûr que tu sois dans le bon NG! | > | > Mais perso en VBA j'utilise: | > | > Sub test() | > Dim prtDefault As Printer | > Set Application.Printer = Application.Printers(0) | > Set prtDefault = Application.Printer | > DoCmd.OpenReport "Test" | > End sub | > | > à toi de faire varier ton N° d'imprimante! | > -- | > @+ Raph. | > | > -------------------------------------------- | > Merci de répondre sur le NG | > Toutes remarques bienvenues ! | > | > Pour un contact direct, utiliser: | > en enlevant nospam. | > -------------------------------------------- | > | > | > | > "Rénald" <Ré a écrit dans le message de news: | > | > | Hello, | > | | > | Comment puis-je définir une macro qui pointe vers une autre imprimante que | > | celle définie par défaut dans l'OS ? | > | | > | J'ai essayé : | > | | > | Sub test() | > | Application.ActivePrinter = "Fax" | > | Application.PrintOut | > | End Sub | > | | > | | > | Mais pas de résultat | > | | > | Salutations | > | | > | | > | Rénald | > | | > | | > | > | >
