Bonjour,
Je suis totalement novice en ce qui concerne la réalisation de macros.
Pourtant, je dois rapidement trouver comment procéder pour pouvoir faire une
macro :
Objectif : Imprimer la première feuille du document avec le papier à
entête du bac 1
Imprimer le reste du document avec des feuilles vierges
d'un autre bac
Merci d'avance. Et à lundi pour la suite des évènements.
Christèle
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
isabelle
bonjour Christèle,
le mieux je crois est de créer une imprimante fictive, avec comme paramètre pour une, le bac 1 et pour l'autre le bac 2.
Sub Macro1() 'imprime page 1 sur imprimante fictive no.1 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _ ActivePrinter:="hp deskjet 5550 series (2) sur Ne01:" 'imprime page 2 à 10 sur imprimante fictive no.12 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:, _ ActivePrinter:="hp deskjet 5550 series (3) sur Ne01:" 'replace l'imprimante d'origine Application.ActivePrinter = "hp deskjet 5550 series sur Ne02:" End Sub
isabelle
Bonjour, Je suis totalement novice en ce qui concerne la réalisation de macros. Pourtant, je dois rapidement trouver comment procéder pour pouvoir faire une macro :
Objectif : Imprimer la première feuille du document avec le papier à entête du bac 1 Imprimer le reste du document avec des feuilles vierges d'un autre bac
Merci d'avance. Et à lundi pour la suite des évènements. Christèle
bonjour Christèle,
le mieux je crois est de créer une imprimante fictive, avec comme
paramètre pour une, le bac 1 et pour l'autre le bac 2.
Sub Macro1()
'imprime page 1 sur imprimante fictive no.1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="hp deskjet 5550 series (2) sur Ne01:"
'imprime page 2 à 10 sur imprimante fictive no.12
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:, _
ActivePrinter:="hp deskjet 5550 series (3) sur Ne01:"
'replace l'imprimante d'origine
Application.ActivePrinter = "hp deskjet 5550 series sur Ne02:"
End Sub
isabelle
Bonjour,
Je suis totalement novice en ce qui concerne la réalisation de macros.
Pourtant, je dois rapidement trouver comment procéder pour pouvoir faire une
macro :
Objectif : Imprimer la première feuille du document avec le papier à
entête du bac 1
Imprimer le reste du document avec des feuilles vierges
d'un autre bac
Merci d'avance. Et à lundi pour la suite des évènements.
Christèle
le mieux je crois est de créer une imprimante fictive, avec comme paramètre pour une, le bac 1 et pour l'autre le bac 2.
Sub Macro1() 'imprime page 1 sur imprimante fictive no.1 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _ ActivePrinter:="hp deskjet 5550 series (2) sur Ne01:" 'imprime page 2 à 10 sur imprimante fictive no.12 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:, _ ActivePrinter:="hp deskjet 5550 series (3) sur Ne01:" 'replace l'imprimante d'origine Application.ActivePrinter = "hp deskjet 5550 series sur Ne02:" End Sub
isabelle
Bonjour, Je suis totalement novice en ce qui concerne la réalisation de macros. Pourtant, je dois rapidement trouver comment procéder pour pouvoir faire une macro :
Objectif : Imprimer la première feuille du document avec le papier à entête du bac 1 Imprimer le reste du document avec des feuilles vierges d'un autre bac
Merci d'avance. Et à lundi pour la suite des évènements. Christèle
Daniel.j
Bonjour, Dans un premier temps utilise l'enregistreur de macro! et execute les taches que tu souhaites -- Daniel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Christèle" a écrit dans le message de news: cd8p11$mt4$ | Bonjour, | Je suis totalement novice en ce qui concerne la réalisation de macros. | Pourtant, je dois rapidement trouver comment procéder pour pouvoir faire une | macro : | | Objectif : Imprimer la première feuille du document avec le papier à | entête du bac 1 | Imprimer le reste du document avec des feuilles vierges | d'un autre bac | | Merci d'avance. Et à lundi pour la suite des évènements. | Christèle | |
Bonjour,
Dans un premier temps utilise l'enregistreur de macro!
et execute les taches que tu souhaites
--
Daniel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Christèle" <christele@nopub.com> a écrit dans le message de news:
cd8p11$mt4$1@s1.read.news.oleane.net...
| Bonjour,
| Je suis totalement novice en ce qui concerne la réalisation de macros.
| Pourtant, je dois rapidement trouver comment procéder pour pouvoir faire une
| macro :
|
| Objectif : Imprimer la première feuille du document avec le papier à
| entête du bac 1
| Imprimer le reste du document avec des feuilles vierges
| d'un autre bac
|
| Merci d'avance. Et à lundi pour la suite des évènements.
| Christèle
|
|
Bonjour, Dans un premier temps utilise l'enregistreur de macro! et execute les taches que tu souhaites -- Daniel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Christèle" a écrit dans le message de news: cd8p11$mt4$ | Bonjour, | Je suis totalement novice en ce qui concerne la réalisation de macros. | Pourtant, je dois rapidement trouver comment procéder pour pouvoir faire une | macro : | | Objectif : Imprimer la première feuille du document avec le papier à | entête du bac 1 | Imprimer le reste du document avec des feuilles vierges | d'un autre bac | | Merci d'avance. Et à lundi pour la suite des évènements. | Christèle | |
