Monday, 05 March 2012 07:29

Export PDF Document to images

Demo
C# source
VB.Net source

The sample demonstrates how to export PDF pages as images by PdfDocumentViewer Component.

using System;
using System.Drawing;
using System.IO;
using System.Windows.Forms;

using Spire.PdfViewer.Forms;

namespace Spire.PdfView.Demos.Export
{
    class Program
    {
        private static PdfDocumentViewer viewer = null;

        [STAThread]
        static void Main(string[] args)
        {
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);

            viewer = new PdfDocumentViewer();
            viewer.LoadFromFile("PDFViewer.pdf");

            //form and child components
            Form mainForm = new Form();
            mainForm.Text = "Spire.PdfView Demo - Export";
            mainForm.Size = new System.Drawing.Size(800, 600);
            mainForm.StartPosition = FormStartPosition.CenterScreen;

            TableLayoutPanel table = new TableLayoutPanel();
            table.ColumnCount = 3;
            table.ColumnStyles.Add(new ColumnStyle(SizeType.Percent, 50));
            table.ColumnStyles.Add(new ColumnStyle(SizeType.Absolute, 20));
            table.ColumnStyles.Add(new ColumnStyle(SizeType.Percent, 50));
            table.RowCount = 2;
            table.RowStyles.Add(new RowStyle(SizeType.Percent, 100));
            table.RowStyles.Add(new RowStyle(SizeType.Absolute, 30));

            table.Controls.Add(viewer, 0, 0);
            table.SetColumnSpan(viewer, 3);
            viewer.Dock = DockStyle.Fill;

            //Export current page to one image
            Button button = new Button();
            button.Text = "Export to one image";
            button.Size = new Size(180, 24);
            button.TextAlign = ContentAlignment.MiddleCenter;
            table.Controls.Add(button, 0, 1);
            button.Dock = DockStyle.Right;
            button.Click += ExportToOneImage;

            //Export current pdf document to multiple images
            button = new Button();
            button.Text = "Export to multiple images";
            button.Size = new Size(180, 24);
            button.TextAlign = ContentAlignment.MiddleCenter;
            table.Controls.Add(button, 2, 1);
            button.Dock = DockStyle.Left;
            button.Click += ExportToMultipleImages;

            mainForm.Controls.Add(table);
            table.Dock = DockStyle.Fill;

            Application.Run(mainForm);
        }

        private static void ExportToOneImage(object sender, EventArgs e)
        {
            if (viewer.PageCount > 0)
            {
                SaveFileDialog dialog = new SaveFileDialog();
                dialog.Filter = "PNG Format(*.png)|*.png";
                if (dialog.ShowDialog() == DialogResult.OK)
                {
                    int currentPage = viewer.CurrentPageNumber;
                    Bitmap image = viewer.SaveAsImage(currentPage - 1);
                    image.Save(dialog.FileName);
                }
            }
        }

        private static void ExportToMultipleImages(object sender, EventArgs e)
        {
            if (viewer.PageCount > 0)
            {
                FolderBrowserDialog dialog = new FolderBrowserDialog();
                if (dialog.ShowDialog() == DialogResult.OK)
                {
                    int currentPage = viewer.CurrentPageNumber;
                    Bitmap[] images = viewer.SaveAsImage(0, currentPage - 1);
                    for (int i = 0; i < images.Length; i++)
                    {
                        String fileName = Path.Combine(dialog.SelectedPath, String.Format("PDFViewer-{0}.png", i));
                        images[i].Save(fileName);
                    }
                }
            }
        }
    }
}

Imports System.Drawing
Imports System.IO
Imports System.Windows.Forms

Imports Spire.PdfViewer.Forms

