I'm working on a spreadsheet, where the printable area needs to skip columns
K through Columns AQ (yes, the spreadsheet is that wide.) Basically when
printed, I need it to appear that those columns have been hidden, and only
print A through J, then on the same page, AR through AS. Since this is being
set up for other users, asking them to hide, print, then unhide is not really
feasible. I saw one macro that claimed it would work, but unfortunately, it
didn't. It would also be nice if the "Print Preview" showed the exact same
thing as what was going to print.

This is that macro, edited for my needs of course.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.Range("K1,AQ1").EntireColumn.Hidden = True
.PrintOut
.Range("K1,AQ1").EntireColumn.Hidden = False
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub

Any ideas?