Attribute VB_Name = "Module1"
Function EtsiListanViimRivi() As Long
'EtsiListanViimRivi-aliohjelma etsii silmukassa viimeisen rivin,
'  jossa A-sarakkeen solu on tyhjä.
'Rivillä 6 ensimmäisestä tyhjästä rivistä vähennetään yksi,
'  jotta saadaan palautettua viimeinen täytetty rivi.
1  Dim ViimRivi As Long
2  ViimRivi = 4
3  Do While ActiveSheet.Range("A" & ViimRivi).Value <> ""
4    ViimRivi = ViimRivi + 1
5  Loop
6  EtsiListanViimRivi = ViimRivi - 1
End Function

Sub AsetaTulAlue()
1  Dim TulAStr As String
2  TulAStr = "$A$4:$G$" & EtsiListanViimRivi
3  ActiveSheet.PageSetup.PrintArea = TulAStr
4  MsgBox "Tulostusalue=" & TulAStr
End Sub