Thanks a lot for your help.. It was very usefull. I Solved the problem by
defining the print area. Thanks again..

"Chrissy" wrote in message
...
Yes
- select the text and make that they print area.
OR
- delete the print area and only the area with text will be printed.

ummmmmm - maybe I have not understood this.

How about you be a bit more specific - the blank pages - are they
from blank lines BELOW the data or from blank columns BESIDE
the data?

Chrissy.

T.K Kullervo wrote
And another problem surfaced. Because the lenght of the text may change,
when i have a shorter text for example one page, four blank pages
remain. Is
there someway to force the number of pages to the amount of text in the
sheets.

"Chrissy" wrote in message
...
Sub MakeOneCol()
Dim ThisRow As Range
Dim NewVal As String
Dim i, j As Integer

Set ThisRow = ActiveCell

For i = 0 To 9
NewVal = ""
For j = 0 To 49
NewVal = NewVal & Format(ThisRow.Offset(i, j), 0)
Next j
ThisRow.Offset(i, 0) = NewVal
Next i
End Sub


You will need to decide what you want to do with numbers and if you
want spaces in-between each entry from each cell. Also, if there is a
blank
cell and you are putting spaces in-between do you want two spaces?
This code starts at the active cell and uses the 10 rows and 50 cols.
You can do anything you like to decide what range to process but
you should be able to modify this code to get the results you want.
If you need more help just ask. If all cells are numbers in this
example
you will get a totally different result than if some are not numbers.

Chrissy.


"T.K Kullervo" wrote in message
...
Hi,
Is there a way to get all the text from a row to the First column of
the
row. I tried going throw all the cells in a loop and saving the
values
of
the A and B columns and concatting them together in A column. This
works
but
its very slow. Is there some other way to do this text to columns
backwords?