Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel format à l'impression

format à l'impression

2 réponses
Avatar
Robert
Bonjour =E0 tous(tes),

Voici mon probl=E8me, ma premi=E8re ligne de code ne=20
fonctionne pas.
je d=E9sire faire afficher en ent=EAte et au centre de la=20
feuille imprimer le nom de la feuil1(R=E9vision)=20
correspondante, sauf que je tiens a modifier sa police et=20
sa grosseur de lettre pour m'en servir comme titre dans=20
mon ent=EAte.=20

Private Sub Imprimer_Click()
ActiveSheet.PageSetup.CenterHeader =3D Format("Arial", "16",=20
ThisWorkbook.FullName)
ActiveSheet.PageSetup.LeftHeader =3D Sheets("R=E9vision").[O2]
ActiveSheet.PageSetup.RightFooter =3D Sheets("R=E9vision").[K2]
ActiveSheet.PageSetup.Orientation =3D xlLandscape
ActiveSheet.PageSetup.Zoom =3D 90
ActiveWindow.SelectedSheets.PrintOut
End Sub=20


Merci de votre collaboration.

A+
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
FxM
Robert wrote:

Private Sub Imprimer_Click()
ActiveSheet.PageSetup.CenterHeader = Format("Arial", "16",
ThisWorkbook.FullName)
ActiveSheet.PageSetup.LeftHeader = Sheets("Révision").[O2]
ActiveSheet.PageSetup.RightFooter = Sheets("Révision").[K2]
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PageSetup.Zoom = 90
ActiveWindow.SelectedSheets.PrintOut
End Sub


Merci de votre collaboration.

A+


Bonjour,

Mon enregistreur de macro m'a cafté ce qui suit :
Private Sub Imprimer_Click()
with ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Normal""&16" & ThisWorkbook.FullName
.LeftHeader = Sheets("Révision").[O2]
.RightFooter = Sheets("Révision").[K2]
.Orientation = xlLandscape
.zoom = 90
end with
activeWindow.SelectedSheets.PrintOut
End Sub

@+
FxM

Avatar
FxM
Bonsoir Robert,

Comment faire pour avoir le format de feuille en 8.5 * 14
l'orientation est excellente mais mes documents sorte sur
du 8.5 * 11
Excel est un mauvais gestionnaire d'imprimante.

Une solution de contournement (pas très top) est de créer x
imprimantes identiques avec des paramètres différents.

Tu trouves imprimante, imprimes, imprimer, ... principalement dans les
pages suivantes :

http://www.excelabo.net/xl/imprimer.htm
http://www.excelabo.net/xl/eurotrucs.htm
http://www.excelabo.net/xl/erreurs.htm
http://www.excelabo.net/mpfe/perles.htm
http://www.excelabo.net/xl/lign-col.htm
http://www.excelabo.net/astuces.htm
http://www.excelabo.net/xl/graph.htm
http://www.excelabo.net/xl/debuter.htm
http://www.excelabo.net/xl/macros.htm
http://www.excelabo.net/xl/protection.htm
http://www.excelabo.net/nouveau.htm
http://www.excelabo.net/xl/dates.htm
http://www.excelabo.net/xl/userforms.htm


aurais tu du code pour un listbox! je ne sais pas comment
entré des valeurs a l'intérieur de ce listbox doivent
t'ils être écritent dans des cellules sur une feuil1.


J'avoue ne pas utiliser ce genre de choses ;o)
Pour listbox ...
http://www.excelabo.net/xl/listes.htm
http://www.excelabo.net/xl/filtris.htm
http://www.excelabo.net/xl/userforms.htm
http://www.excelabo.net/telecharger.htm
http://www.excelabo.net/xl/controles.htm
http://www.excelabo.net/xl/outils.htm

@+
FxM