Excel 忽略 VBA 打印设置答案

【问题标题】：Excel ignoring VBA Print SettingsExcel 忽略 VBA 打印设置
【发布时间】：2016-11-08 10:00:34
【问题描述】：

由于某种原因，Excel 在这里忽略了我的“Fit 1 by 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

【问题讨论】：

标签： vba excel printing

【解决方案1】：

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

.Zoom = False

【讨论】：