'// Print the selected page
ActiveSheet.PrintOut From:=1, To:=5, _
Copies:=1

My workbook calculates the total number of pages automatically and that
number is in cell 'G6' i need the printout code to pick up the value in cell
'G6' for the "To:". for example cell G6 =6, how do i get the value 6 to
automatically go in the formula.

--
help a friend help you

'// Print the selected page
ActiveSheet.PrintOut From:=1, _
To:=Activesheet.Range("G6").Value, _
Copies:=1


"ernie" wrote:

'// Print the selected page
ActiveSheet.PrintOut From:=1, To:=5, _
Copies:=1

My workbook calculates the total number of pages automatically and that
number is in cell 'G6' i need the printout code to pick up the value in cell
'G6' for the "To:". for example cell G6 =6, how do i get the value 6 to
automatically go in the formula.

--
help a friend help you

try
Sub printit()
with activesheet
mynum =.Range("g3")
..PrintOut From:=1, To:=mynum
end with
End Sub

--
Don Guillett
SalesAid Software

"ernie" wrote in message
...
'// Print the selected page
ActiveSheet.PrintOut From:=1, To:=5, _
Copies:=1

My workbook calculates the total number of pages automatically and that
number is in cell 'G6' i need the printout code to pick up the value in
cell
'G6' for the "To:". for example cell G6 =6, how do i get the value 6 to
automatically go in the formula.

--
help a friend help you