en VBA: comment imprimer seulement 1 partie d' tab

F

Flam

Guest
Bonjour le FORUM

J'aimerai créer un bouton en VBA qui me définirait une zone d'impression avec seulement la partie remplie d'un grand tableau.
En sachant que le tableau peut être + ou - remplie cela dépend des fois.
Ne pas définir dans la zone les lignes vides de la fin de tableau, si possible ?

Amicalement Flam
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour Flam, le Forum

Voici trois méthodes cousines, à voir en fonction de tes besoins :

Sub DefinePrintZoneExemple1()
    ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
End Sub


Sub DefinePrintZoneExemple2()
Dim Plage As Range

Set Plage = Range(Range('A1'), Range('D65536').End(xlUp))

ActiveSheet.PageSetup.PrintArea = Plage.Address
End Sub

Sub DefinePrintZoneExemple3()
Const PrintZone As String = 'A1:G'

Dim LastRow As Long

LastRow = Range('A65536').End(xlUp).Row

ActiveSheet.PageSetup.PrintArea = PrintZone & LastRow
End Sub


Bonne Journée
[ol]@+Thierry[/ol] J - 4


EDITION, je viens dfe voir un post de Pascal .... Arf !! J - 3 !!!

Et même J - 2 puisque je suis à Lyon dès Vendredi ;) !

Message édité par: _Thierry, à: 21/09/2005 08:16
 

Discussions similaires

Statistiques des forums

Discussions
312 809
Messages
2 092 295
Membres
105 343
dernier inscrit
Poipi81