Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Impression......

Impression......

2 réponses
Avatar
Denys
Bonjour =E0 tous,

Je cherche =E0 imprimer la plage qui suit sur 1 feuille=20
seulement. Jusqu'=E0 maintenant, je n'ai pas=20
r=E9ussi....Quelqu'un pourrait m'aider??

Voici le code:

Sub PrintQ1()
Application.ScreenUpdating =3D False
Range("B3:F11,S1:T11").Select
ActiveSheet.PageSetup.PrintArea =3D=20
("$B$1:$F$11,$S$1:$T$11")
ActiveWindow.Zoom =3D 200
ActiveSheet.PrintOut
ActiveWindow.Zoom =3D 100
Range("A1").Select
End Sub

Tout =E7a s'imprime sur 2 pages. De plus, j'aimerais bien=20
que ce soit centr=E9...=20

Merci pour votre temps et vos id=E9es

Denys
Signaler un problème avec ce contenu

2 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
Jean-Claude
Salut
Et passer par une feuille temporaire sur laquelle tu copierais les deux
plages]
A+
Jc
"Denys" a écrit dans le message de
news:011d01c3b38b$3dee4f80$
Bonjour à tous,

Je cherche à imprimer la plage qui suit sur 1 feuille
seulement. Jusqu'à maintenant, je n'ai pas
réussi....Quelqu'un pourrait m'aider??

Voici le code:

Sub PrintQ1()
Application.ScreenUpdating = False
Range("B3:F11,S1:T11").Select
ActiveSheet.PageSetup.PrintArea ("$B$1:$F$11,$S$1:$T$11")
ActiveWindow.Zoom = 200
ActiveSheet.PrintOut
ActiveWindow.Zoom = 100
Range("A1").Select
End Sub

Tout ça s'imprime sur 2 pages. De plus, j'aimerais bien
que ce soit centré...

Merci pour votre temps et vos idées

Denys
Avatar
Denys
Salut JC

Et pourquoi pas..... bonne idée

Merci

Denys


-----Original Message-----
Salut
Et passer par une feuille temporaire sur laquelle tu
copierais les deux

plages]
A+
Jc
"Denys" a écrit dans le message
de

news:011d01c3b38b$3dee4f80$
Bonjour à tous,

Je cherche à imprimer la plage qui suit sur 1 feuille
seulement. Jusqu'à maintenant, je n'ai pas
réussi....Quelqu'un pourrait m'aider??

Voici le code:

Sub PrintQ1()
Application.ScreenUpdating = False
Range("B3:F11,S1:T11").Select
ActiveSheet.PageSetup.PrintArea =
("$B$1:$F$11,$S$1:$T$11")
ActiveWindow.Zoom = 200
ActiveSheet.PrintOut
ActiveWindow.Zoom = 100
Range("A1").Select
End Sub

Tout ça s'imprime sur 2 pages. De plus, j'aimerais bien
que ce soit centré...

Merci pour votre temps et vos idées

Denys


.