Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel impression plusieures feuilles

impression plusieures feuilles

4 réponses
Avatar
kooltuo
Bonjour
Je désire imprimer 4 feuilles d'un fichier exel 2000 (mise en page A4
portrait) sur du papier A3 recto verso
Est-ce possible?
Merci de toute aide
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
michdenis
Bonjour Kooltuo,


à partir de l'enregistreur de macro, j'ai obtenu tous les paramètres à partir desquels on peut intervenir directement dans une
procédure VBA.

Concernant le Recto-verso, ceci est une caractéristique de ton imprimante. Toutes les imprimantes non pas cette option, et elle
n'est pas directement paramétrable par VBA. Ceci étant dit, il est possible d'imprimer d'abord les pages pairs et ensuite refaire
une impression des mêmes feuilles pour les pages impaires ....

Si tu veux une aide plus directe, il va falloir prendre le temps de décrire précisément ce que tu veux faire.
Est-ce que ton classeur contient seulement 4 feuilles? sinon, comment s'appelle chacune des feuilles à imprimer ?
Quelles sont les caractéristiques particulières que tu veux obtenir pour l'impression de ces feuilles.

'-----------------------------------------
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = "$A:$A"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$10"
With ActiveSheet.PageSetup
.LeftHeader = "&P"
.CenterHeader = "&N"
.RightHeader = "&Z&F"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 200
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = True
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
'-----------------------------------------



Salutations!




"kooltuo" a écrit dans le message de news:
Bonjour
Je désire imprimer 4 feuilles d'un fichier exel 2000 (mise en page A4
portrait) sur du papier A3 recto verso
Est-ce possible?
Merci de toute aide
Avatar
kooltuo
Bonjour
Je veux imprimer 4 feuilles d'un fichier exel sur papier A3 recto verso
(j'ai l'imprimante pour)
En fait la feuille 1 et feuille 2 seraient verso
et feuille 3 et feuille 4 recto

les feuilles s'appellent feuil1 etc

le but est de mettre en place un dépliant avec prix à imprimer

Bien à vous



Bonjour Kooltuo,


à partir de l'enregistreur de macro, j'ai obtenu tous les paramètres à partir desquels on peut intervenir directement dans une
procédure VBA.

Concernant le Recto-verso, ceci est une caractéristique de ton imprimante. Toutes les imprimantes non pas cette option, et elle
n'est pas directement paramétrable par VBA. Ceci étant dit, il est possible d'imprimer d'abord les pages pairs et ensuite refaire
une impression des mêmes feuilles pour les pages impaires ....

Si tu veux une aide plus directe, il va falloir prendre le temps de décrire précisément ce que tu veux faire.
Est-ce que ton classeur contient seulement 4 feuilles? sinon, comment s'appelle chacune des feuilles à imprimer ?
Quelles sont les caractéristiques particulières que tu veux obtenir pour l'impression de ces feuilles.

'-----------------------------------------
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = "$A:$A"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$10"
With ActiveSheet.PageSetup
.LeftHeader = "&P"
.CenterHeader = "&N"
.RightHeader = "&Z&F"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 200
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = True
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
'-----------------------------------------



Salutations!




"kooltuo" a écrit dans le message de news:
Bonjour
Je désire imprimer 4 feuilles d'un fichier exel 2000 (mise en page A4
portrait) sur du papier A3 recto verso
Est-ce possible?
Merci de toute aide





Avatar
Azo3
je crois qu'il va te falloir passer par un logiciel de PAO comme
Publisher...

--
Serge CENCI

MVP Microsoft WINDOWS
NB - adresse : enlever ENLEVER
"kooltuo" a écrit dans le message de
news:
Bonjour
Je veux imprimer 4 feuilles d'un fichier exel sur papier A3 recto verso
(j'ai l'imprimante pour)
En fait la feuille 1 et feuille 2 seraient verso
et feuille 3 et feuille 4 recto

les feuilles s'appellent feuil1 etc

le but est de mettre en place un dépliant avec prix à imprimer

Bien à vous



Bonjour Kooltuo,


à partir de l'enregistreur de macro, j'ai obtenu tous les paramètres à
partir desquels on peut intervenir directement dans une
procédure VBA.

