Guest User

Untitled

a guest
Jun 25th, 2018
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.73 KB | None | 0 0
  1. <body bgcolor="#ffffff" leftmargin="0" topmargin="0" background bgProperties="fixed" onload="javascript:printform();" >
  2.  
  3. <Script Language='JavaScript'>
  4. function printform()
  5. {
  6. print();
  7. }
  8. </script>
  9.  
  10. Private ie As InternetExplorer
  11. Private doc As HTMLDocument
  12. Private pBarcodeStandard As String
  13.  
  14. Private Sub IE_Wait()
  15.  
  16. Do While ie.Busy Or ie.readyState = READYSTATE_LOADING: DoEvents: Loop
  17.  
  18. End Sub
  19. Public Sub Import_TES_Data()
  20.  
  21. Set ie = New InternetExplorer
  22. ie.Visible = False
  23. ie.navigate "https://company.intranet.page.here/"
  24. IE_Wait
  25. Set doc = ie.document
  26. doc.getElementsByName("itemNum")(0).value = pBarcodeStandard
  27. doc.forms(0).submit
  28.  
  29. 'After submitting the form (at this point) the webpage loads with the onLoad command
  30.  
  31. End Sub
Add Comment
Please, Sign In to add comment