Excel VBAからPDFへの出力％

Question

マクロを介してPDFを印刷するときにPDFのズーム％を制御する方法はありますか？私はスプレッドシートを100％拡大しましたが、PDFは常に79.3％で表示されていて、見るのは難しいです。 200％で拡大表示しても、PDF上で完全に正常に表示されます。私は通常、この側面を無視し、ユーザーにズームインするように指示しますが、これはCEOのためのものです。

ここ

は私が持っているものです。

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

あなたは、サブを終了する前に、あなたはあなたのコードにこれらの行を追加することができますしてください。

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