Error in Macro to print a Range

[tariqnaz2005]

Sub test()
Dim LastRowToPrint As Long
Dim PrintArea As Range
Dim FirstCellToPrint As String
Dim LastColumnToPrint As String

FirstCellToPrint = "A1"
LastColumnToPrint = "E"

'Find the last row of data:
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

Set PrintArea = Range(FirstCellToPrint & ":" & LastColumnToPrint & LastRowToPrint)

End Sub

I m getting a probelm in above code and need little immediately, when i run it a message appear that "Method "Range" of object _Global Failed..

Can some one correct it..Sheet is attached i want to print 3 ranges as in sheet from 3 different macros but range always decreasing and increasing.

Thanks in advance

Book1.xls