Here's an interesting little trick that I picked up from Tom Ogilvy the
other day

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.Range("A61:B120").Copy Destination:=Range("C1")
.Range("A61:B120").ClearContents
Application.EnableEvents = False
.PrintOut
.Range("C1:D60").Copy Destination:=Range("A61")
.Range("C1:D60").ClearContents
Cancel = True
Application.EnableEvents = True
End With
End Sub


'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

You might want to add a test for the specific worksheet name if there are
many.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"dawgpilot" wrote in message
...
I have a range with 3 columns and about 120 records. When left in this
format it prints 3 columns over two pages using only 1/2 of each page. I
want excel to print my data on one page with six columns (two ranges with
the
same headings). This is an active database that is changed regularly so
for
me to cut and paste is not effecient enough.