imprimer

[apdf1]

Bonjour,

Je travaille sur un userform qui a pour but d'imprimer des documents mais le problème il y a des fois que je doit imprimer en portrait et des fois en paysage suivant le document. J'aimerais avoir un code qui me permette cela ?
Voilà, si quelqu'un a une idée je l'en remercie d'avance et vous souhaite un bon dimanche à tous

Cordialement

Max

 

[job75]

Re : imprimer

Bonjour apdf1,

ActiveSheet.PageSetup.Orientation = _
IIf(MsgBox("Imprimer en mode Paysage ?", 4) = 7, xlPortrait, xlLandscape)

A+

 

[job75]

Re : imprimer

Re,

Autre manière :

With ActiveSheet 'ou feuille paramétrée
  .PageSetup.Orientation = IIf(.UsedRange.Width < .UsedRange.Height, xlPortrait, xlLandscape)
End With

A+

 

[apdf1]

Re : imprimer

Bonjour Job75,

Je te remerci d'avoir répondu, j'ai essayé ton code mais sa ne marche pas?
je joint mon fichier pour voir si j'ai bien rentré le code

A+

Max

 

[job75]

Re : imprimer

Re,

Moi être sur Excel 2003 alors attendez un XLDnaute qui pourra ouvrir le fichier.

Mais les codes que j'ai donnés sont élémentaires, ils devraient fonctionner sur toutes les versions.

A+

 

[JCGL]

Re : imprimer

Bonjour à tous,
Re Job 😎,

Si tu souhaites poursuivre ta programmation...

A+ à tous

 

[job75]

Re : imprimer

Bonsoir JC,

Et merci pour le fichier.

Je vois que notre ami a collé mon code sans essayer de comprendre le moins du monde ce qu'il faisait.

Je ne vais quand même pas programmer 2 lignes de code plus qu'évidentes.

Surtout si l'on utilise l'enregistreur de macro...

A+