Comment automatiser l’orientation de l’impression des tableaux ?

L’impression des tableaux demeure un problème délicat pour de nombreux utilisateurs. En particulier, le choix du mode paysage ou portrait selon la taille du bloc de cellules à imprimer. Pour éviter de modifier les options d’impression de chaque classeur et gagner un peu de temps, laissez un programme écrit en VBA (Visual Basic Editions Applications) décider à votre place. Ouvrez un classeur qui contient des tableaux. Avec Excel 97, appuyez sur + et optez pour la commande Insertion/Module. Recopiez le listing ci-après dans la page qui s’affiche. Sauvegardez le classeur par + et affichez une des feuilles qui contient un tableau. Sélectionnez une plage de cellules. Choisissez la commande Zone d’impression du menu Fichier et choisissez Définir. Pour lancer le programme, déroulez le menu Outils, choisissez Macro et effectuez un clic double sur OrientationPaysagePortrait. Vérifiez enfin le résultat en sélectionnant la commande Aperçu avant impression du menu Fichier.Listing :
Sub OrientationPaysagePortrait()
Dim Wdth As Long
Dim PrintRange As Range
Set PrintRange = ActiveSheet.Range(Cell : =”Zone_d_impression”)
Wdth = PrintRange.Width * 72
If Wdth > 36000 Then
ActiveSheet.PageSetup.Orientation = xlLandscape
Else
ActiveSheet.PageSetup.Orientation = xlPortrait
End If
End Sub