Sub Impression15j()
Dim Lig As Long, NbLig As Long
With Sheets("Salle de conférence")
' Calculer le nombre de ligne séparant la date de début du calendrier
' avec la date du jour
NbLig = Now() - DateValue(.Range("A4"))
' Définir la ligne de début de la zone d'impression
Lig = 4 + NbLig - 1
' Appliquer une mise en page
With .PageSetup
.Orientation = xlLandscape 'xlPortrait
.PrintTitleRows = "$1:$3"
End With
.PageSetup.PrintArea = .Range("A" & Lig & ":Y" & Lig + 21).Address
' Vue avant impression
.PrintPreview
End With
End Sub
Sub Impression1mois()
Dim Lig As Long, NbLig As Long, Lig2 As Long, NbLig2 As Long
With Sheets("Salle de conférence")
' Calculer le nombre de ligne séparant la date de début du calendrier
' avec la date du jour
NbLig = Now() - DateValue(.Range("A4"))
' Définir la ligne de début de la zone d'impression
Lig = 4 + NbLig - 1
' Calculer le nombre de ligne séparant la date de début du calendrier
' avec la date du jour + 30 jours
NbLig2 = Now() + 30 - DateValue(.Range("A4"))
' Définir la ligne de fin de la zone d'impression
Lig2 = 4 + NbLig2 - 1
With .PageSetup
.Orientation = xlLandscape 'xlPortrait
.PrintTitleRows = "$1:$3"
End With
.PageSetup.PrintArea = .Range("A" & Lig & ":Y" & Lig2).Address
.PrintPreview
End With
End Sub