Namespace Spire.PdfView.Demos.Export
    Friend NotInheritable Class Program
        Private Shared viewer As PdfDocumentViewer = Nothing

         _
        Shared Sub Main()
            Application.EnableVisualStyles()
            Application.SetCompatibleTextRenderingDefault(False)

            viewer = New PdfDocumentViewer()
            viewer.LoadFromFile("PDFViewer.pdf")

            'form and child components
            Dim mainForm As New Form()
            mainForm.Text = "Spire.PdfView Demo - Export"
            mainForm.Size = New System.Drawing.Size(800, 600)
            mainForm.StartPosition = FormStartPosition.CenterScreen

            Dim table As New TableLayoutPanel()
            table.ColumnCount = 3
            table.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50))
            table.ColumnStyles.Add(New ColumnStyle(SizeType.Absolute, 20))
            table.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50))
            table.RowCount = 2
            table.RowStyles.Add(New RowStyle(SizeType.Percent, 100))
            table.RowStyles.Add(New RowStyle(SizeType.Absolute, 30))

            table.Controls.Add(viewer, 0, 0)
            table.SetColumnSpan(viewer, 3)
            viewer.Dock = DockStyle.Fill

            'Export current page to one image
            Dim button As New Button()
            button.Text = "Export to one image"
            button.Size = New Size(180, 24)
            button.TextAlign = ContentAlignment.MiddleCenter
            table.Controls.Add(button, 0, 1)
            button.Dock = DockStyle.Right
            AddHandler button.Click, AddressOf ExportToOneImage

            'Export current pdf document to multiple images
            button = New Button()
            button.Text = "Export to multiple images"
            button.Size = New Size(180, 24)
            button.TextAlign = ContentAlignment.MiddleCenter
            table.Controls.Add(button, 2, 1)
            button.Dock = DockStyle.Left
            AddHandler button.Click, AddressOf ExportToMultipleImages

            mainForm.Controls.Add(table)
            table.Dock = DockStyle.Fill

            Application.Run(mainForm)
        End Sub

        Private Shared Sub ExportToOneImage(ByVal sender As Object, ByVal e As EventArgs)
            If viewer.PageCount > 0 Then
                Dim dialog As New SaveFileDialog()
                dialog.Filter = "PNG Format(*.png)|*.png"
                If dialog.ShowDialog() = DialogResult.OK Then
                    Dim currentPage As Integer = viewer.CurrentPageNumber
                    Dim image As Bitmap = viewer.SaveAsImage(currentPage - 1)
                    image.Save(dialog.FileName)
                End If
            End If
        End Sub

        Private Shared Sub ExportToMultipleImages(ByVal sender As Object, ByVal e As EventArgs)
            If viewer.PageCount > 0 Then
                Dim dialog As New FolderBrowserDialog()
                If dialog.ShowDialog() = DialogResult.OK Then
                    Dim currentPage As Integer = viewer.CurrentPageNumber
                    Dim images As Bitmap() = viewer.SaveAsImage(0, currentPage - 1)
                    For i As Integer = 0 To images.Length - 1
                        Dim fileName As [String] = Path.Combine(dialog.SelectedPath, [String].Format("PDFViewer-{0}.png", i))
                        images(i).Save(fileName)
                    Next
                End If
            End If
        End Sub
    End Class
End Namespace

Published in PDF Document Viewer

Tagged under

Tuesday, 30 August 2011 09:21

XLS Report Silverlight

Demo
App.xaml
App.xaml.cs
App.xaml.vb
MainPage.xaml
MainPage.xaml.cs
MainPage.xaml.vb

The sample demonstrates how to work with MarkerDesign in Silverlight via Spire.XLS.

Download template xls file.

Download data table file.

Download merged result file.

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
             x:Class="Report.App">
    <Application.Resources>        
    </Application.Resources>
</Application>

using System;
using System.Windows;
using System.Windows.Browser;
using Spire.License;

namespace Report
{
    public partial class App : Application
    {
        public App()
        {
            this.Startup += this.Application_Startup;
            this.Exit += this.Application_Exit;
            this.UnhandledException += this.Application_UnhandledException;

            InitializeComponent();
        }

        private void Application_Startup(object sender, StartupEventArgs e)
        {
            LicenseProvider.SetLicenseKey("your license key in license.elic.xml");
            this.RootVisual = new MainPage();
        }

        private void Application_Exit(object sender, EventArgs e)
        {

        }

        private void Application_UnhandledException(object sender, ApplicationUnhandledExceptionEventArgs e)
        {
            // If the app is running outside of the debugger then report the exception using
            // the browser's exception mechanism. On IE this will display it a yellow alert 
            // icon in the status bar and Firefox will display a script error.
            if (!System.Diagnostics.Debugger.IsAttached)
            {

                // NOTE: This will allow the application to continue running after an exception has been thrown
                // but not handled. 
                // For production applications this error handling should be replaced with something that will 
                // report the error to the website and stop the application.
                e.Handled = true;
                Deployment.Current.Dispatcher.BeginInvoke(delegate { ReportErrorToDOM(e); });
            }
        }

        private void ReportErrorToDOM(ApplicationUnhandledExceptionEventArgs e)
        {
            try
            {
                string errorMsg = e.ExceptionObject.Message + e.ExceptionObject.StackTrace;
                errorMsg = errorMsg.Replace('"', '\'').Replace("\r\n", @"\n");

                String exp = "throw new Error(\"Unhandled Error in Silverlight Application " + errorMsg + "\");";
                HtmlPage.Window.Eval(exp);
            }
            catch (Exception)
            {
            }
        }
    }
}

 Partial Public Class App
    Inherits Application

    public Sub New()
        InitializeComponent()
    End Sub
    
    Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) _
            Handles Me.Startup
        Me.RootVisual = New MainPage()
    End Sub
    
    Private Sub Application_Exit(ByVal o As Object, ByVal e As EventArgs) Handles Me.Exit

    End Sub
    
    Private Sub Application_UnhandledException(ByVal sender As object, _
            ByVal e As ApplicationUnhandledExceptionEventArgs) Handles Me.UnhandledException

        ' If the app is running outside of the debugger then report the exception using
        ' the browser's exception mechanism. On IE this will display it a yellow alert 
        ' icon in the status bar and Firefox will display a script error.
        If Not System.Diagnostics.Debugger.IsAttached Then

            ' NOTE: This will allow the application to continue running after an exception has been thrown
            ' but not handled. 
            ' For production applications this error handling should be replaced with something that will 
            ' report the error to the website and stop the application.
            e.Handled = True
            Deployment.Current.Dispatcher.BeginInvoke( _
                New Action(Of ApplicationUnhandledExceptionEventArgs)(AddressOf ReportErrorToDOM), e)
        End If
    End Sub

   Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)

        Try
            Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
            errorMsg = errorMsg.Replace(""""c, "'"c).Replace(ChrW(13) & ChrW(10), "\n")

            System.Windows.Browser.HtmlPage.Window.Eval( _
                "throw new Error(""Unhandled Error in Silverlight Application " + errorMsg + """);")
        Catch
        
        End Try
    End Sub
    
