Excel忽略VBA打印设置

由于某些原因，Excel在这里忽略了我的“适合1”的规则。 我试图调整缩放，但我所做的任何事情似乎都不起作用。 任何想法都非常欢迎！ 谢谢！

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 

Answer 1

拟合页面和缩放相互排斥。 尝试设置：

 .Zoom = False