Excel忽略VBA打印设置
出于某种原因,Excel在这里忽略了我的“按1拟合1”规则。我试着调整缩放,但我做的任何事情似乎都不起作用。欢迎提出任何意见!谢谢大家!Excel忽略VBA打印设置,vba,excel,printing,Vba,Excel,Printing,出于某种原因,Excel在这里忽略了我的“按1拟合1”规则。我试着调整缩放,但我做的任何事情似乎都不起作用。欢迎提出任何意见!谢谢大家! Private Sub CommandButton1_Click() Dim Sel_Manager As String 'Specify headers to be repeated at the top With ActiveSheet.PageSetup .PrintTitleRows = "$5:$9" .PrintTi
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
调整页面和缩放相互排斥。尝试设置:
.Zoom = False
调整页面和缩放相互排斥。尝试设置:
.Zoom = False