End Class

<UserControl x:Class="Report.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
    d:DesignHeight="600" d:DesignWidth="500"
             xmlns:dataInput="clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls.Data.Input" xmlns:sdk="http://schemas.microsoft.com/winfx/2006/xaml/presentation/sdk"
                  xmlns:data="clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls.Data" >

    <Grid x:Name="LayoutRoot" Background="#FF003399" Height="450" Width="500" VerticalAlignment="Top" HorizontalAlignment="Center" Loaded="LayoutRoot_Loaded">
        <Grid.RowDefinitions>
            <RowDefinition Height="40" MaxHeight="40" MinHeight="40" />
            <RowDefinition />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
        </Grid.RowDefinitions>
        <dataInput:Label HorizontalAlignment="Center" Name="labelTitle" VerticalAlignment="Center" Content="Countries List" Foreground="White" FontWeight="Bold" FontSize="16" Grid.ColumnSpan="2" />
        <data:DataGrid AutoGenerateColumns="True" Grid.Row="1" HorizontalAlignment="Stretch" Name="dataGrid" VerticalAlignment="Stretch" Margin="1" />
        <Button Content="Generate" Grid.Row="2" HorizontalAlignment="Right" Margin="0,0,2,0" Name="buttonGenerate" VerticalAlignment="Center" Width="75" IsEnabled="False" Click="buttonGenerate_Click" />
    </Grid>
</UserControl>

using System;
using System.Collections.Generic;
using System.IO;
using System.Reflection;
using System.Windows;
using System.Windows.Controls;

using Spire.Xls;

namespace Report
{
    public partial class MainPage : UserControl
    {
        public class Country
        {
            public String Name { get; set; }
            public String Capital { get; set; }
            public String Continent { get; set; }
            public double Area { get; set; }
            public long Population { get; set; }
        }

        private SaveFileDialog saveFileDialog = null;
        private List dataSource = null;
        private Workbook template = null;
        public MainPage()
        {
            InitializeComponent();
            this.saveFileDialog = new SaveFileDialog();
            this.saveFileDialog.Filter = "Excel workbooks (*.xls) |*.xls";
        }

        private void LayoutRoot_Loaded(object sender, RoutedEventArgs e)
        {
            Assembly assembly = this.GetType().Assembly;
            foreach (String name in assembly.GetManifestResourceNames())
            {
                if (name.EndsWith(".DatatableSample.xls"))
                {
                    using (Stream stream = assembly.GetManifestResourceStream(name))
                    {
                        Workbook workbook = new Workbook();
                        workbook.LoadFromStream(stream);
                        Worksheet sheet = workbook.Worksheets[0];

                        this.dataSource = new List();
                        foreach (CellRange row in sheet.Rows)
                        {
                            if (row != null && row.Cells != null && row.Cells.Length == 5
                                && !row.Cells[0].IsBlank)
                            {
                                if (row.Cells[0].Row == 1)
                                {
                                    continue;
                                }
                                this.dataSource.Add(new Country()
                                {
                                    Name = row.Cells[0].Value,
                                    Capital = row.Cells[1].Value,
                                    Continent = row.Cells[2].Value,
                                    Area = row.Cells[3].NumberValue,
                                    Population = Convert.ToInt64(row.Cells[4].NumberValue)
                                });
                            }
                            else
                            {
                                break;
                            }
                        }
                        this.dataGrid.ItemsSource = this.dataSource;
                    }
                    this.buttonGenerate.IsEnabled = true;
                }
                else if(name.EndsWith(".MarkerDesignerSample.xls"))
                {
                    using (Stream stream = assembly.GetManifestResourceStream(name))
                    {
                        this.template = new Workbook();
                        this.template.LoadFromStream(stream);
                    }
                }
            }
        }

        private void buttonGenerate_Click(object sender, RoutedEventArgs e)
        {
            Worksheet worksheet = this.template.Worksheets[0];

            this.template.MarkerDesigner.AddParameter("Variable1", 1234.5678);
            this.template.MarkerDesigner.AddArray("Country", dataSource.ToArray());
            this.template.MarkerDesigner.Apply();

            worksheet.AllocatedRange.AutoFitRows();
            worksheet.AllocatedRange.AutoFitColumns();

            bool? result = this.saveFileDialog.ShowDialog();
            if (result.HasValue && result.Value)
            {
                using (Stream stream = this.saveFileDialog.OpenFile())
                {
                    this.template.SaveToStream(stream);
                }
            }
        }
    }
}

Imports System
Imports System.IO
Imports System.Net
Imports System.Reflection
Imports System.Windows
Imports System.Windows.Controls

Imports Spire.Xls

