easyPDF SDK: Sample Code and Applications

Setting Custom Paper Size when converting MSWord file to PDF

Language: VB.NET
Description: This demo is to assign a custom paper size by asking user to input the width and height
Download: complete source code and the exe (zip)

Imports BCL.easyPDF.Interop.EasyPDFPrinter
Imports System.Windows.Forms

Public Class Form1
    Private oPrinter As Printer = CreateObject("easyPDF.Printer.5")
    Private msWidth As String
    Private msHeight As String
    Private msOpenFile As String    'Input filename
    Private msSaveFile As String    'Output filename
    Private mOpenFile As OpenFileDialog 'OpenFile object
    Private mSaveFile As SaveFileDialog ' SaveFile object

' #################################################################################
    ' Sub Button1_Click
    ' Description: Instantiating the OpenFile object and assign the filename into
    ' msOpenFile and msSaveFile
    ' #################################################################################
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputBrowse.Click
        Dim pos As Integer

' Instantiate the OpenFileDialog
        mOpenFile = New OpenFileDialog
        mOpenFile.Filter = "doc files (*.doc)|*.doc"
        mOpenFile.Title = "Select a File"

If (mOpenFile.ShowDialog() <> System.Windows.Forms.DialogResult.OK) Then
            Return
        End If

msOpenFile = mOpenFile.FileName
        TextBox3.Text = msOpenFile

msSaveFile = msOpenFile

pos = msSaveFile.LastIndexOf(".")
        If (pos > 0) Then
            msSaveFile = msSaveFile.Substring(0, pos)
        End If
        msSaveFile += ".pdf"
        TextBox4.Text = msSaveFile  'By default the output filename is the same as input filename
    End Sub

' #################################################################################
    ' Sub Button2_Click
    ' Description: Instantiating the SaveFile object and assign the filename into
    ' msSaveFile, if the save filename is different than the open filename.
    ' #################################################################################
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OutputBrowse.Click
        'Instantiate the SaveFileDialog
        mSaveFile = New System.Windows.Forms.SaveFileDialog
        mSaveFile.Filter = "pdf files (*.pdf)|*.pdf"
        mSaveFile.Title = "Save PDF File"
        If (mSaveFile.ShowDialog() <> System.Windows.Forms.DialogResult.OK) Then
            Return
        End If
        msSaveFile = mSaveFile.FileName   'this will be the output filename
        TextBox4.Text = msSaveFile
    End Sub

' #################################################################################
    ' Sub TextBox1_TextChanged
    ' Description: Assign the width of the paper to msWidth variable
    ' #################################################################################
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        msWidth = TextBox1.Text
    End Sub

' #################################################################################
    ' Sub TextBox2_TextChanged
    ' Description: Assign the height of the paper to msHeight variable
    ' #################################################################################
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        msHeight = TextBox2.Text
    End Sub

' #################################################################################
    ' Sub Button3_Click
    ' Description: The printing process happens here with the specified width and height
    ' of the paper size.
    ' #################################################################################
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim msInputStr As String = TextBox1.Text
        Dim msOutputStr As String = TextBox2.Text
        Dim oPrintJob As WordPrintJob = Nothing
        Dim mbInputFlag As Boolean = True    'default is true
        Dim mbOutputFlag As Boolean = True   'default is true
        Dim mdWidth As Double
        Dim mdHeight As Double

Try
            ' If (msOpenFile
            'Convert the string type to double type
            mdWidth = CType(msWidth, Double)
            mdHeight = CType(msHeight, Double)

'We use the property of WordPrintJob to assign the width and height of paper
            'because the expecting input file is .doc.
            oPrintJob = oPrinter.WordPrintJob
            oPrintJob.PaperSize = prnMsoPaperSize.PRN_MSO_PAPER_CUSTOM
            oPrintJob.PageWidth = mdWidth
            oPrintJob.PageHeight = mdHeight

'Convert/print to pdf. Before the printing process starts, we need to register the
            'custom paper size to easyPDF SDK printer driver first by invoking Printer_Init()
            If (Printer_Init(mdWidth, mdHeight)) Then
                oPrintJob.PrintOut(msOpenFile, msSaveFile)
                MessageBox.Show("Success!")
            End If

Catch ex As Exception
            MessageBox.Show(ex.Message + oPrintJob.ConversionResultMessage)
        End Try

End Sub

' #################################################################################
    ' Function Printer_Init
    ' Description: Register the custom paper size to easyPDF printer driver and set the size as custom.
    ' Otherwise, the printer driver wont recognize the size 
    ' #################################################################################
    Private Function Printer_Init(ByVal w As Double, ByVal h As Double) As Boolean
        Dim oSetting As PrinterSetting
        Dim mSizeName As String

'Note here: that we dont call oSetting.Save below because we dont want to save the custom size as
        'a default layout. If you do, then you need to invok oSetting.Save().
        Try
            mSizeName = "CustomSize" + CType(w, String) + "x" + CType(h, String)
            oSetting = oPrinter.PrinterSetting
            oSetting.CreatePaper(mSizeName, w, h)
            oSetting.LayoutPaperSize = oSetting.GetPaperSize(mSizeName)
            Return True
        Catch ex As Exception
            Return False
        End Try
        
    End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Terms & Privacy Statement

"Adobe", "Acrobat", "Distiller" and "Postscript" are either registered trademarks or trademarks of Adobe Systems Incorporated in the United States and/or other countries. All other trademarks are the property of their respective owners.

"Microsoft", "Word", "Excel" and "PowerPoint" are either registered trademarks or trademarks of Microsoft Corporation in the United States and/or other countries. All other trademarks are the property of their respective owners.