Printing in columns (newspaper column style)

[Mia A]

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

 

[Norie]

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]

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
	A	B	C	D	E	F	G
1
2		Yoursheetlookslikethis:			Theprintrangeishere(butputitwelloutofsight):
3
4		Thisisthefirstlineofdata			Thisisthefirstlineofdata	Thisisthethirdlineofdata
5		Thisisthesecondlineofdata			Thisisthesecondlineofdata	Thisisthefourthlineofdata
6		Thisisthethirdlineofdata
7		Thisisthefourthlineofdata
8
Sheet1

 

[erik.van.geit]

Hi, try this,

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]

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?