title: Excel ignoring VBA Print Settings
body: <p>For some reason Excel is ignoring my "Fit 1 by 1" rule here.  I tried to adjust the zoom but anything I do doesn't seem to work.  Any ideas are utmost welcome! Thank you!</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  Dim Sel_Manager As String
  'Specify headers to be repeated at the top
  With ActiveSheet.PageSetup
          .PrintTitleRows = "$5:$9"
          .PrintTitleColumns = "$B:$M"
          .Orientation = xlLandscape
          .Zoom = 70
          .FitToPagesWide = 1
          .FitToPagesTall = 1
  End With
  
  'Manager selection through simple Inputbox
   Sel_Manager = ComboBox1
  'Insert autofilter for worksheet
  Cells.Select
  Selection.AutoFilter
  'Select manager defined in inputbox
  ActiveSheet.Range("B14", Range("M14").End(xlDown)).AutoFilter Field:=1, Criteria1:=Sel_Manager
   'Select range to be printed and specify manager in filename
  ActiveSheet.Range("B14", Range("M14").End(xlDown)).Select
  
  Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  Sel_Manager + ".pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
  
    ActiveSheet.ShowAllData
  
  End Sub
  </code></pre>