Guest User

Untitled

a guest
Aug 16th, 2018
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. Send WebBrowser Control URL ---> .asmx Service
  2. <WebMethod(Description:="Creates PDF Using URL")> _
  3. Public Function CreatePDF(ByVal givenURL As String) As Byte
  4. Dim theDoc As New Doc
  5. Dim theID = theDoc.AddImageUrl(givenURL, True, 0, True)
  6.  
  7. Do While True
  8. theDoc.FrameRect()
  9. If Not theDoc.Chainable(theID) Then
  10. Exit Do
  11. End If
  12.  
  13. theDoc.Page = theDoc.AddPage()
  14. theID = theDoc.AddImageToChain(theID)
  15. Loop
  16. theDoc.SaveOptions.Linearize = True
  17.  
  18. Dim theData As Byte() = theDoc.GetData()
  19.  
  20. Return theData(0)
  21.  
  22. End Function
Add Comment
Please, Sign In to add comment