Macro or code for Selecting the print area.

Hope I ask this properly.
I have a dummy spreadsheet set up for the quoting Dept. Range for each can be small to all columns and 10000+ rows.

I only want to print a specific range
lets say B1:F1000. Basically I
want to print to the last active cell in F
which contains data .

Is there coding that will examine a range and determine where the data ends, and I can then set the print area I desire?

[Juan Pablo González]

The easy way to go is setup the print area as A:F, or B:F and Excel will determine by itself the last used row.

[Zac]

ThankJuan, I'll try it.

[Zac]

Here's the code I used to set the print area for what I thought would work. It didn't. IT set the print area for all of A and all og G. I was hoping it would find the last cell in the last row that contained data.
Which in my trial run was G48.

Code:
Application.Goto Reference:="R1C1"
ActiveCell.Range("A:G").Select
ActiveSheet.PageSetup.PrintArea = "$A:$G"
ActiveCell.Select

What did I do wrong?

_________________


[ This Message was edited by: Zac on 2002-02-21 08:36 ]

[Paul B]

I think Juan was talking about going to file,page setup and seting the print area to A:F, not using a marco. Hope this helps

[RWinfield]

Sub setprintarea()
Dim myrange As String
myrange = Cells(Rows.Count, 6).End(xlUp).Address
ActiveSheet.PageSetup.PrintArea = "$A$1:" & myrange
End Sub
This looks for the last used cell in the F column and sets the print area accordingly.

Rick

[Juan Pablo González]

On 2002-02-21 08:24, Zac wrote:
Here's the code I used to set the print area for what I thought would work. It didn't. IT set the print area for all of A and all og G. I was hoping it would find the last cell in the last row that contained data.
Which in my trial run was G48.

Code:
Application.Goto Reference:="R1C1"
ActiveCell.Range("A:G").Select
ActiveSheet.PageSetup.PrintArea = "$A:$G"
ActiveCell.Select

What did I do wrong?

What ? well, actually, you didn't (You selected a whole bunch of things you didn't need to, but.... Actually THAT works ! unless, you have some "invisible" cells, formulas that return a "". If that's the case then you'll print some extra pages.

Try the macro proposed, that should work.