>... > * Load PDF > Thisform.oWB.OBJECT.Navigate2(Thisform.cPdfFileName) > * Wait for load to complete > lnSeconds = SECONDS() > DO WHILE (Thisform.oWB.OBJECT.Busy OR Thisform.oWB.OBJECT.ReadyState <> 4) ; > AND SECONDS() - lnSeconds < 60 > DOEVENTS > ENDDO > > TRY > loDoc = Thisform.oWB.oBJECT.Document > = loDoc.setPageMode("Page Only") > = loDoc.setShowToolbar(0) > FINALLY > loDoc = null > ENDTRY >... >>
>>PROCEDURE ShowPdf >> && Clear Web browser control by loading blank page >> Thisform.oWB.OBJECT.Navigate2("About:Blank") >> && Wait for load to complete >> lnSeconds = SECONDS() >> DO WHILE Thisform.oWB.OBJECT.Busy AND SECONDS() - lnSeconds < 60 >> DOEVENTS >> ENDDO >> >> && Load PDF >> Thisform.oWB.OBJECT.Navigate2(Thisform.cPdfFileName) >> && Wait for load to complete >> lnSeconds = SECONDS() >> DO WHILE Thisform.oWB.OBJECT.Busy AND SECONDS() - lnSeconds < 60 >> DOEVENTS >> ENDDO >>ENDPROC >>>>