選択した領域を1ページに印刷するPDF

Question

以下のコードを続けて、印刷領域を1ページに収める方法は？

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "c:\Book1.pdf", Quality:= _ 
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=True 

Answer 1

エクスポートした後は、これ以上は使用できません。私は何

は、私が

With ActiveSheet.PageSetup 
    .FitToPagesWide = 1 
    .FitToPagesTall = 1 
    .Orientation = xlLandscape 
End With 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\Book1.pdf", _ 
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, _ 
OpenAfterPublish:=True