Impression avec userform

M

MrExcel

Guest

• 2 Mars 2005

• #2

ActiveSheet.PageSetup.Orientation = xlLandscape ou xlPortrait

Pour ne pas imprimer le bouton, faut (dé)cocher la case imprimer dans les propriétés du bouton (s'il s'agit d'un Bouton de formulaire, pas un control de la boite à outil).

HTH

 

Vote positif 0 Vote négatif

R

RV

Guest

• 2 Mars 2005

• #3

Merci pour ta réponse très rapide mais je ne suis pas assez fort et n'y parviens pas. Peux-tu m'aider.
La formule qui fonctionne pour l'impression est:

Private Sub CommandButton1_Click()

Range('B2:O48').PrintOut
End Sub


A quel endroit dois-je ajouter la tienne:

ActiveSheet.PageSetup.Orientation = xlLandscape ou xlPortrait

Merci

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 2 Mars 2005

• #4

Juste avant la ligne avec PrintOut

Et pour faire simple tu crées un autre bouton qui fait la meme chose mais en mode portrait ou inversement.

Bonne soirée

 

Vote positif 0 Vote négatif

R

RV

Guest

• 2 Mars 2005

• #5

Superbe. Cela fonctionne et correspond exactement à ce que je recherchais.
Merci à vous deux

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 2 Mars 2005

• #6

Heureux de t'avoir aidé 🙂

Par contre je ne suis qu'un seul, juste que j'avais oublié de me connecter lors de ma première réponse.

Bonne nuit

 

Vote positif 0 Vote négatif