Voilà mon problème, j'ai un gros fichier qui édite plus de 250 feuilles. Ces
feuilles sortent en recto-verso. J'aimerais donc que les feuilles impaires
soient numérotées en haut à gauche et les feuilles paires en haut à droite.
Le document étant collé, l'idéal serait également que les marges droites
soient plus importantes sur les feuilles impaires et l'inverse sur les
feuilles paires.
Quelqu'un a t il la solution à mon problème.
Merci
Cathy
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
meregrand33
Bonjour à tous,
Voilà mon problème, j'ai un gros fichier qui édite plus de 250 feuilles. Ces feuilles sortent en recto-verso. J'aimerais donc que les feuilles impaires soient numérotées en haut à gauche et les feuilles paires en haut à droite. Le document étant collé, l'idéal serait également que les marges droites soient plus importantes sur les feuilles impaires et l'inverse sur les feuilles paires.
Quelqu'un a t il la solution à mon problème. Merci Cathy
Bonjour Cathy,
Une solution existe en créant deux groupes de travail : un pour les feuilles paires et un pour les feuilles impaires. Pour un gros fichier c'est un peu long mais ça marche. Peut-être que les fortes têtes ont une macro qui fait tout ça !!! Cordialement Mère Grand
Bonjour à tous,
Voilà mon problème, j'ai un gros fichier qui édite plus de 250 feuilles. Ces
feuilles sortent en recto-verso. J'aimerais donc que les feuilles impaires
soient numérotées en haut à gauche et les feuilles paires en haut à droite.
Le document étant collé, l'idéal serait également que les marges droites
soient plus importantes sur les feuilles impaires et l'inverse sur les
feuilles paires.
Quelqu'un a t il la solution à mon problème.
Merci
Cathy
Bonjour Cathy,
Une solution existe en créant deux groupes de travail : un pour les feuilles
paires et un pour les feuilles impaires. Pour un gros fichier c'est un peu
long mais ça marche.
Peut-être que les fortes têtes ont une macro qui fait tout ça !!!
Cordialement
Mère Grand
Voilà mon problème, j'ai un gros fichier qui édite plus de 250 feuilles. Ces feuilles sortent en recto-verso. J'aimerais donc que les feuilles impaires soient numérotées en haut à gauche et les feuilles paires en haut à droite. Le document étant collé, l'idéal serait également que les marges droites soient plus importantes sur les feuilles impaires et l'inverse sur les feuilles paires.
Quelqu'un a t il la solution à mon problème. Merci Cathy
Bonjour Cathy,
Une solution existe en créant deux groupes de travail : un pour les feuilles paires et un pour les feuilles impaires. Pour un gros fichier c'est un peu long mais ça marche. Peut-être que les fortes têtes ont une macro qui fait tout ça !!! Cordialement Mère Grand
Daniel
Bonjour. J'ai mis la marge gauche (3 cm) plus importante que la marge droite (2 cm) pour les pages impaires (ce qui m'a semblé plus logique). Essaie :
Sub Impression() Dim CtrPage As Integer On Error Resume Next ActiveSheet.PageSetup.LeftHeader = "&P" ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(1.18110236220472) For CtrPage = 1 To 1000 ActiveSheet.PrintPreview ActiveWorkbook.PrintOut from:=CtrPage, To:=CtrPage If Err.Number <> 0 Then Err.Clear Exit For End If CtrPage = CtrPage + 2 Next CtrPage With ActiveSheet.PageSetup .RightHeader = "&P" .LeftHeader = "" .RightMargin = Application.InchesToPoints(1.18110236220472) .LeftMargin = Application.InchesToPoints(0.78740157480315) End With For CtrPage = 2 To 1000 ActiveWorkbook.PrintOut from:=CtrPage, To:=CtrPage If Err.Number <> 0 Then Err.Clear Exit For End If CtrPage = CtrPage + 2 Next CtrPage End Sub
Cordialement. Daniel "cat62" a écrit dans le message de news: 43c24803$0$26397$
Bonjour à tous,
Voilà mon problème, j'ai un gros fichier qui édite plus de 250 feuilles. Ces feuilles sortent en recto-verso. J'aimerais donc que les feuilles impaires soient numérotées en haut à gauche et les feuilles paires en haut à droite. Le document étant collé, l'idéal serait également que les marges droites soient plus importantes sur les feuilles impaires et l'inverse sur les feuilles paires.
Quelqu'un a t il la solution à mon problème. Merci Cathy
Bonjour.
J'ai mis la marge gauche (3 cm) plus importante que la marge droite (2 cm)
pour les pages impaires (ce qui m'a semblé plus logique).
Essaie :
Sub Impression()
Dim CtrPage As Integer
On Error Resume Next
ActiveSheet.PageSetup.LeftHeader = "&P"
ActiveSheet.PageSetup.LeftMargin =
Application.InchesToPoints(1.18110236220472)
For CtrPage = 1 To 1000
ActiveSheet.PrintPreview
ActiveWorkbook.PrintOut from:=CtrPage, To:=CtrPage
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
CtrPage = CtrPage + 2
Next CtrPage
With ActiveSheet.PageSetup
.RightHeader = "&P"
.LeftHeader = ""
.RightMargin = Application.InchesToPoints(1.18110236220472)
.LeftMargin = Application.InchesToPoints(0.78740157480315)
End With
For CtrPage = 2 To 1000
ActiveWorkbook.PrintOut from:=CtrPage, To:=CtrPage
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
CtrPage = CtrPage + 2
Next CtrPage
End Sub
Cordialement.
Daniel
"cat62" <cat62@msn.com> a écrit dans le message de news:
43c24803$0$26397$7a628cd7@news.club-internet.fr...
Bonjour à tous,
Voilà mon problème, j'ai un gros fichier qui édite plus de 250 feuilles.
Ces feuilles sortent en recto-verso. J'aimerais donc que les feuilles
impaires soient numérotées en haut à gauche et les feuilles paires en haut
à droite. Le document étant collé, l'idéal serait également que les marges
droites soient plus importantes sur les feuilles impaires et l'inverse sur
les feuilles paires.
Quelqu'un a t il la solution à mon problème.
Merci
Cathy
Bonjour. J'ai mis la marge gauche (3 cm) plus importante que la marge droite (2 cm) pour les pages impaires (ce qui m'a semblé plus logique). Essaie :
Sub Impression() Dim CtrPage As Integer On Error Resume Next ActiveSheet.PageSetup.LeftHeader = "&P" ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(1.18110236220472) For CtrPage = 1 To 1000 ActiveSheet.PrintPreview ActiveWorkbook.PrintOut from:=CtrPage, To:=CtrPage If Err.Number <> 0 Then Err.Clear Exit For End If CtrPage = CtrPage + 2 Next CtrPage With ActiveSheet.PageSetup .RightHeader = "&P" .LeftHeader = "" .RightMargin = Application.InchesToPoints(1.18110236220472) .LeftMargin = Application.InchesToPoints(0.78740157480315) End With For CtrPage = 2 To 1000 ActiveWorkbook.PrintOut from:=CtrPage, To:=CtrPage If Err.Number <> 0 Then Err.Clear Exit For End If CtrPage = CtrPage + 2 Next CtrPage End Sub
Cordialement. Daniel "cat62" a écrit dans le message de news: 43c24803$0$26397$
Bonjour à tous,
Voilà mon problème, j'ai un gros fichier qui édite plus de 250 feuilles. Ces feuilles sortent en recto-verso. J'aimerais donc que les feuilles impaires soient numérotées en haut à gauche et les feuilles paires en haut à droite. Le document étant collé, l'idéal serait également que les marges droites soient plus importantes sur les feuilles impaires et l'inverse sur les feuilles paires.
Quelqu'un a t il la solution à mon problème. Merci Cathy
