Hi
All i want to do is press a form button and print out a cell range, there
are multiple buttons on the spreadsheet each on to print a different range of
cells on same sheet i used this "ActiveSheet.PrintOut.PageSetup.PrintArea =
"A8:B8" to try and doi it changing the print area but it keeps saying there
is an error, any ideas anybody please, or is there another way to do it
--
thanks
Mike

Mike

try:

With ActiveSheet
.PageSetup.PrintArea = "A8:B8"
.PrintPreview
' .PrintOut
End With

Regards

Trevor


"Mike" wrote in message
...
Hi
All i want to do is press a form button and print out a cell range, there
are multiple buttons on the spreadsheet each on to print a different range
of
cells on same sheet i used this "ActiveSheet.PrintOut.PageSetup.PrintArea
=
"A8:B8" to try and doi it changing the print area but it keeps saying
there
is an error, any ideas anybody please, or is there another way to do it
--
thanks
Mike

You could use something like:

With ActiveSheet
.PageSetup.PrintArea = "a8:b8"
.PrintOut preview:=True
End With

Or maybe without changing the printrange...

ActiveSheet.Range("a8:b8").PrintOut preview:=True

Mike wrote:

Hi
All i want to do is press a form button and print out a cell range, there
are multiple buttons on the spreadsheet each on to print a different range of
cells on same sheet i used this "ActiveSheet.PrintOut.PageSetup.PrintArea =
"A8:B8" to try and doi it changing the print area but it keeps saying there
is an error, any ideas anybody please, or is there another way to do it
--
thanks
Mike

--

Dave Peterson

Try:
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$8"
--
Gary''s Student


"Mike" wrote:

Hi
All i want to do is press a form button and print out a cell range, there
are multiple buttons on the spreadsheet each on to print a different range of
cells on same sheet i used this "ActiveSheet.PrintOut.PageSetup.PrintArea =
"A8:B8" to try and doi it changing the print area but it keeps saying there
is an error, any ideas anybody please, or is there another way to do it
--
thanks
Mike

Thanks Dave
That works brilliantly, is there a way to record how many times the button
is pressed as well please
--
thanks


"Dave Peterson" wrote:

You could use something like:

With ActiveSheet
.PageSetup.PrintArea = "a8:b8"
.PrintOut preview:=True
End With

Or maybe without changing the printrange...

ActiveSheet.Range("a8:b8").PrintOut preview:=True

Mike wrote:

Hi
All i want to do is press a form button and print out a cell range, there
are multiple buttons on the spreadsheet each on to print a different range of
cells on same sheet i used this "ActiveSheet.PrintOut.PageSetup.PrintArea =
"A8:B8" to try and doi it changing the print area but it keeps saying there
is an error, any ideas anybody please, or is there another way to do it
--
thanks
Mike

--

Dave Peterson

Keep in mind that the cell reference A8:b8 will not change (in your code
module) if in the excel sheet (interface) "someone" moves your range or
inserts a row or column; Giving A8:B8 a name would improve such things.

HTH

"Dave Peterson" wrote in message
...
You could use something like:

With ActiveSheet
.PageSetup.PrintArea = "a8:b8"
.PrintOut preview:=True
End With

Or maybe without changing the printrange...

ActiveSheet.Range("a8:b8").PrintOut preview:=True

Mike wrote:

Hi
All i want to do is press a form button and print out a cell range, there
are multiple buttons on the spreadsheet each on to print a different
range of
cells on same sheet i used this
"ActiveSheet.PrintOut.PageSetup.PrintArea =
"A8:B8" to try and doi it changing the print area but it keeps saying
there
is an error, any ideas anybody please, or is there another way to do it
--
thanks
Mike

--

Dave Peterson

You could use a cell in a worksheet (that's hidden).

ActiveSheet.Range("a8:b8").PrintOut preview:=True
with worksheets("hiddennamehere").range("a1")
if isnumeric(.value) then
.value = .value + 1
else
.value = 1
end if
end with

But if you use this kind of thing, then you have to save the workbook -- so that
the counter gets saved for the next time.

And it's not always a good thing to just save a workbook without knowing the
other changes that have been made. Is there a real reason to care?

Mike wrote:

Thanks Dave
That works brilliantly, is there a way to record how many times the button
is pressed as well please
--
thanks

"Dave Peterson" wrote:

You could use something like:

With ActiveSheet
.PageSetup.PrintArea = "a8:b8"
.PrintOut preview:=True
End With

Or maybe without changing the printrange...

ActiveSheet.Range("a8:b8").PrintOut preview:=True

Mike wrote:

Hi
All i want to do is press a form button and print out a cell range, there
are multiple buttons on the spreadsheet each on to print a different range of
cells on same sheet i used this "ActiveSheet.PrintOut.PageSetup.PrintArea =
"A8:B8" to try and doi it changing the print area but it keeps saying there
is an error, any ideas anybody please, or is there another way to do it
--
thanks
Mike

--

Dave Peterson


--

Dave Peterson