|
Cette procédure permet de masquer les lignes vides d'un tableau au moment de l'impression, seul l'essentiel
apparaîtra sur la page imprimée...on économise ainsi des feuilles... Partie à placer dans un module... 
Option Explicit
Sub Vide()
'Ti
'http://www.veriti.fr
'masquer les lignes vides avant impression
Dim Plage As Range
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet
Set Plage = .Range("A3:A300").Cells.SpecialCells(xlCellTypeBlanks)
If Not Plage Is Nothing Then Plage.Rows.Hidden = True
.PrintPreview 'pour voir sans imprimer
'.PrintOut ' pour imrimer directement
.Rows.Hidden = False
End With
End Sub
Date de création : 24/05/2005 - 19:22
Dernière modification : 13/08/2006 - 13:06
Catégorie : Impression
Page lue 5054 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 39
Haut 
