How to use VBA code to print out an area

Requirement:

The user is wanting to modify some VBA to print an area. Right now the user has a very quick print code but it alters the selection area because when the code runs you get moved to where the print area is.

Here is the users current code:

Code:

Sub S_Print()
Range(Range("t1:v10"), Range("t1").End(xlDown)).Select
Selection.PrintOut
End Sub

How can the user modify it to just be something simple like Printout Range(":") and not have to change the print area or position on the worksheet?

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1197003-printout-range

Solution:

Code:

Sub PrnUnsold()
'
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
With ActiveSheet
.PageSetup.PrintArea = .Range("A1:F" & lr).Address
End With
ActiveSheet.PrintOut
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Ediscot and Jolivanes.