Concernant le Recto-verso, ceci est une caractéristique de ton
imprimante. Toutes les imprimantes non pas cette option, et elle
n'est pas directement paramétrable par VBA. Ceci étant dit, il est
possible d'imprimer d'abord les pages pairs et ensuite refaire
une impression des mêmes feuilles pour les pages impaires ....

Si tu veux une aide plus directe, il va falloir prendre le temps de
décrire précisément ce que tu veux faire.
Est-ce que ton classeur contient seulement 4 feuilles? sinon, comment
s'appelle chacune des feuilles à imprimer ?
Quelles sont les caractéristiques particulières que tu veux obtenir pour
l'impression de ces feuilles.

'-----------------------------------------
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = "$A:$A"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$10"
With ActiveSheet.PageSetup
.LeftHeader = "&P"
.CenterHeader = "&N"
.RightHeader = "&Z&F"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 200
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = True
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
'-----------------------------------------



Salutations!




"kooltuo" a écrit dans le message de
news:
Bonjour
Je désire imprimer 4 feuilles d'un fichier exel 2000 (mise en page A4
portrait) sur du papier A3 recto verso
Est-ce possible?
Merci de toute aide







Avatar
michdenis
Bonjour Kooltuo,


Voici une procédure que tu peux placer dans le ThisWorkbook de ton classeur :

Pour ce qui est des caractéristique de chaque item en desssous de With .pagesetup,
utilise l'enregisteur macro et définis la mise en page à partir de la commande du même
nom dans le sous-menu de fichier .... tu adapteras par la suite les valeurs obtenues
dans cette procédure.

Pour ce qui est de recto-verso, tu dois paramètrer ton imprimante manuellement .
Pour ce qui est de la présentation des pages, Tu dois faire attention à ce paramètre
dans la macro

.Order = xlDownThenOver ou xlOverThenDown
xlDownThenOver : de haut en bas et ensuite à droite
xlOverThenDown : de la gauche vers la droite et en bas

Il informe excel sur la manière dont il doit imprimer l'ordre des données

Force est de constater que la force première d'excel n'est pas la mise en page
pour l'impression des données...

'--------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Arr As Variant

'NOm des feuilles à imprimer
Arr = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")

For Each elt In Arr
With Worksheets(elt)
With .PageSetup
.LeftHeader = "&P"
.CenterHeader = "&N"
.RightHeader = "&Z&F"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 200
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = True
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
.PrintOut
End With
Next

End Sub
'--------------------------------------


Salutations!



"kooltuo" a écrit dans le message de news:
Bonjour
Je veux imprimer 4 feuilles d'un fichier exel sur papier A3 recto verso
(j'ai l'imprimante pour)
En fait la feuille 1 et feuille 2 seraient verso
et feuille 3 et feuille 4 recto

les feuilles s'appellent feuil1 etc

le but est de mettre en place un dépliant avec prix à imprimer

Bien à vous



Bonjour Kooltuo,


à partir de l'enregistreur de macro, j'ai obtenu tous les paramètres à partir desquels on peut intervenir directement dans une
procédure VBA.

Concernant le Recto-verso, ceci est une caractéristique de ton imprimante. Toutes les imprimantes non pas cette option, et elle
n'est pas directement paramétrable par VBA. Ceci étant dit, il est possible d'imprimer d'abord les pages pairs et ensuite refaire
une impression des mêmes feuilles pour les pages impaires ....

Si tu veux une aide plus directe, il va falloir prendre le temps de décrire précisément ce que tu veux faire.
Est-ce que ton classeur contient seulement 4 feuilles? sinon, comment s'appelle chacune des feuilles à imprimer ?
Quelles sont les caractéristiques particulières que tu veux obtenir pour l'impression de ces feuilles.

'-----------------------------------------
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = "$A:$A"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$10"
With ActiveSheet.PageSetup
.LeftHeader = "&P"
.CenterHeader = "&N"
.RightHeader = "&Z&F"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 200
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = True
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
'-----------------------------------------



Salutations!




"kooltuo" a écrit dans le message de news:

Bonjour
Je désire imprimer 4 feuilles d'un fichier exel 2000 (mise en page A4
portrait) sur du papier A3 recto verso
Est-ce possible?
Merci de toute aide