how to select print area within the macro if report is going

ap1 · Mar 27th, 2002, 08:07 AM

I want to know how to select print area within the macro if report is going to be of varied length within a macro if i do ctrl+shift+end in the macro it sets it to the length of current report but when i run a longer report the print area is not proper

any idea?

Juan Pablo González · Mar 27th, 2002, 08:36 AM

If your "current" Print Area is something like

A1:H46

put this as your NEW Print Area.

A:H

It'll adjust itself automatically.

Cosmos75 · Mar 29th, 2002, 11:10 AM

If your print range is in Columns A:H and you don't know how long it will be, this should work for you.

Dim ReportRange as Range

'Sets Ranges from A1 to
'the last cell with data in column H
'which is searched for by starting with cell H65536 and
'going up to the last cels with data in column H
Set ReportRange = Range("A1",Range("H65536").End(xlup).Address)

ReportRange.Select

Mar 27th, 2002, 08:36 AM	#2
Juan Pablo González MrExcel MVP Join Date: Feb 2002 Location: Bogota, Colombia Posts: 11,927	If your "current" Print Area is something like A1:H46 put this as your NEW Print Area. A:H It'll adjust itself automatically. __________________ Regards, Juan Pablo González http://www.juanpg.com

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 27th, 2002, 08:07 AM	#1
ap1 New Member Join Date: Mar 2002 Posts: 26	I want to know how to select print area within the macro if report is going to be of varied length within a macro if i do ctrl+shift+end in the macro it sets it to the length of current report but when i run a longer report the print area is not proper any idea?

Mar 29th, 2002, 11:10 AM	#3
Cosmos75 Board Regular Join Date: Feb 2002 Location: Tulsa, OK Posts: 354	If your print range is in Columns A:H and you don't know how long it will be, this should work for you. Dim ReportRange as Range 'Sets Ranges from A1 to 'the last cell with data in column H 'which is searched for by starting with cell H65536 and 'going up to the last cels with data in column H Set ReportRange = Range("A1",Range("H65536").End(xlup).Address) ReportRange.Select