Impressão em PDF com duas Orientações de Página

[RabelloPE]

Pessoal, blz?
Preciso de ajuda numa planilha que tem várias páginas de impressão, só que as páginas 5 e 7 eu gostaria que fosse impressas no formato de paisagem e as demais no modo retrato. É possível?
Sub GerarPDF()

Application.ScreenUpdating = False

Sheets("Playbook").Activate

ActiveSheet.Range("A1").Select

'With ActiveSheet.PageSetup

'.Orientation = xlPortrait
'.Zoom = False
'.FitToPagesTall = 11
'.FitToPagesWide = 1
'.PaperSize = xlPaperA4
'.LeftMargin = Application.CentimetersToPoints(1.5)
'.RightMargin = Application.CentimetersToPoints(1.5)
'.TopMargin = Application.CentimetersToPoints(1)
'.BottomMargin = Application.CentimetersToPoints(1)
'.HeaderMargin = Application.CentimetersToPoints(0)
'.FooterMargin = Application.CentimetersToPoints(0)
'End With


'ActiveSheet.Calculate
'Application.Calculate

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Range("A3").Value & Range("A19").Value & " - " & Format(Date, "ddmmyyyy"), _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Sheets("Painel").Activate

Application.ScreenUpdating = True

MsgBox "O Book de Negocia??o foi exportado com sucesso!"

End Sub

[Reinaldo]

Se for uma range de tamanho fixo, pré formate inicialmente e manualmente, via o utilitário de impressão do excel; a forma que espera de cada pagina