Newspaper Columns

  • Thread starter Thread starter Dave
  • Start date Start date
D

Dave

I have a long list of data consisting of three narrow columns. When I print
the sheet, I'd like to repeat the set of three columns a few times per page
(exactly like a telephone book) to prevent wasting paper. Can't find how to
do this in the help index. Any suggestions?? thanks.

Dave
 
Dave

One VBA routine......

Will overwrite data on the sheet. Make a copy of your original sheet if you
want to preserve it.

Public Sub Snake3to9()
Dim myRange As Range
Dim colsize As Long
Dim maxrow As Long
Const numgroup As Integer = 3
Const NUMCOLS As Integer = 9
On Error GoTo fileerror
colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
((NUMCOLS - 1)) / NUMCOLS)) / numgroup
MsgBox "Number of Rows to Move is: " & colsize
Range("A1").Select
With ActiveCell.Parent.UsedRange
maxrow = .Cells(.Cells.Count).Row + 1
End With
ActiveCell.Parent.Cells(maxrow, ActiveCell.Column) _
.End(xlUp).Offset(1, 0).Select
Set myRange = Range(ActiveCell.Address & ":" _
& ActiveCell.Offset(-colsize, (numgroup - 1)).Address)
myRange.Cut Destination:=ActiveSheet.Range("A1").Offset(0, _
(NUMCOLS - numgroup))
Range("A1").Select
Cells.End(xlDown).Offset(1, 0).Select
Set NextRange = Range(ActiveCell.Address & ":" _
& ActiveCell.Offset(-colsize, (numgroup - 1)).Address)
NextRange.Cut Destination:=ActiveSheet.Range("A1").Offset(0, _
(NUMCOLS / numgroup))
Application.CutCopyMode = False
Range("A1").Select
fileerror:
End Sub

Gord Dibben Excel MVP
 
Dave,
There is nothing built into Excel to do this.

1. You have to write code...
See response from Gord Dibben

2. Use some built in features in Word...
See response from Anders Silven:
http://www.mvps.org/dmcritchie/excel/snakecol.htm

3. Use a utility or an Excel add-in...
My Excel add-in "Side by Side" should do what you want...
Column(s) of data are arranged into two or three groups on successive pages.
Data sequence is maintained and the area above the data is not changed.
A new worksheet is created with the new column arrangement.
Your original worksheet is not affected.
You print from the new worksheet. It's easy to use and very fast.
Comes with one page Word.doc install/use instructions.
Available - free - upon direct request. Remove xxx from email address.

Regards,
Jim Cone
San Francisco, CA
(e-mail address removed)
 
There is also a utility which has a 'snake column facility', plus many other
things, built in it it. It is called ASAP Utilities and the paper saver
(split columns) can be
found in the format area. It is free to down load from:-
http://www.asap-utilities.com/
Barbara
 
Back
Top