Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Fill Page with Single Column
I have an Excel worksheet with two columns and many, many rows. I want to
print the data and get less sheets of paper. So I want the columns to fill in the paper like so that it prints down to the bottom of the page, wraps up to the top, fills another section on the page, wraps up, and so on until the page is filled both vertically and horizontally. Then start a new page. Kind of like the ability to make three or four columns on a page in Word. Is this making sense? 1A 1B 66A 66B 131A 131B 2A 2B 67A 67B 132A 133B 3A 3C 68A 68B 134A 134B 4A 4C 69A 69B 135A 135B .... ... ... |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Fill Page with Single Column
ND Campbell
Here are a couple of options: http://www.asap-utilities.com/ Free down load with lots of stuff See David McRitchie's Snake Columns page at: http://www.mvps.org/dmcritchie/excel/snakecol.htm HTH Mike Rogers "ND Campbell" wrote: I have an Excel worksheet with two columns and many, many rows. I want to print the data and get less sheets of paper. So I want the columns to fill in the paper like so that it prints down to the bottom of the page, wraps up to the top, fills another section on the page, wraps up, and so on until the page is filled both vertically and horizontally. Then start a new page. Kind of like the ability to make three or four columns on a page in Word. Is this making sense? 1A 1B 66A 66B 131A 131B 2A 2B 67A 67B 132A 133B 3A 3C 68A 68B 134A 134B 4A 4C 69A 69B 135A 135B ... ... ... |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Fill Page with Single Column
Your subject line reads "single column" but your description reads "two
columns". I will go with the two columns. This macro will snake two columns into 8 in sets of 50 rows. Sub Move_Sets() Dim iSource As Long Dim iTarget As Long iSource = 1 iTarget = 1 Do Cells(iSource, "A").Resize(50, 2).Cut _ Destination:=Cells(iTarget, "A") Cells(iSource + 50, "A").Resize(50, 2).Cut _ Destination:=Cells(iTarget, "C") Cells(iSource + 100, "A").Resize(50, 2).Cut _ Destination:=Cells(iTarget, "E") Cells(iSource + 150, "A").Resize(50, 2).Cut _ Destination:=Cells(iTarget, "G") iSource = iSource + 200 iTarget = iTarget + 51 Loop Until IsEmpty(Cells(iSource, "A").Value) End Sub Gord Dibben MS Excel MVP On Mon, 10 Dec 2007 19:44:00 -0800, ND Campbell wrote: I have an Excel worksheet with two columns and many, many rows. I want to print the data and get less sheets of paper. So I want the columns to fill in the paper like so that it prints down to the bottom of the page, wraps up to the top, fills another section on the page, wraps up, and so on until the page is filled both vertically and horizontally. Then start a new page. Kind of like the ability to make three or four columns on a page in Word. Is this making sense? 1A 1B 66A 66B 131A 131B 2A 2B 67A 67B 132A 133B 3A 3C 68A 68B 134A 134B 4A 4C 69A 69B 135A 135B ... ... ... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Plain text to fill a single column: how? | Excel Discussion (Misc queries) | |||
Page numbers on copies of a single page worksheet | Excel Discussion (Misc queries) | |||
Printing multiple page worksheets on 1 single page | Excel Discussion (Misc queries) | |||
How do I print a single column of data in two columns on one page | Excel Discussion (Misc queries) | |||
Return Single Row of Numeric Data to Single Column | Excel Worksheet Functions |