RenderPage0.vb
''
'' This code is part of GrapeCity Documents for PDF samples.
'' Copyright (c) GrapeCity, Inc. All rights reserved.
''
Imports System.IO
Imports System.Drawing
Imports GrapeCity.Documents.Pdf
Imports GrapeCity.Documents.Text
Imports GrapeCity.Documents.Html

'' This sample shows the simplest way to render a web page
'' specified by a URL to a PDF (here we render the Google home page).
''
'' In this sample we directly use the GcHtmlRenderer class
'' to render the page to a temporary PDF file, which Is then
'' returned in the output stream.
'' A more flexible way that allows to easily add HTML conetnt
'' to a PDF file along with other content Is via the extension
'' methods GcPdfGraphics.MeasureHtml()/GcPdfGraphics.DrawHtml()
'' as demonstrated by HelloWorldHtml And other samples.
''
'' Please see notes in comments at the top of HelloWorldHtml
'' sample code for details on adding GcHtml to your projects.
Public Class RenderPage0
    Sub CreatePDF(ByVal stream As Stream)
        '' Get a temporary file where the web page will be rendered:
        Dim tmp = Path.GetTempFileName()
        '' The Uri of the web page to render:
        Dim uri = New Uri("http://www.google.com")
        '' Create a GcHtmlRenderer with the source Uri
        '' (note that GcHtmlRenderer ctor And other HTML rendering methods accept either a Uri
        '' specifying the HTML page to render, Or a string which represents the actual HTML)
        Using re = New GcHtmlRenderer(uri)
            '' Render the source Web page to the temporary file:
            re.RenderToPdf(tmp)
        End Using
        '' Copy the created PDF from the temp file to target stream
        Using ts = File.OpenRead(tmp)
            ts.CopyTo(stream)
        End Using
        '' Clean up:
        File.Delete(tmp)
        '' Done.
    End Sub
End Class