Print Preview Macro- Print till end of active text

[cordaco]

Hi I am trying to do a print preview macro that will print to the end of active text. Right now I can only figure out how to print to the certain number that I specify. Ex. On three diff documents one has cells going 50 down, another 150, one 500. I would like for the macro to recognize the changes in length and automatically do this. Here is some code I found that will go to the end of active text. If there is a blank it will stop.
ActiveSheet.Range("a1").CurrentRegion.Select

Here is my macro that only goes to cell 86.

Sub PrintPreview()
'
' PrintPreview Macro
'
'
Range("A7:P7").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$A$7:$P$86"
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$7"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$A$7:$P$86"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Page &P"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.45)
.RightMargin = Application.InchesToPoints(0.45)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
End Sub

This macro works but only to the length specified. The cells highlighted are the cells where I think I need to insert the code.
ActiveSheet.Range("a1").CurrentRegion.Select
I found this from http://support.microsoft.com/kb/291308

How do I incorporate the code "
ActiveSheet.Range("a1").CurrentRegion.Select
" into the print area? Or do I use something different in the print area part? Thanks for the help.

 

[VoG]

Try

ActiveSheet.PageSetup.PrintArea = Selection.Address

 

[cordaco]

Works just as I wanted. Thanks.