Macro para descargar PDF de SAP a tu disco duro

Busco la manera de descargar un PDF que me genera SAP a mi maquina. La transacción que utilizo es YAFZRIT, este es el código que utilizo para generar la información.

Dim SapGuiAuto, SapApp, Sap As Object
Set rotEntry = GetObject("SAPGUI")
Set SapApp = rotEntry.GetScriptingEngine
Set rotEntry = GetObject("SAPGUI")
Set SapApp = rotEntry.GetScriptingEngine
With SapApp.Connections(0).sessions(0)
Dim i As Integer
Max = Range("B65000").End(xlUp).Row
For i = 2 To Max

PN = Cells(i, 2).Value

ZM08 = Cells(i, 4).Value

.findById("wnd[0]").maximize
.findById("wnd[0]/tbar[0]/okcd").Text = "/NYAFZRIT"
.findById("wnd[0]").sendVKey 0
.findById("wnd[0]/usr/ctxtW_AUFNR").Text = ZM08
.findById("wnd[0]/usr/ctxtW_MATNR").Text = PN
.findById("wnd[0]/usr/ctxtW_WORKSCOPE").Text = "********"
.findById("wnd[0]/usr/ctxtW_PLANTA_IN").Text = "****"
.findById("wnd[0]/usr/ctxtW_LGORT").Text = "****"
.findById("wnd[0]/usr/ctxtW_NON_SLOC").SetFocus
.findById("wnd[0]/usr/ctxtW_NON_SLOC").caretPosition = 0
.findById("wnd[0]/usr/btnENTER").press
.findById("wnd[1]/tbar[0]/btn[0]").press
.findById("wnd[0]/tbar[0]/btn[11]").press
.findById("wnd[2]/tbar[0]/btn[0]").press

Al terminar se abre una ventana de PDF la cual no se que comando utilizar para guardarlo a mi computadora con un nombre especifico.