Partial Public Class MainPage
    Inherits UserControl

    Public Class Country
        Public Property Name() As [String]
            Get
                Return m_Name
            End Get
            Set(ByVal value As [String])
                m_Name = Value
            End Set
        End Property
        Private m_Name As [String]
        Public Property Capital() As [String]
            Get
                Return m_Capital
            End Get
            Set(ByVal value As [String])
                m_Capital = Value
            End Set
        End Property
        Private m_Capital As [String]
        Public Property Continent() As [String]
            Get
                Return m_Continent
            End Get
            Set(ByVal value As [String])
                m_Continent = Value
            End Set
        End Property
        Private m_Continent As [String]
        Public Property Area() As Double
            Get
                Return m_Area
            End Get
            Set(ByVal value As Double)
                m_Area = Value
            End Set
        End Property
        Private m_Area As Double
        Public Property Population() As Long
            Get
                Return m_Population
            End Get
            Set(ByVal value As Long)
                m_Population = Value
            End Set
        End Property
        Private m_Population As Long
    End Class

    Private saveFileDialog As SaveFileDialog = Nothing
    Private dataSource As List(Of Country) = Nothing
    Private xlsTemplate As Workbook = Nothing

    Public Sub New()
        InitializeComponent()
        Me.saveFileDialog = New SaveFileDialog()
        Me.saveFileDialog.Filter = "Excel workbooks (*.xls) |*.xls"
    End Sub

    Private Sub LayoutRoot_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Dim assembly As Assembly = Me.[GetType]().Assembly
        For Each name As [String] In assembly.GetManifestResourceNames()
            If name.EndsWith(".DatatableSample.xls") Then
                Using stream As Stream = assembly.GetManifestResourceStream(name)
                    Dim workbook As New Workbook()
                    workbook.LoadFromStream(stream)
                    Dim sheet As Worksheet = workbook.Worksheets(0)

                    Me.dataSource = New List(Of Country)()
                    For Each row As CellRange In sheet.Rows
                        If row IsNot Nothing AndAlso row.Cells IsNot Nothing AndAlso row.Cells.Length = 5 AndAlso Not row.Cells(0).IsBlank Then
                            If row.Cells(0).Row = 1 Then
                                Continue For
                            End If
                            Me.dataSource.Add(New Country() With { _
                             .Name = row.Cells(0).Value, _
                             .Capital = row.Cells(1).Value, _
                             .Continent = row.Cells(2).Value, _
                             .Area = row.Cells(3).NumberValue, _
                             .Population = Convert.ToInt64(row.Cells(4).NumberValue) _
                            })
                        Else
                            Exit For
                        End If
                    Next
                    Me.dataGrid.ItemsSource = Me.dataSource
                End Using
                Me.buttonGenerate.IsEnabled = True
            ElseIf name.EndsWith(".MarkerDesignerSample.xls") Then
                Using stream As Stream = assembly.GetManifestResourceStream(name)
                    Me.xlsTemplate = New Workbook()
                    Me.xlsTemplate.LoadFromStream(stream)
                End Using
            End If
        Next
    End Sub

    Private Sub buttonGenerate_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Dim worksheet As Worksheet = Me.xlsTemplate.Worksheets(0)

        Me.xlsTemplate.MarkerDesigner.AddParameter("Variable1", 1234.5678)
        Me.xlsTemplate.MarkerDesigner.AddArray("Country", dataSource.ToArray())
        Me.xlsTemplate.MarkerDesigner.Apply()

        worksheet.AllocatedRange.AutoFitRows()
        worksheet.AllocatedRange.AutoFitColumns()

        Dim result As System.Nullable(Of Boolean) = Me.saveFileDialog.ShowDialog()
        If result.HasValue AndAlso result.Value Then
            Using stream As Stream = Me.saveFileDialog.OpenFile()
                Me.xlsTemplate.SaveToStream(stream)
            End Using
        End If
    End Sub
End Class

Published in Silverlight

Tagged under

Monday, 25 July 2011 09:12

The sample demonstrates how to convert Excel workbook to PDF file via Spire.XLS.

Get XLS-to-PDF.pdf.

static void Main()
{
    Spire.Xls.Workbook workbook = new Spire.Xls.Workbook();

    workbook.LoadFromFile(@"DataTableSample.xls");

    Spire.Xls.Converter.PdfConverter pdfConverter
        = new Spire.Xls.Converter.PdfConverter(workbook);
    Spire.Pdf.PdfDocument pdfDocument = new Spire.Pdf.PdfDocument();
    Spire.Xls.Converter.PdfConverterSettings settings
        = new Spire.Xls.Converter.PdfConverterSettings();
    settings.EmbedFonts = true;
    settings.TemplateDocument = pdfDocument;
    pdfDocument = pdfConverter.Convert(settings);

    pdfDocument.SaveToFile("XLS-to-PDF.pdf");
    pdfDocument.Close();
}

Shared Sub Main()
    Dim workbook As New Spire.Xls.Workbook()

    workbook.LoadFromFile("DataTableSample.xls")

    Dim pdfConverter As New Spire.Xls.Converter.PdfConverter(workbook)
    Dim pdfDocument As New Spire.Pdf.PdfDocument()
    Dim settings As New Spire.Xls.Converter.PdfConverterSettings()
    settings.EmbedFonts = True
    settings.TemplateDocument = pdfDocument
    pdfDocument = pdfConverter.Convert(settings)

    pdfDocument.SaveToFile("XLS-to-PDF.pdf")
    pdfDocument.Close()
