If you like you may send to my personal email a SMALL workbook along with
exactly what you are trying to do. This should NOT be rocket science.

--
Don Guillett
SalesAid Software

"welshlad" wrote in message
...

The way you worded it is exactly what I want to happen, but somehow its
not happening. I am literally copying and pasting your macro, but all
it is doing is hiliting and deliting the only cell that the cursor is
in before the macro is ran. Any idea why this is?

Don Guillett Wrote:
I'm confused.
Again, what the macro does is hilite the row and print the ROW. Do you
want
it to print all 20 rows with only the appropriate row hilited? If so,
this
prints a1:d & last row

Sub importprint()
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To lastrow
With Rows(i)
..Interior.ColorIndex = 15
Range(Cells(1, 1), Cells(lastrow, 4)).PrintPreview
'.PrintPreview
..Interior.ColorIndex = 0
End With
Next i
End Sub

--
Don Guillett
SalesAid Software

"welshlad" wrote in message
...

I copied and pasted your macro but it's not doing anything
differently.
Yes it is registering how many rows there are and print previewing
that
many entries, but the highlighting is remaining on the same cell.

Every day we have a list of client details. We print out a copy of
the
list to put in to every client file. The row corresponding to the
file
we highlight and put it into the front of the file. Therefore, if we
have 20 rows, we want 20 copies of the list, but with the individual
row highlighted.

Just cannot figure out why the macro does not go through the list
highlighting, whereas it just highlights, dehighlights, and
rehighlights the cell which the cursor was in immediately before
running the macro.

Ready to throw the computer now! hee hee

Luke

Don Guillett Wrote:
Professionals tend to avoid selections wherever possible. Why do you
want to
move the cursor to the row to printhiliteprintunhilite when just
printing
each row should do nicely. I'm also not quite sure why you want to
print
each row separately.???

This does what you want, WITHOUT selecting. Try it.

Sub importprint()
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To lastrow
With Rows(i)
..Interior.ColorIndex = 15
..PrintPreview
..Interior.ColorIndex = 0
End With
Next i
End Sub

--
Don Guillett
SalesAid Software

"welshlad" wrote in
message
...

This is my macro now. It recognises how many rows of data there are,
prints that amount, which I want. But I want the first row to be
selected, shaded and printed, then unshaded, then the same with the
second row etc. The cursor still doesn't move though when the macro
is
ran. Why? It's really frustrating me now.

Please help, any advice would be grateful.


Sub importprint()

'
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To lastrow
With Rows(i)
Selection.Interior.ColorIndex = 15
ActiveWindow.SelectedSheets.PrintPreview
Selection.Interior.ColorIndex = 0
End With
Next i
End Sub



Don Guillett Wrote:
Did you try what i posted, as posted? If not col A, change.
Why did you put .. instead of . for the with statements?

--
Don Guillett
SalesAid Software

"welshlad" wrote in
message
...

Want I want is for the first row to be shaded, then printed. Then
the
first row to be deshaded, then shade the second row and print etc.
The
macro realised how many rows I had but the shade only occured in the
row which the cursor was in when the macro was started.

Don Guillett Wrote:
still not quite sure what you want but try this. Why do you want to
highlight the row?
Change printpreview to printOUT to actually print

Sub importprint()
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To lastrow
With Rows(i)
..Interior.ColorIndex = 15
..PrintPreview
..Interior.ColorIndex = 0
End With
Next i
End Sub

--
Don Guillett
SalesAid Software

"welshlad" wrote in
message
...

Thank you for your comments regarding a macro in excel registering
how
many rows there are of data.
I took your advice but now this happens : - it registers how many
rows
of data there are, but the shading does not move down.

Here's my macro : -

Sub importprint()
'
' importprint Macro
' Macro recorded 14/10/2005 by WP122
'

'
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To lastrow

With Selection.Interior
ColorIndex = 15
Pattern = xlSolid
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.Interior.ColorIndex = xlNone

Next i
End Sub


(I want the macro to highlight the first row, highlight it, print
it,
then de-highlight it, then move on to the second row and do the same
process etc etc.

Can you help at all?

Regards,

Luke

Don Guillett Wrote:
As always, post your code for comments but to find the last row in
col
A

lastrow=cells(rows.count,"a").end(xlup).row
for i=2 to lastrow
your stuff
next i
--
Don Guillett
SalesAid Software

"welshlad" wrote in
message
...

Every morning we have a file imported containing rows of data. There
are
a different amount of entries every day. I have managed to set up a
macro that goes through each row individually highlighting it and
printing it off. Therefore, if I have an import with 20 rows, my
macro
prints off 20 copies, with each row individually being highlighted.

My problem is that I can only do this if I firstly enter into the
macro
how many rows of data there are. Is there any way the macro can work
through the rows, and know when to stop?

Any advice will be gratefully received.


--
welshlad


--
welshlad


--
welshlad


--
welshlad


--
welshlad


--
welshlad