... * 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 ...>I'm using this code from Sergey's site to open a PDF file in a web browser control:
>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 >>