Increase/Decrease Print Range in Macro

**tariqnaz2005** · 11-11-2009, 01:49 AM

Hi All,

I have a sheet fro example from A1 to z100..

I had recoreded a macro to print this area by a button, but daily some date have to remove and some have to add..hense, some time i remains 90 rows and some time 110 rows..

Is there a macro so that print range should automatically adjusted and macro button can print automatically without editing for rows 110 or 90 or whatever..

I hope this is not a hard for you guys..

Thanks in advance..

**protonLeah** · 11-11-2009, 02:49 AM

Please Login or Register  to view this content.

**tariqnaz2005** · 11-11-2009, 03:13 AM

Thanks for quick response..

An error is apperaing while i insert module..

RUN TIME 1004, METHOD RANGE OF OBJECT _GLOBAL FAILED..

and secondaly I have 3 ranges in one sheet to print with 3 different macro..for example from A1 to A50 and A55 to Z100 and A105 to Z150..

i want a macro who can print from A1:Z untill any blank row is there..and than same as A55:Z and than A105:Z..

Thanks in advance

**tariqnaz2005** · 11-11-2009, 07:22 AM

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__________________

Hi Protinelea or all,

as i received code Avove ..an error is coming if i insert it ..

can some one check it and correct it for me..thanks