1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

<%@ Page Language="VB" MasterPageFile="~/tpl/Demo.Master" AutoEventWireup="true" Inherits="Aspose.Cells.Demos.VisualBasic.Xls2Pdf" 
Title="Convert Workbook to PDF File - Aspose.Cells Demos" Codebehind="convert-workbook-to-pdf-file.aspx.vb" %>


<asp:Content ID="Content" ContentPlaceHolderID="MainContent" runat="Server">
    <p class="componentDescriptionTxt">
        <span style="font-size: 10pt; font-family: Arial"></span>&nbsp;</p>
    <p class="componentDescriptionTxt">
        <span style="font-size: 10pt; font-family: Arial"></span>
            <table align="center" border="0" cellpadding="0" cellspacing="0" width="90%">
                <tr>
                    <td valign="top" width="19">
                        <img alt="" height="41" src="/Common/images/heading_lft.jpg" width="19" /></td>
                    <td class="demos-heading-bg" width="100%">
                        <h2 class="demos-heading-bg">
                            &nbsp;<font face="Arial" size="4">Convert Workbook to Pdf File - Aspose.Cells</font></h2>
                    </td>
                    <td valign="top" width="19">
                        <img alt="" height="41" src="/Common/images/heading_rt.jpg" width="19" /></td>
                </tr>
            </table>
    </p>
    <p class="componentdescriptiontxt">
        <font face="Arial" size="2">This online demo demonstrates the ability of <a href="http://www.aspose.com/categories/.net-components/aspose.cells-for-.net/default.aspx"
            style="color: blue; text-decoration: underline; text-underline: single">Aspose.Cells</a>
            for .NET to convert a workbook to Pdf file.</font></p>
    <p class="componentdescriptiontxt">
        <font face="Arial" size="2">The demo utilizes a template file which contains some formatted
            data. It then converts the workbook to Pdf file. You can either open the output Pdf file into your Pdf viewer
        or save directly to your disk.</font></p>
    <p class="componentDescriptionTxt">
        <asp:Button ID="btnExecute" runat="server" Text="Process" OnClick="btnExecute_Click"/>&nbsp;</p>
</asp:Content>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

Imports System
Imports System.Data
Imports System.IO
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports Aspose.Cells

Partial Public Class Xls2Pdf
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)


    End Sub
    Protected Sub btnExecute_Click(ByVal sender As Object, ByVal e As EventArgs)
        CreateStaticReport()
    End Sub

    Public Shared Sub CreateStaticReport()
        'Instantiate a new Workbook object.
        Dim book As New Workbook()

        'Open template
        Dim path As String = System.Web.HttpContext.Current.Server.MapPath("~")
        path = path.Substring(0, path.LastIndexOf("\"))
        path &= "\designer\MyTestBook1.xls"
        book.Open(path)

        'Save Xls File to PDF
        book.Save("Xls2Pdf.pdf", FileFormatType.Pdf, SaveType.OpenInExcel, System.Web.HttpContext.Current.Response)
        
        'End response to avoid unneeded html after xls
        HttpContext.Current.Response.End()

    End Sub


End Class