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
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
Philippe.R
Bonjour Christèle, Isabelle et Daniel ont répondu à ta question déjà posée le 16/07 à 16h32, respectivement : "===============================================================" 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, 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 "===============================================================" Celà ne convient pas ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre facilement le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Christèle" a écrit dans le message de news:cdfukt$l02$
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. Christèle
Bonjour Christèle,
Isabelle et Daniel ont répondu à ta question déjà posée le 16/07 à 16h32, respectivement :
"==============================================================="
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,
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
"==============================================================="
Celà ne convient pas ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Christèle" <christele@nopub.com> a écrit dans le message de
news:cdfukt$l02$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
Bonjour Christèle, Isabelle et Daniel ont répondu à ta question déjà posée le 16/07 à 16h32, respectivement : "===============================================================" 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, 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 "===============================================================" Celà ne convient pas ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre facilement le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Christèle" a écrit dans le message de news:cdfukt$l02$
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