End Sub

Published in Misc

Tagged under

Monday, 18 July 2011 06:43

How to Export Datatable to Excel through DataGridView

How to Export DataTable to Excel through DataGridView

Export DataTable to Excel can be very easy through Spire.DataExport (or Spire.Office). Furthermore, Spire.DataExport enables user to Export data to Excel through DataGridView. Through DataGridView users can preview and modify data information before exporting.

Download Spire.DataExport (or Spire.Office) with .NET Framework together. Only 2 Simple steps you can finish the whole datatable to Excel exporting process.

Step 1, Load Data Information

In this step, Spire.DataExport will help you load Data information from your datatable. After you put in your data source and SQL command, you can preview and modify data information in DataGridView area.

[C#]

	
        private void btnLoad_Click(object sender, EventArgs e)
        {
            using(OleDbConnection oleDbConnection = new OleDbConnection())
            {
                oleDbConnection.ConnectionString = this.textBox1.Text;
                OleDbCommand oleDbCommand = new OleDbCommand();
                oleDbCommand.CommandText = this.textBox2.Text;
                oleDbCommand.Connection = oleDbConnection;
                using(OleDbDataAdapter da = new OleDbDataAdapter(oleDbCommand))
                {
                    DataTable dt = new DataTable();
                    da.Fill(dt);
                    dataGridView1.DataSource = dt;
                }
            }
        }

Effect Screenshot

Step 2, Set Export into Excel

Spire.DataExport allows user to export data into most popular file formats including MS Excel, MS Word, HTML, PDF, XML, CSV, DBF, DIF, etc. Now, in this step you should give an order to Export Data into Excel file format. Spire.DataExport will create a new MS Excel Worksheet for storing Data which exported out. You can rename the excel file in this step either.

[C#]

        private void btnRun_Click(object sender, EventArgs e)
        {
            Spire.DataExport.XLS.CellExport cellExport = new Spire.DataExport.XLS.CellExport();
            Spire.DataExport.XLS.WorkSheet worksheet1 = new Spire.DataExport.XLS.WorkSheet();
            worksheet1.DataSource = Spire.DataExport.Common.ExportSource.DataTable;
            worksheet1.DataTable = this.dataGridView1.DataSource as DataTable;
            worksheet1.StartDataCol = ((System.Byte)(0));
            cellExport.Sheets.Add(worksheet1);
            cellExport.ActionAfterExport = Spire.DataExport.Common.ActionType.OpenView; 
            cellExport.SaveToFile("20110223.xls");
        }

Effect Screenshot

More about Spire.DataExport

Download Spire.DataExport

Purchase Spire.DataExport

(Back to content)

Published in Program Guide

Tagged under

Monday, 18 July 2011 06:39

Spire.DataExport Program Guide Content

This section includes the following topics:

Spire.DataExport for .NET FAQ

Datatable Export

ListView Export

Published in Program Guide

Tagged under

program guide

Tuesday, 12 July 2011 06:48

Doc MailMerge Silverlight

Demo
App.xaml
App.xaml.cs
App.xaml.vb
MainPage.xaml
MainPage.xaml.cs
MainPage.xaml.vb

The sample demonstrates how to work with MailMerge in Silverlight via Spire.Doc.

Download template doc file.

Download merged result file.

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
             x:Class="MailMergeSL.App">
    <Application.Resources>        
    </Application.Resources>
</Application>

using System;
using System.Windows;
using System.Windows.Browser;
using Spire.License;

namespace MailMergeSL
{
    public partial class App : Application
    {
        public App()
        {
            this.Startup += this.Application_Startup;
            this.Exit += this.Application_Exit;
            this.UnhandledException += this.Application_UnhandledException;

            InitializeComponent();
        }

        private void Application_Startup(object sender, StartupEventArgs e)
        {
            LicenseProvider.SetLicenseKey("your license key in license.elic.xml");
            this.RootVisual = new MainPage();
        }

        private void Application_Exit(object sender, EventArgs e)
        {

        }

        private void Application_UnhandledException(object sender, ApplicationUnhandledExceptionEventArgs e)
        {
            // If the app is running outside of the debugger then report the exception using
            // the browser's exception mechanism. On IE this will display it a yellow alert 
            // icon in the status bar and Firefox will display a script error.
            if (!System.Diagnostics.Debugger.IsAttached)
            {

                // NOTE: This will allow the application to continue running after an exception has been thrown
                // but not handled. 
                // For production applications this error handling should be replaced with something that will 
                // report the error to the website and stop the application.
                e.Handled = true;
                Deployment.Current.Dispatcher.BeginInvoke(delegate { ReportErrorToDOM(e); });
            }
        }

        private void ReportErrorToDOM(ApplicationUnhandledExceptionEventArgs e)
        {
            try
            {
                string errorMsg = e.ExceptionObject.Message + e.ExceptionObject.StackTrace;
                errorMsg = errorMsg.Replace('"', '\'').Replace("\r\n", @"\n");

                String exp = "throw new Error(\"Unhandled Error in Silverlight Application " + errorMsg + "\");";
                HtmlPage.Window.Eval(exp);
            }
            catch (Exception)
            {
            }
        }
    }
}

 Partial Public Class App
    Inherits Application

    public Sub New()
        InitializeComponent()
    End Sub
    
    Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) _
            Handles Me.Startup
        Me.RootVisual = New MainPage()
    End Sub
    
    Private Sub Application_Exit(ByVal o As Object, ByVal e As EventArgs) Handles Me.Exit

    End Sub
    
    Private Sub Application_UnhandledException(ByVal sender As object, _
            ByVal e As ApplicationUnhandledExceptionEventArgs) Handles Me.UnhandledException

        ' If the app is running outside of the debugger then report the exception using
        ' the browser's exception mechanism. On IE this will display it a yellow alert 
        ' icon in the status bar and Firefox will display a script error.
        If Not System.Diagnostics.Debugger.IsAttached Then

            ' NOTE: This will allow the application to continue running after an exception has been thrown
            ' but not handled. 
            ' For production applications this error handling should be replaced with something that will 
            ' report the error to the website and stop the application.
            e.Handled = True
            Deployment.Current.Dispatcher.BeginInvoke( _
                New Action(Of ApplicationUnhandledExceptionEventArgs)(AddressOf ReportErrorToDOM), e)
        End If
    End Sub

   Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)

        Try
            Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
            errorMsg = errorMsg.Replace(""""c, "'"c).Replace(ChrW(13) & ChrW(10), "\n")

            System.Windows.Browser.HtmlPage.Window.Eval( _
                "throw new Error(""Unhandled Error in Silverlight Application " + errorMsg + """);")
        Catch
        
        End Try
    End Sub
    
