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.Sheet2ImageWithOptions" 
Title="Convert Worksheet to Image with Image Options - Aspose.Cells Demos" Codebehind="worksheet-to-image-with-imageoptions.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 Worksheet to Image with Image Options - 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 worksheet to image file using different image options.</font></p>
    <p class="componentdescriptiontxt">
        <font face="Arial" size="2">The demo utilizes a template file which contains some simple data. 
Then different image options are applied like vertical and horizontal resolution of image, image format 
and its TiffCompression etc.The worksheet is then converted to an image. 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
69
70

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 Sheet2ImageWithOptions
    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)

        'Get the first worksheet
        Dim sheet As Worksheet = book.Worksheets(0)

        'Apply different Image and Print options 
        Dim options As New ImageOrPrintOptions()
        options.HorizontalResolution = 300
        options.VerticalResolution = 300
        options.TiffCompression = TiffCompression.CompressionCCITT4
        options.IsCellAutoFit = False
        options.ImageFormat = System.Drawing.Imaging.ImageFormat.Tiff
        options.PrintingPage = PrintingPageType.Default

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

        Dim sheetRender As New SheetRender(sheet, options)

        'Convert worksheet to image.
        sheetRender.ToTiff(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=SheetImage.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