ASP.NET

<%@ language="c#" debug="true" trace="false" %>
<%@ Register TagPrefix="mp" namespace="Microsoft.Web.Samples.MasterPages" assembly="MasterPages" %>

<system.web><pages><controls>
  <add assembly="MasterPages" namespace="Microsoft.Web.Samples.MasterPages" tagPrefix="mp" />
        <add src="~/sub/TestMasterPage.ascx" tagName="contentcontainer" tagPrefix="mp" />	
  </controls></pages></system.web>

<%@ language="c#" debug="true" trace="false" %>
<%@ Register TagPrefix="mp" namespace="Microsoft.Web.Samples.MasterPages" assembly="MasterPages" %>

<script runat="server">
    void ClickedCapitalize(object o, EventArgs e) {
        capitalized.Text = Server.HtmlEncode(tb1.Text.ToUpper());
    }

    void SayHello(object o, EventArgs e) {
        name.Text = Server.HtmlEncode(tb2.Text);
    }
</script>

<mp:contentcontainer runat="server" MasterPageFile="sub/TestMasterPage.ascx">

<mp:content id=region1 runat="server">
    <a href="MasterPages.htm" runat="server">Relative link test</a><br>
    <asp:textbox id=tb1 runat="server"/><asp:button text=Capitalize onclick=ClickedCapitalize runat="server"/>
    <asp:literal id=capitalized runat="server"/>
</mp:content>

<mp:content id="region2" runat="server">
    <asp:textbox id="tb2" runat="server"/><asp:button text="Say hello" onclick="SayHello" runat="server"/>
    Hello <asp:literal id="name" text="[name goes here]" runat="server"/>!
</mp:content>

</mp:contentcontainer>

Public Shared Function convertDoc2PDF(ByVal sourcePath As Object, ByVal targetPath As Object) As Boolean
        Dim result As Boolean
        Dim paramMissing As Object = Type.Missing
        Dim wordApplication As New ApplicationClass
        Dim wordDocument As Document = Nothing
        Try
            Dim paramSourceDocPath As Object = sourcePath
            Dim paramExportFilePath As String = targetPath
            Dim paramExportFormat As WdExportFormat = WdExportFormat.wdExportFormatPDF
            Dim paramOpenAfterExport As Boolean = False
            Dim paramExportOptimizeFor As WdExportOptimizeFor = WdExportOptimizeFor.wdExportOptimizeForPrint
            Dim paramExportRange As WdExportRange = WdExportRange.wdExportAllDocument
            Dim paramStartPage As Integer = 0
            Dim paramEndPage As Integer = 0
            Dim paramExportItem As WdExportItem = WdExportItem.wdExportDocumentContent
            Dim paramIncludeDocProps As Boolean = True
            Dim paramKeepIRM As Boolean = True
            Dim paramCreateBookmarks As WdExportCreateBookmarks = WdExportCreateBookmarks.wdExportCreateWordBookmarks
            Dim paramDocStructureTags As Boolean = True
            Dim paramBitmapMissingFonts As Boolean = True
            Dim paramUseISO19005_1 As Boolean = False
            wordDocument = wordApplication.Documents.Open( _
                                    paramSourceDocPath, paramMissing, True, _
                                    paramMissing, paramMissing, paramMissing, _
                                    paramMissing, paramMissing, paramMissing, _
                                    paramMissing, paramMissing, paramMissing, _
                                    paramMissing, paramMissing, paramMissing, _
                                    paramMissing)

            If (wordDocument IsNot Nothing) Then
                wordDocument.ExportAsFixedFormat(paramExportFilePath, _
                paramExportFormat, paramOpenAfterExport, _
                paramExportOptimizeFor, paramExportRange, paramStartPage, _
                paramEndPage, paramExportItem, paramIncludeDocProps, _
                paramKeepIRM, paramCreateBookmarks, paramDocStructureTags, _
                paramBitmapMissingFonts, paramUseISO19005_1, _
                paramMissing)
            End If
            result = True
        Catch ex As Exception
            result = False

        Finally

            If (wordDocument IsNot Nothing) Then
                wordDocument.Close(paramMissing, paramMissing, paramMissing)
                wordDocument = Nothing
            End If
            If (wordApplication IsNot Nothing) Then

                wordApplication.Quit(paramMissing, paramMissing, paramMissing)
                wordApplication = Nothing
            End If
            GC.Collect()
            GC.WaitForPendingFinalizers()
            GC.Collect()
            GC.WaitForPendingFinalizers()
        End Try

        Return result

    End Function