Распечатайте выбранную область в 1 Page PDF

Question

В продолжение приведенного ниже кода, как разместить область печати на одной странице?

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

Answer 1

После того, как вы экспортировали, его больше невозможно.

Что я могу сделать, это изменить PageSetup с .FitToPagesWide = 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