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

<%@ Page Language="VB" MasterPageFile="~/tpl/Demo.Master" AutoEventWireup="true" Inherits="Aspose.Cells.Demos.VisualBasic.Workbook2Image" 
Title="Convert Workbook to Image - Aspose.Cells Demos" Codebehind="convert-workbook-to-image.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 Image - 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/file-format-components/aspose.cells-for-.net-and-java/default.aspx"
            style="color: blue; text-decoration: underline; text-underline: single">Aspose.Cells</a>
            for .NET to convert a workbook to an image file.</font></p>
    <p class="componentdescriptiontxt">
        <font face="Arial" size="2">The demo converts the complete workbook (all worksheets) in to an image file. You can either open the 
        output image file into your picture 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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

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
Imports Aspose.Cells.Rendering

Partial Public Class Workbook2Image
    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 workbook As New Workbook()

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

        Dim imgOptions As New ImageOrPrintOptions()

        imgOptions.ImageFormat = System.Drawing.Imaging.ImageFormat.Tiff

        imgOptions.HorizontalResolution = 100

        imgOptions.VerticalResolution = 100

        imgOptions.OnePagePerSheet = True

        Dim bookRender As New WorkbookRender(workbook, imgOptions)

        'Create a memory stream object.
        Dim memorystream As New MemoryStream()

        bookRender.ToImage(memorystream)

        memorystream.Seek(0, SeekOrigin.Begin)

        'Set Response object to stream the image file.
        Dim data() As Byte = memorystream.ToArray()
        HttpContext.Current.Response.Clear()
        HttpContext.Current.Response.ContentType = "image/tiff"
        HttpContext.Current.Response.AddHeader("content-disposition", "attachment; filename=WorkbookImage.tiff")
        HttpContext.Current.Response.OutputStream.Write(data, 0, data.Length)

        'End response to avoid unneeded html after xls
        HttpContext.Current.Response.End()

    End Sub


End Class