How can i print one long column side by side?
I have one long column of data and its going to print on many pages. However
I want to print it on one page, side by side. How do I do this? |
How can i print one long column side by side?
I copy|paste into MSWord and then use format|columns to make it look pretty.
chiller20 wrote: I have one long column of data and its going to print on many pages. However I want to print it on one page, side by side. How do I do this? -- Dave Peterson |
How can i print one long column side by side?
Public Sub SplitToCols()
Dim NumCols As Integer Dim i As Integer Dim colsize As Long On Error GoTo fileerror NumCols = InputBox("Choose Final Number of Columns") colsize = Int((ActiveSheet.UsedRange.Rows.Count + _ (NumCols - 1)) / NumCols) For i = 2 To NumCols Cells((i - 1) * colsize + 1, 1).Resize(colsize, 1).Copy Cells(1, i) Next i Range(Cells(colsize + 1, 1), Cells(Rows.Count, 1)).Clear fileerror: End Sub Gord Dibben MS Excel MVP On Wed, 20 Aug 2008 21:21:01 -0700, chiller20 wrote: I have one long column of data and its going to print on many pages. However I want to print it on one page, side by side. How do I do this? |
All times are GMT +1. The time now is 09:31 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com