Sub Set_Print_Area3()

Dim x As Long, lastCell As Range, LR As Long

x = ActiveSheet.UsedRange.Columns.Count

Set lastCell = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0)

LR = lastCell.Row

Do Until Application.Count(Range(Cells(LR, 2), Cells(LR, 256))) <> 0

Set lastCell = lastCell.Offset(-1, 0)

LR = lastCell.Row

Loop

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address

With ActiveSheet.PageSetup

.Orientation = xlLandscape

.FitToPagesWide = 1

.FitToPagesTall = 7

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub

Any help would be appreciated.

Thanks