Tulostusalueen määrittely

Helpoin tapa on ensin tarkastaa kuinka paljon rivejä löytyy mikäli kaikilla riveillä on edes jotain eli eivät ole tyhjiä.

dim inRivit as integer
dim i as integer
for i = 1 to 3000 'Määrällä ei ole merkitystä kunhan on riittävästi
if wordbooks("Sheet1").Range("A" & i) "" then
inRivit = inRivit 1
else
exit for
end if

'Siitä kun on hypätty pois niin (olettaen että sivu aktiivinen
range.("A1:O" & inRivit).select
selection.print

Valitettavasti en linukan puolelta pysty tarkastamaan toimiiko mutta vaikkaisin että aika lähelle osuu.

Sub ValitseTaulu()
Dim VR As Integer
Dim VS As Integer
VR = Selection.SpecialCells(xlCellTypeLastCell).Row
VS = Selection.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 1), Cells(VR, VS)).Select
End Sub

Excelin omilla funktioilla

ThisWorkbook moduuliin...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim vika As Integer
vika = Range("O65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & vika
End Sub