Sub PrintRows()
Dim i As Long, rw as Long
Dim sh as Worksheet
Dim sh1 as Worksheet
Dim wkbk as Workbook
set wkbk = Activeworkbook
workbooks.Add
set sh1 = ActiveSheet
rw = 1
for each sh in wkbk.worksheets
For i = 5 To 206
if sh.Range("BQ" & i).Value < 0 then
sh.Rows(i).EntireRow.copy Destination:=sh1.Cells(rw,1)
rw = rw + 1
End if
Next i
Next sh
Sh1.PrintOut
sh1.parent.close Savechanges:=False
End Sub

--
Regards,
Tom Ogilvy



"Jonsson " wrote in message
...
Hi Tom,

Your code did´nt solve my problem.

This is what I want to do:

Instead of printing all of the pages from the sheet,(9 pages), I want
to "compress" the rows to be print outed on one page, as I have hidden
the unwanted rows.

Sorry for my bad english!!
Hope you can understand me anyway!!

//Thomas


---
Message posted from http://www.ExcelForum.com/