Aaron

Sub MovePrintArea()
ActiveSheet.PageSetup.PrintArea =
Range(ActiveSheet.PageSetup.PrintArea).Offset(8, 0).Address
End Sub

You said columns, and down. Remember that the HAL 9000 went amok with
conflicting instructions. You may have to change the (8, 0) to suit.

--
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------

"Aaron" wrote in message
om...
Is there any way that i can change the print area using a macro so
that the current print area is moved a further 8 columns down the
worksheet, but the size of the print area stays the same?

Thanks,
Aaron