using System;
using System.Text;
using System.IO;

namespace ExamplePdfMetamorphosis
{
                              /// <summary>
                              /// Summary description for Class1.
                              /// </summary>
                              class Class1
               {
                                      static void Main(string[] args)
                                      {
                                                   SautinSoft.PdfMetamorphosis p = new SautinSoft.PdfMetamorphosis();
                                                   p.Serial = "XXXXXXXXXX";
                                                   //Set converter options (optional)
                                                   //p.PageStyle.PageMarginLeft.mm(30);
                                                   //p.TextStyle.TextAligment.Center();
                                                   //p.PageStyle.PageSize.Letter();

                                                   #region Convert File                                             
                          p.RtfToPdfConvertFile("d:\\Text.rtf","d:\\Text.pdf");
                                                   #endregion

                         #region Convert String
                         //1. Open RTF file
                                                   StreamReader sr = new StreamReader("D:\\Testing Fixed Text.rtf");
                                                   string rtfString = sr.ReadToEnd();
                                                   sr.Close();
         
                                                   //2. Convert RTF string to PDF bytes
                                                   System.Text.ASCIIEncoding encoding = new System.Text.ASCIIEncoding();
                                                   byte[] binaryPDF = p.RtfToPdfConvertString(encoding.GetBytes(rtfString));

                                                   //3. Save PDF bytes to file a (PDF string MUST BE BINARY)
                                                   string pdfFileName = "D:\\Testing Fixed Text.pdf";
                                                   try
                                                   {
                                                                           File.Delete(pdfFileName);
                                                   }
                                                   catch{}
           
                                                   FileStream pdfFile = File.OpenWrite(pdfFileName);
                                                   pdfFile.Write(binaryPDF, 0, binaryPDF.Length);
                                                   pdfFile.Close();
                                                   #endregion

                         #region Merge Files
                         string [] pdfFiles = System.IO.Directory.GetFiles("D:\\Test Files\\Pdf Metamorphosis\\","*.pdf");                                    
                                                  p.PdfMerge(pdfFiles, "D:\\Single.pdf");

                                                  #endregion

                    }
                         }
}

Imports System
Imports System.IO


Module Module1
   Sub Main()

       Dim p As New SautinSoft.PdfMetamorphosis
    p.PageStyle.PageSize.Legal()
       p.Serial = "XXXXXXXXXX"

    'Convert File
       p.RtfToPdfConvertFile("D:\Example.rtf", "D:\File.pdf")

       'Convert String
       '1. Open RTF file
       Dim sr As New StreamReader("D:\Testing Fixed Text.rtf")
       Dim rtfString As String
       rtfString = sr.ReadToEnd()
       sr.Close()

       '2. Convert RTF string to PDF bytes
       Dim encoding As New System.Text.ASCIIEncoding()
       Dim binaryPDF As New Object
    binaryPDF = p.RtfToPdfConvertString(encoding.GetBytes(rtfString))

       '3. Save PDF bytes to file a (PDF string MUST BE BINARY)
       Dim pdfFileName As String
    pdfFileName = "D:\\Testing Fixed Text.pdf"

    Try
           File.Delete(pdfFileName)
       Catch
       Finally
    End Try

    Dim pdfFile As FileStream
    pdfFile = File.OpenWrite(pdfFileName)
        pdfFile.Write(binaryPDF, 0, binaryPDF.Length)
        pdfFile.Close()

   End Sub
End Module