Macro autofit Cols b & C on Print Preview

[howard]

I have written codeto preview the page before printing

I always have to adjust Cols B & C as they have ##### as col too small

I have incorporated code to do this , but it is not adjusting the col With

 Range("B:C").EntireColumn.AutoFit

 Sub Print_Preview()
Sheets("Pivot Table").Select
Range("A1").Select
  Lastrow = Sheets("pivot Table").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Pivot Table").Select
 With ActiveSheet.PageSetup
.PrintGridlines = True
.PrintArea = "A4:G" & Lastrow + 5
.PrintTitleRows = "$3:$3"
.PrintTitleColumns = ""
.LeftHeader = "&D&T"
.CenterHeader = "Sales Schedule"
.Orientation = xlLandscape
.FitToPagesWide = 1
End With

Sheets("Pivot TABLE").Select
Range("B:C").EntireColumn.AutoFit
    ActiveWindow.View = xlPageBreakPreview
      Range("A1").Select
      
End Sub

It would be appreciated if someone could assist me

 

[howard]

I have also posted on Macro autofit Cols b & C on Print Preview