printing on 1 piece of paper

J

julie

hello, i have looked all over the help button for this answer. cant find.
does anyone
know how to print 2 consectutive long rows of information on 1 piece of paper.
It is on 1 excel sheet. i would like it to look like you were reading a book.

example: row 1 12 12 12 12 12 12 12 12 12 12
12 12 12

row 1 12 12 12 12 12
12 12 12 12 12
12 12 12 12 12
 
G

Gord Dibben

Julie

Your "is now" example shows one row with 13 12's........I think!

Your "want to be" example shows one row with 15 12's in 5 cells or is it 3 rows
of 5 columns each?

How long are the rows?

From A1 to which column?

From A2 to which column?

How many columns do you want when ready to print?

Maybe you should give us some ranges instead of 12's which get line-wrapped in
these posts.

Like A1:AA1 and A2:AA2 or similar.


Gord Dibben MS Excel MVP
 
J

julie

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
 
G

Gord Dibben

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
 
Top