Wrap in Segments?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

HNDon - 23 Mar 2005 19:27 GMT

Is there a means of taking a wide spreadsheet that would print on 2+ pages
and having the data from the pages 2, 3, etc. print on the 1st page.

I was told that there was something called "Wrap in Segments" but have been
unable to locate anything.

Example:
Spreadsheet has data as:

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 L1 M1 N1 O1 P1 Q1 R1 S1 T1 U1 V1 W1 X1 Y1 Z1
A2 B2 C2 D1 E2 F2 G2 H2 I2 J2 K2 L2 M2 N2 O2 P2 Q2 R2 S2 T2 U2 V2 W2 X2 Y2 Z2

We want the data to print as:
A1 B1 C1 D1 E1 F1 G1 H1 I1
J1 K1 L1 M1 N1 O1 P1 Q1 R1
S1 T1 U1 V1 W1 X1 Y1 Z1
A2 B2 C2 D1 E2 F2 G2 H2 I2
J2 K2 L2 M2 N2 O2 P2 Q2 R2
S2 T2 U2 V2 W2 X2 Y2 Z2

Any help will be appreciated.

Reply to this Message

Gord Dibben - 23 Mar 2005 22:24 GMT

For 26 columns to 9 columns and 3 rows per your example.

Sub WrapUnder()
Dim i As Long
For i = Range("A1").End(xlDown).Row To Range("A1").Row Step -1
Cells(i + 1, 1).EntireRow.Insert
Cells(i + 1, 1).EntireRow.Insert
Cells(i, 1).Range("J1:R1").Cut Cells(i + 1, 1)
Cells(i, 1).Range("S1:Z1").Cut Cells(i + 2, 1)
Next i
End Sub

Never heard of a "Wrap in segments" function.

Gord Dibben Excel MVP

>Is there a means of taking a wide spreadsheet that would print on 2+ pages
>and having the data from the pages 2, 3, etc. print on the 1st page.
[quoted text clipped - 17 lines]
>
>Any help will be appreciated.

Reply to this Message