Bonjour,
j'ai une macro qui imprime deux documents dont la zone d'impression varie en
fonction des données saisies. Jusqu'à présent je suis obligé d'imprimer deux
documents alors que je souhaiterai les imprimer en recto verso sur une seule
feuille.
Pouvez vous me dire comment qu'est ce que je peux inserer en vb pour gérer
cela.
merci
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
MichDenis
Bonjour freezengate,
Le Recto-verso est une caractéristique de ton imprimante (que tu devras définir manuellement... je ne crois pas qu'il existe une commande "VBA" pour cela)... et si elle n'existe pas, tu peux utiliser ce qui suit :
Voici une suggestion de Frédéric Sigonneau sur le sujet :
Comment faire sur excel pour n'imprimer que les pages paires ? (mon imprimante ne gère pas le recto-verso...) puis toutes les impaires ?
'------------------------- Sub PagesPairesOuImpaires() Dim i&, NbPages&, rep, PremierePage& rep = MsgBox("Cliquer sur :" & vbLf & _ "- Oui pour imprimer les pages paires" & vbLf & _ "- Non pour imprimer les pages impaires" & vbLf & _ "- Annuler pour quitter sans rien faire.", vbYesNoCancel) If rep = vbCancel Then Exit Sub PremierePage = IIf(rep = vbYes, 2, 1) NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") For i = PremierePage To NbPages Step 2 ActiveSheet.PrintOut From:=i, To:=i, Preview:úlse Next i End Sub
Ou, pour n'imprimer que certaines pages : '------------------------- Sub SelectionDePages() Dim i&, Pages$, ArrPages Pages = _ InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _ "1;2;3;12;14;25;33", "Pages à imprimer") ArrPages = Split(Pages, ";") For i = LBound(ArrPages) To UBound(ArrPages) x=Clng(ArrPages(i)) ActiveSheet.PrintOut From:=x, to:=x, Preview:úlse Next i End Sub '-------------------------
Salutations!
"freezengate" a écrit dans le message de news:
Bonjour, j'ai une macro qui imprime deux documents dont la zone d'impression varie en fonction des données saisies. Jusqu'à présent je suis obligé d'imprimer deux documents alors que je souhaiterai les imprimer en recto verso sur une seule feuille. Pouvez vous me dire comment qu'est ce que je peux inserer en vb pour gérer cela. merci
Bonjour freezengate,
Le Recto-verso est une caractéristique de ton imprimante (que tu devras définir manuellement... je ne crois pas qu'il
existe une commande "VBA" pour cela)... et si elle n'existe pas, tu peux utiliser ce qui suit :
Voici une suggestion de Frédéric Sigonneau sur le sujet :
Comment faire sur excel pour n'imprimer que les pages paires ? (mon imprimante ne gère pas le
recto-verso...) puis toutes les impaires ?
'-------------------------
Sub PagesPairesOuImpaires()
Dim i&, NbPages&, rep, PremierePage&
rep = MsgBox("Cliquer sur :" & vbLf & _
"- Oui pour imprimer les pages paires" & vbLf & _
"- Non pour imprimer les pages impaires" & vbLf & _
"- Annuler pour quitter sans rien faire.", vbYesNoCancel)
If rep = vbCancel Then Exit Sub
PremierePage = IIf(rep = vbYes, 2, 1)
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = PremierePage To NbPages Step 2
ActiveSheet.PrintOut From:=i, To:=i, Preview:úlse
Next i
End Sub
Ou, pour n'imprimer que certaines pages :
'-------------------------
Sub SelectionDePages()
Dim i&, Pages$, ArrPages
Pages = _
InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _
"1;2;3;12;14;25;33", "Pages à imprimer")
ArrPages = Split(Pages, ";")
For i = LBound(ArrPages) To UBound(ArrPages)
x=Clng(ArrPages(i))
ActiveSheet.PrintOut From:=x, to:=x, Preview:úlse
Next i
End Sub
'-------------------------
Salutations!
"freezengate" <freezengate@discussions.microsoft.com> a écrit dans le message de news:
673F1734-A1DB-409B-8E6F-F1CEB503EBA8@microsoft.com...
Bonjour,
j'ai une macro qui imprime deux documents dont la zone d'impression varie en
fonction des données saisies. Jusqu'à présent je suis obligé d'imprimer deux
documents alors que je souhaiterai les imprimer en recto verso sur une seule
feuille.
Pouvez vous me dire comment qu'est ce que je peux inserer en vb pour gérer
cela.
merci
Le Recto-verso est une caractéristique de ton imprimante (que tu devras définir manuellement... je ne crois pas qu'il existe une commande "VBA" pour cela)... et si elle n'existe pas, tu peux utiliser ce qui suit :
Voici une suggestion de Frédéric Sigonneau sur le sujet :
Comment faire sur excel pour n'imprimer que les pages paires ? (mon imprimante ne gère pas le recto-verso...) puis toutes les impaires ?
'------------------------- Sub PagesPairesOuImpaires() Dim i&, NbPages&, rep, PremierePage& rep = MsgBox("Cliquer sur :" & vbLf & _ "- Oui pour imprimer les pages paires" & vbLf & _ "- Non pour imprimer les pages impaires" & vbLf & _ "- Annuler pour quitter sans rien faire.", vbYesNoCancel) If rep = vbCancel Then Exit Sub PremierePage = IIf(rep = vbYes, 2, 1) NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") For i = PremierePage To NbPages Step 2 ActiveSheet.PrintOut From:=i, To:=i, Preview:úlse Next i End Sub
Ou, pour n'imprimer que certaines pages : '------------------------- Sub SelectionDePages() Dim i&, Pages$, ArrPages Pages = _ InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _ "1;2;3;12;14;25;33", "Pages à imprimer") ArrPages = Split(Pages, ";") For i = LBound(ArrPages) To UBound(ArrPages) x=Clng(ArrPages(i)) ActiveSheet.PrintOut From:=x, to:=x, Preview:úlse Next i End Sub '-------------------------
Salutations!
"freezengate" a écrit dans le message de news:
Bonjour, j'ai une macro qui imprime deux documents dont la zone d'impression varie en fonction des données saisies. Jusqu'à présent je suis obligé d'imprimer deux documents alors que je souhaiterai les imprimer en recto verso sur une seule feuille. Pouvez vous me dire comment qu'est ce que je peux inserer en vb pour gérer cela. merci
