Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Send WebBrowser Control URL ---> .asmx Service
- <WebMethod(Description:="Creates PDF Using URL")> _
- Public Function CreatePDF(ByVal givenURL As String) As Byte
- Dim theDoc As New Doc
- Dim theID = theDoc.AddImageUrl(givenURL, True, 0, True)
- Do While True
- theDoc.FrameRect()
- If Not theDoc.Chainable(theID) Then
- Exit Do
- End If
- theDoc.Page = theDoc.AddPage()
- theID = theDoc.AddImageToChain(theID)
- Loop
- theDoc.SaveOptions.Linearize = True
- Dim theData As Byte() = theDoc.GetData()
- Return theData(0)
- End Function
Add Comment
Please, Sign In to add comment