End Class

<UserControl x:Class="MailMergeSL.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
    d:DesignHeight="600" d:DesignWidth="400"
             xmlns:dataInput="clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls.Data.Input"
             xmlns:controls="clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls">

    <Grid x:Name="LayoutRoot" Background="#FF003399" Loaded="LayoutRoot_Loaded"
          Width="400" Height="400" HorizontalAlignment="Center" VerticalAlignment="Top">
        <Grid.ColumnDefinitions>
            <ColumnDefinition MaxWidth="70" MinWidth="70" Width="70" />
            <ColumnDefinition MinWidth="300" Width="*" />
        </Grid.ColumnDefinitions>
        <Grid.RowDefinitions>
            <RowDefinition Height="40" MinHeight="40" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
        </Grid.RowDefinitions>
        <Button Content="Merge" Height="23" HorizontalAlignment="Right" Margin="0,0,2,0" Name="buttonMerge"
                VerticalAlignment="Center" Width="75" Click="buttonMerge_Click" IsEnabled="False"
                Grid.Row="7" Grid.ColumnSpan="2" />
        <dataInput:Label HorizontalAlignment="Center" Name="labelTitle" VerticalAlignment="Center"
                         Content="Fax Information" Foreground="White" FontWeight="Bold" FontSize="16"
                         Grid.ColumnSpan="2" />
        <dataInput:Label HorizontalAlignment="Left" Name="labelContactName" Foreground="White"
                         Content="To:" VerticalAlignment="Center" FontSize="12"
                         VerticalContentAlignment="Center" Grid.Row="1" FontWeight="Bold" Margin="5,0,0,0" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelFax" Foreground="White"
                         Content="Fax:" FontSize="12" Grid.Row="2" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelFrom" Foreground="White"
                         Content="From:" FontSize="12" Grid.Row="3" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelDate" Foreground="White"
                         Content="Date:" FontSize="12" Grid.Row="4" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelSubject" Foreground="White"
                         Content="Subject:" FontSize="12" Grid.Row="5" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelContent" Foreground="White"
                         Content="Content:" FontSize="12" Grid.Row="6" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <TextBox Grid.Column="1" Grid.Row="1" HorizontalAlignment="Stretch" Margin="2" Name="textBoxTo"
                 VerticalAlignment="Stretch" VerticalContentAlignment="Center"
                 HorizontalContentAlignment="Left" Text="John Smith" />
        <TextBox Grid.Column="1" Grid.Row="2" HorizontalAlignment="Stretch" Margin="2" Name="textBoxFax"
                 VerticalAlignment="Stretch" VerticalContentAlignment="Center"
                 HorizontalContentAlignment="Left" Text="+1 (69) 123456" />
        <TextBox Grid.Column="1" Grid.Row="3" HorizontalAlignment="Stretch" Margin="2" Name="textBoxFrom"
                 VerticalAlignment="Stretch" VerticalContentAlignment="Center"
                 HorizontalContentAlignment="Left" Text="Harry Hu" />
        <controls:DatePicker Grid.Column="1" Grid.Row="4" Grid.RowSpan="1" HorizontalAlignment="Left"
                             Margin="2" Name="datePickerFaxDate" VerticalAlignment="Stretch"
                             SelectedDate="6/23/2011" />
        <TextBox Grid.Column="1" Grid.Row="5" HorizontalAlignment="Stretch" Margin="2"
                 Name="textBoxSubject" VerticalAlignment="Stretch" VerticalContentAlignment="Center"
                 HorizontalContentAlignment="Left" Text="Order Return Receipt" />
        <TextBox Grid.Column="1" Grid.Row="6" HorizontalAlignment="Stretch" Margin="2"
                 Name="textBoxContent" VerticalAlignment="Stretch"
                 VerticalContentAlignment="Center" HorizontalContentAlignment="Left"
                 AcceptsReturn="True" VerticalScrollBarVisibility="Visible"
                 Text="Dear John Smith,Thank you for your response. We will contact soon you."
                 TextWrapping="Wrap" HorizontalScrollBarVisibility="Auto" />
    </Grid>
