THANK YOU FOR YOUR REPLY I WILL WORK ON IT AND GET BACK TO YOU.

--
julie


"Gord Dibben" wrote:

You can stick the row space-delimited in one cell and then set to wrap text and
autofit.

Print out that cell.

Just be aware that Excel will print out only about 1024 characters from a cell.

A1:AZ1 is 52 cells so you could have up to about 20 characters per cell

Sub ConCat_Cells()
Dim X As Range
Dim y As Range
Dim z As Range
Dim w As String
Dim sbuf As String
w = " "
Set X = Range(Range("A1"), Cells(ActiveCell.Column, _
Columns.Count).End(xlToLeft))
Set z = Application.InputBox("Select Destination Cell", _
"Destination Cell", , , , , , 8)
For Each y In X
If Len(y.Text) 0 Then sbuf = sbuf & y.Text & w
Next
z = Left(sbuf, Len(sbuf) - Len(w))
End Sub



Gord

On Mon, 10 Mar 2008 07:12:00 -0700, julie
wrote:

Sorry gord, but what you said is what i want. i want to row to line wrap on 1
piece
of paper. Say i had 1 row that went from A1: to AZ1 and i want for it to
print
on 1 piece of paper however to it fit so i can save paper and time.

i print these types of rows all the time and need a better system in which
to print
out. thank you