Have Range -> Put in Print Area?? via VBA

[want2b]

Sub yWant2b()
Range("G3").Select
ActiveCell.End(xlDown).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

I've been happy all day cause I knew I could get this range into what I got from the micro recorder WRONG

How do I get Range(ActiveCell,ActiveCell.End(xlDown)).Select
To be the print Area???????

While I'm at it. I would like this to print on the left edge of the page,
It is only one column, The number or rows will varry but I would like it to print as large as possible or as small as necessary to get on one page.
I began to think I was getting a handle on this

Sorry But Thanks


ActiveSheet.PageSetup.PrintArea = ???????????????????
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.116666666666667)
.BottomMargin = Application.InchesToPoints(0.553472222222222)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 720
.CenterHorizontally = False
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 84
.PrintErrors = xlPrintErrorsDisplayed
End With

 

[Yogi Anand]

Hi Want2b:

Good Job -- you have it working now the way you wanted it to work -- now let us keep EXCELing!