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

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,351
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?
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,168,173
Messages
5,857,777
Members
431,897
Latest member
IntelligentCan1517

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