Excel VBA Ausgabe in PDF Zoom%

Question

Gibt es eine Möglichkeit, den Zoom% auf der PDF zu steuern, wenn es über ein Makro gedruckt wird? Ich habe die Tabelle zu 100% vergrößert, aber das PDF zeigt immer 79,3% und es ist wirklich schwer zu sehen. Wenn es auf 200% gezoomt wird, zeigt es sich perfekt auf dem PDF. Normalerweise würde ich diesen Aspekt ignorieren und dem Benutzer nur sagen, dass er reinzoomen soll, aber es ist für den CEO und, weißt du. Hier

ist, was ich habe:

Private Sub CommandButton1_Click() 
Dim Sel_Manager As String 
'Specify headers to be repeated at the top 
Application.PrintCommunication = False 
With ActiveSheet.PageSetup 
     .PrintTitleRows = "$5:$10" 
     .PrintTitleColumns = "$B:$M" 
     .Orientation = xlLandscape 
     .Zoom = False 
     .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("B10", Range("M10").End(xlDown)).AutoFilter Field:=1, Criteria1:=Sel_Manager 
ActiveSheet.Range("B10", Range("M10").End(xlDown)).AutoFilter Field:=2, Criteria1:="A" 
'Select range to be printed and specify manager in filename 
ActiveSheet.Range("B10", Range("M10").End(xlDown)).Select 

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
Sel_Manager + ".pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 

ActiveSheet.ShowAllData 
Application.PrintCommunication = True 
End Sub 

Answer 1

Bevor Sie die Unter beenden, können Sie diese Zeilen Code hinzufügen bitte.

Application.PrintCommunication = False 
    With ActiveSheet.PageSetup 
     .Orientation = xlLandscape 
     .Zoom = False 
     '.PrintArea = Worksheets(ReportWsName).UsedRange 
     .FitToPagesWide = 1 
     '.FitToPagesTall = 1 
    End With 
Application.PrintCommunication = True