Printing in columns (newspaper column style)

Mia A

New Member
Joined
Feb 21, 2006
Messages
29
Tell me, is it possible to print an Excel worksheet in columns, like a newspaper article?

I have a single column of data spanning 2 pages, and I want it to be printed on one sheet of paper (ie. the data gets split into two columns). I only want the printout to be in columns, so rearranging my data into two columns on the worksheet is out of the question.

Thanks to anyone who answers,
Mia
 

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,282
Office Version
  1. 365
Platform
  1. Windows
Mia

As far as I can see the only way to do this would be to rearrange the data.

But since you've precluded that option I can't see how we can help.:)
 

Airfix9

Well-known Member
Joined
Sep 23, 2005
Messages
886
This is the only way that I could see that you could do it - it's a bit messy and doubles the size of your file, but it would solve your requirement. The print range should be well out of sight...
Book8
ABCDEFG
1
2Yoursheetlookslikethis:Theprintrangeishere(butputitwelloutofsight):
3
4ThisisthefirstlineofdataThisisthefirstlineofdataThisisthethirdlineofdata
5ThisisthesecondlineofdataThisisthesecondlineofdataThisisthefourthlineofdata
6Thisisthethirdlineofdata
7Thisisthefourthlineofdata
8
Sheet1
 

erik.van.geit

MrExcel MVP
Joined
Feb 1, 2003
Messages
17,832
Hi, try this,

Code:
Option Explicit

Sub print_in_two_columns()
'Erik Van Geit
'060907

'EXAMPLE
'A1
'more data
'A112
'PRINTED RESULT
'A1     A57
'more data
'A56    A112

Dim R As Long

Application.ScreenUpdating = False

    With ActiveSheet
    R = .HPageBreaks(1).Location.Row
    .Columns(1).Insert
    .Range("A" & R & ": A" & (R - 1) * 2).Value = .Range("B1:B" & R - 1).Value
    .Columns(1).AutoFit
    .PrintOut From:=2, To:=2, Copies:=1, Collate:=True
    .Columns(1).Delete
    End With

Application.ScreenUpdating = True

End Sub
kind regards,
Erik
 

sabot7726

Board Regular
Joined
Jun 2, 2006
Messages
62
I have a similar question however my spreadsheet has 4 columns I'd like to repeat 2 times.

Right now its all one big set of 4 columns that takes a ton of pages to print. I'd love to be able to hit a button and have it automatically cut off at a certain point and move those columns over to the right side of the page, then continue in sequence on the next page on the left side etc until it runs out of info.

Is there a way to modify the script to do that at say 25 rows or so and then repeat again?
 

Watch MrExcel Video

Forum statistics

Threads
1,129,750
Messages
5,638,133
Members
417,010
Latest member
jnuss03

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top