Zone d'impression

Bonsoir ugeme

Cet exemple montre comment affecter à la zone d'impression les cellules A1:C5 de la feuille Sheet1.

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"

Tu as deja tout d'expliqué dans l'aide (F1) sur le mot PrintArea

Mytå

Bonjour à tous,

J'ai utilisé dans un classeur une procédure qui donne un aperçu avt impression dynamique:



Sub Apercu_avt_impr()
'dans mon classeur la zone s'étend jusqu'a la colonne "F"
dercell = Range("F1").End(xlDown).Address
Range("A1:" & dercell).Select
ActiveWindow.Selection.PrintPreview
Range("A1").Select
End Sub


A+ Didou