</UserControl>

using System;
using System.IO;
using System.Net;
using System.Reflection;
using System.Windows;
using System.Windows.Controls;

using Spire.Doc;

namespace MailMergeSL
{
    public partial class MainPage : UserControl
    {
        private SaveFileDialog saveFileDialog = null;
        private Document documentTemplate = null;
        public MainPage()
        {
            InitializeComponent();
            this.saveFileDialog = new SaveFileDialog();
            this.saveFileDialog.Filter = "Word Document (*.doc)|*.doc";
        }

        private void LayoutRoot_Loaded(object sender, RoutedEventArgs e)
        {
            Uri baseUri = App.Current.Host.Source;
            if ("file" == baseUri.Scheme)
            {
                Assembly assembly = this.GetType().Assembly;
                foreach (String name in assembly.GetManifestResourceNames())
                {
                    if (name.EndsWith(".Fax.doc"))
                    {
                        using (Stream docStream = assembly.GetManifestResourceStream(name))
                        {
                            this.documentTemplate = new Document(docStream, FileFormat.Doc);
                        }
                        this.buttonMerge.IsEnabled = true;
                    }
                }
            }
            else
            {
                Uri docUri = new Uri(baseUri, "../Fax.doc");

                WebClient webClient = new WebClient();
                webClient.AllowReadStreamBuffering = true;
                webClient.OpenReadAsync(docUri);
                webClient.OpenReadCompleted +=
                    delegate(object eventSender, OpenReadCompletedEventArgs eventArgs)
                {
                    using (Stream docStream = eventArgs.Result)
                    {
                        this.documentTemplate = new Document(docStream, FileFormat.Doc);
                    }
                    this.buttonMerge.IsEnabled = true;
                };
            }
        }

        private void buttonMerge_Click(object sender, RoutedEventArgs e)
        {
            String[] fieldNames
                = new String[] { "Contact Name", "Fax", "From", "Date", "Subject", "Content" };
            DateTime faxDate
                = this.datePickerFaxDate.SelectedDate.HasValue ? 
                    this.datePickerFaxDate.SelectedDate.Value : DateTime.Now;
            String[] fieldValues
                = new String[] 
                {
                    this.textBoxTo.Text,
                    this.textBoxFax.Text,
                    this.textBoxFrom.Text,
                    faxDate.ToShortDateString(),
                    this.textBoxSubject.Text,
                    this.textBoxContent.Text
                };
            this.documentTemplate.MailMerge.Execute(fieldNames, fieldValues);

            bool? result = this.saveFileDialog.ShowDialog();
            if (result.HasValue && result.Value)
            {
                using (Stream stream = this.saveFileDialog.OpenFile())
                {
                    this.documentTemplate.SaveToStream(stream, FileFormat.Doc);
                }
            }
        }
    }
}

Imports System
Imports System.IO
Imports System.Net
Imports System.Reflection
Imports System.Windows
Imports System.Windows.Controls

Imports Spire.Doc

Partial Public Class MainPage
    Inherits UserControl

    Private saveFileDialog As SaveFileDialog
    Private documentTemplate As Document

    Private WithEvents webClient As WebClient

    Public Sub New()
        InitializeComponent()
        Me.saveFileDialog = New SaveFileDialog()
        Me.saveFileDialog.Filter = "Word Document (*.doc)|*.doc"
    End Sub

    Private Sub LayoutRoot_Loaded(ByVal sender As System.Object, _
            ByVal e As System.Windows.RoutedEventArgs)
        Dim baseUri As Uri = App.Current.Host.Source
        If "file" = baseUri.Scheme Then
            Dim assembly As Assembly = Me.[GetType]().Assembly
            For Each name As [String] In assembly.GetManifestResourceNames()
                If name.EndsWith(".Fax.doc") Then
                    Using docStream As Stream = assembly.GetManifestResourceStream(name)
                        Me.documentTemplate = New Document(docStream, FileFormat.Doc)
                    End Using
                    Me.buttonMerge.IsEnabled = True
                End If
            Next
        Else
            Dim docUri As New Uri(baseUri, "../Fax.doc")

            webClient = New WebClient()
            webClient.AllowReadStreamBuffering = True
            webClient.OpenReadAsync(docUri)
        End If
    End Sub

    Private Sub DownloadFileCompleted(ByVal sender As Object, _
            ByVal e As OpenReadCompletedEventArgs) Handles webClient.OpenReadCompleted
        Using docStream As Stream = e.Result
            Me.documentTemplate = New Document(docStream, FileFormat.Doc)
        End Using
        Me.buttonMerge.IsEnabled = True
    End Sub

    Private Sub buttonMerge_Click(ByVal sender As System.Object, _
            ByVal e As System.Windows.RoutedEventArgs)
        Dim fieldNames As [String]() = _
            New [String]() {"Contact Name", "Fax", "From", "Date", "Subject", "Content"}
        Dim faxDate As DateTime = DateTime.Now
        If Me.datePickerFaxDate.SelectedDate.HasValue Then
            faxDate = Me.datePickerFaxDate.SelectedDate.Value
        End If

        Dim fieldValues As [String]() = _
            New [String]() {Me.textBoxTo.Text, Me.textBoxFax.Text, Me.textBoxFrom.Text, _
                            faxDate.ToShortDateString(), Me.textBoxSubject.Text, Me.textBoxContent.Text}
        Me.documentTemplate.MailMerge.Execute(fieldNames, fieldValues)

        Dim result As System.Nullable(Of Boolean) = Me.saveFileDialog.ShowDialog()
        If result.HasValue AndAlso result.Value Then
            Using stream As Stream = Me.saveFileDialog.OpenFile()
                Me.documentTemplate.SaveToStream(stream, FileFormat.Doc)
            End Using
        End If
    End Sub
