So I have got it to work using this:
But now I have a new problem.Code:Sub setprintarea() Dim LeftRange As String Dim RightRange As String Dim LastRow As Integer ActiveSheet.Unprotect Application.ScreenUpdating = False 'ActiveWindow.FreezePanes = False LastRow = ActiveSheet.UsedRange.Rows.Count ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & LastRow & ",$K$1:$AE$" & LastRow Application.ScreenUpdating = True 'ActiveSheet.Protect End Sub
Cols A to E print on one page (about 1/3 width of A3 Landscape) and then K to AE prints over 2 more pages: the first filled fully and the second about half way.
Can anyone help me to get Col K to print on the first page immediately adj to Col E.
My aim would to be Max 2 pages wide and as many pages long to get the whole sheet.