from the VBA helpfile:

This example sets the print area to the current region on Sheet1. Note that
you use the Address property to return an A1-style address.

Worksheets("Sheet1").Activate
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address


--
jb


"misskh" wrote:

Hi,

I want to write a macro to automatically set the print area of a
particular page.

The page changes in size each day. I want to use the current region
function.

Can someone please help me with this.