End Class

Published in MailMerge

Tagged under

Wednesday, 18 May 2011 10:12

How to Use PDF Converter to Encrypt PDF Document

Spire PDF Converter enables users to encrypt PDF documents when converting to PDF. Users can set own password and user password. Also, users can set individual security permissions, for example, print, edit and so on.

How to Encrypt PDF Document

1. Register to Download Spire PDF Converter (Free Beta Version) and Run it.

2. Choose a Document.

Click Add files, select the document you want to convert and encrypt.

3. Encrypt PDF Document

Click Encryption button and then set password and permissions.

Set Own Password

Set User Password

Permissions

4. Convert Document

Click Encryption to confirm. Save the document in a specific path by clicking browse. Then, Click Convert.

Now, the document has been converted to PDF and encrypted.

Free Download Spire PDF Converter Right Now!

Published in PDFConverter

Tagged under

Wednesday, 18 May 2011 09:59

How to Convert HTML to PDF

Why Convert HTML to PDF?

PDF (Portable Document Format), which often used for printing document is an open standard for creating and sharing document. It is one of the most popular file formats because it retains the same format no matter what browser is used to view it and without any loss when transfer from one system to another. So, we usually convert different format files such as Doc, Text, CSV, XML and HTML to PDF. Here is one of the easiest and fastest solutions.

How to Convert HTML to PDF?

Only 3 simple steps, you can finish a whole process of HTML to PDF conversion by using Spire PDF Converter.

Download Spire PDF Converter Here

Spire Free PDF Converter can help you finish conversion

Spire PDF Converter Pro can help you finish conversion and encrypt & Watermark

Step 1, Install and Run Spire PDF Converter

Step 2, Add HTML files

Spire PDF Converter enables user add single HTML file or multiple HTML files. And support add file folder.

Step 3, Choose output file folder and Run conversion process

Spire PDF Converter is one of the fastest HTML to PDF converting solutions. By using Spire PDF Converter, you can encrypt or add watermark to output PDF files.

Free Download Spire PDF Converter(Free/Pro) Right Now!

Published in PDFConverter

Tagged under

Monday, 16 May 2011 10:04

How to Convert Doc to PDF

Why Convert Doc to PDF?

PDF documents are not good for designing and editing content but without any information and appearance loss, they are very safe and easy to transfer from one system to another. On the other hand, Microsoft Word document (.doc file) is the most suitable document for designing and editing. So, the most popular way to create PDF documents is to design and create content in MS Word document and then convert the file from Doc to PDF.

How to Convert Doc to PDF?

Only 3 simple steps, you can finish a whole process of Doc to PDF conversion by using Spire PDF Converter.

Download Spire PDF Converter Here (Free Beta Version)

Step 1, Install and Run Spire PDF Converter

Step 2, Choose Doc file

Click button “Add files” to select Doc files which you want to convert. Spire PDF Converter supports batch conversion which means you can add multiple Doc files.

Step 3, Start Converting

Choose output file folder and click button "Convert"

Free Download Spire PDF Converter Right Now!

Published in PDFConverter

Tagged under

Friday, 13 May 2011 10:24

How to Use Spire PDF Converter

Spire PDF Converter is a PDF conversion program which can convert office files such as Doc, Excel, HTML, Text and XML to PDF format. Below is a simple instruction of how to use Spire PDF converter.

Step 1, Download Spire PDF Converter here and install

http://www.e-iceblue.com/Download/download-pdf-converter-now.html

Step 2, Run Spire PDF Converter

Step 3, Add Files to Converter

Spire PDF Converter allows user to add single file, multiple files, whole file folder into conversion list. Spire PDF Converter offers powerful functions which enable uses to add watermark and encrypt output PDF document.

Step 4, Start conversion process

Spire PDF Converter enables user to set output address for output files. And once the conversion process finished, user can click “Open Folder” button to check the status.

Free Download Spire PDF Converter Right Now!

Published in PDFConverter

Tagged under