Public Class BarcodeWritePdf 

Dim instance As BarcodeWritePdf

public class BarcodeWritePdf 

public ref class BarcodeWritePdf 

Public Sub BarcodeWritePdfExample()
      ' Load an image
      Dim codecs As RasterCodecs = New RasterCodecs()
      codecs.ThrowExceptionsOnInvalidImages = True

      Dim image As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "barcode1.tif"))

      Dim barEngine As BarcodeEngine
      Try
         ' Unlock barcode support.
         ' Note that this is a sample key, which will not work in your toolkit
         RasterSupport.Unlock(RasterSupportType.Barcodes1D, "TestKey")

         ' Initialize barcodes
         barEngine = New BarcodeEngine()

         Dim data As BarcodeData = New BarcodeData()
         Dim rc As LeadRect = New LeadRect(100, 100, 0, 0)
         data.Unit = BarcodeUnit.ScanlinesPerPixels
         data.Location = rc
         data.SearchType = BarcodeSearchTypeFlags.Pdf417

         Dim barcodeText As String()
         barcodeText = New String(0) {}
         barcodeText(0) = "PDF417 Symbol"
         data.Data = BarcodeData.ConvertFromStringArray(barcodeText)

         Dim barColor As BarcodeColor = New BarcodeColor()
         barColor.BarColor = RasterColor.FromKnownColor(RasterKnownColor.Black)
         barColor.SpaceColor = RasterColor.FromKnownColor(RasterKnownColor.White)

         Dim bar1d As Barcode1d = New Barcode1d()
         Dim barPDF As BarcodeWritePdf = New BarcodeWritePdf()
         Dim barDM As BarcodeWriteDatamatrix = New BarcodeWriteDatamatrix()
         Dim barQR As BarcodeWriteQr = New BarcodeWriteQr()

         barPDF.AspectHeight = 0
         barPDF.AspectWidth = 0
         barPDF.Columns = 0
         barPDF.Rows = 0
         barPDF.EccLevel = BarcodePdf417EccLevelFlags.UsePercent
         barPDF.EccPercentage = 50
         barPDF.Justify = BarcodeJustifyFlags.Right
         barPDF.Module = 21
         barPDF.ModAspectRatio = 4

         barEngine.Write(image, data, barColor, BarcodeWriteFlags.Truncate, bar1d, barPDF, barDM, barQR, LeadRect.Empty)
      Catch ex As BarcodeException
         Console.WriteLine(ex.Message)
      End Try

   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void BarcodeWritePdfExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;
      string fileName = Path.Combine(LEAD_VARS.ImagesDir, "barcode1.tif");
      RasterImage image = codecs.Load(fileName);

      BarcodeEngine barEngine;
      try
      {
         // Unlock barcode support.
         // Note that this is a sample key, which will not work in your toolkit
         RasterSupport.Unlock(RasterSupportType.Barcodes1D, "TestKey");

         // Initialize barcodes
         barEngine = new BarcodeEngine();

         BarcodeData data = new BarcodeData();
         data.Unit = BarcodeUnit.ScanlinesPerPixels;
         LeadRect rc = new LeadRect(100, 100, 0, 0);
         data.Location = rc;

         data.SearchType = BarcodeSearchTypeFlags.Pdf417;
         string[] barcodeText;
         barcodeText = new string[1];
         barcodeText[0] = "PDF417 Symbol";
         data.Data = BarcodeData.ConvertFromStringArray(barcodeText);

         BarcodeColor barColor = new BarcodeColor();
         barColor.BarColor = RasterColor.FromKnownColor(RasterKnownColor.Black);
         barColor.SpaceColor = RasterColor.FromKnownColor(RasterKnownColor.White);

         Barcode1d bar1d = new Barcode1d();
         BarcodeWritePdf barPDF = new BarcodeWritePdf();
         BarcodeWriteDatamatrix barDM = new BarcodeWriteDatamatrix();
         BarcodeWriteQr barQR = new BarcodeWriteQr();

         barPDF.AspectHeight = 0;
         barPDF.AspectWidth = 0;
         barPDF.Columns = 0;
         barPDF.Rows = 0;
         barPDF.EccLevel = BarcodePdf417EccLevelFlags.UsePercent;
         barPDF.EccPercentage = 50;
         barPDF.Justify = BarcodeJustifyFlags.Right;
         barPDF.Module = 21;
         barPDF.ModAspectRatio = 4;

         barEngine.Write(image, data, barColor, BarcodeWriteFlags.Truncate, bar1d, barPDF, barDM, barQR, LeadRect.Empty);
      }
      catch (BarcodeException ex)
      {
         Console.WriteLine(ex.Message);
      }

   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}

public void BarcodeWritePdfExample(RasterImage image)
{
   BarcodeEngine barEngine;
   try
   {
      // Unlock barcode support.
      // Note that this is a sample key, which will not work in your toolkit
      RasterSupport.Unlock(RasterSupportType.Barcodes1D, "TestKey");
      // Initialize barcodes
      barEngine = new BarcodeEngine();

      BarcodeData data = new BarcodeData();
      data.Unit = BarcodeUnit.ScanlinesPerPixels;
      LeadRect rc = new LeadRect(100, 100, 0, 0);
      data.Location = rc;

      data.SearchType = BarcodeSearchTypeFlags.Pdf417;
      string[] barcodeText;
      barcodeText = new string[1];
      barcodeText[0] = "PDF417 Symbol";
      data.Data = BarcodeData.ConvertFromStringArray(barcodeText);

      BarcodeColor barColor = new BarcodeColor();
      barColor.BarColor = RasterColor.FromKnownColor(RasterKnownColor.Black);
      barColor.SpaceColor = RasterColor.FromKnownColor(RasterKnownColor.White);

      Barcode1d bar1d = new Barcode1d();
      BarcodeWritePdf barPDF = new BarcodeWritePdf();
      BarcodeWriteDatamatrix barDM = new BarcodeWriteDatamatrix();
      BarcodeWriteQr barQR = new BarcodeWriteQr();

      barPDF.AspectHeight = 0;
      barPDF.AspectWidth = 0;
      barPDF.Columns = 0;
      barPDF.Rows = 0;
      barPDF.EccLevel = BarcodePdf417EccLevelFlags.UsePercent;
      barPDF.EccPercentage = 50;
      barPDF.Justify = BarcodeJustifyFlags.Right;
      barPDF.Module = 21;
      barPDF.ModAspectRatio = 4;

      barEngine.Write(image, data, barColor, BarcodeWriteFlags.Truncate, bar1d, barPDF, barDM, barQR, LeadRect.Empty);
   }
   catch (BarcodeException ex)
   {
      Console.WriteLine(ex.Message);
   }

}

Public Sub BarcodeWritePdfExample(ByVal image As RasterImage)
  Dim barEngine As BarcodeEngine
  Try
    ' Unlock barcode support.
    ' Note that this is a sample key, which will not work in your toolkit
    RasterSupport.Unlock(RasterSupportType.Barcodes1D, "TestKey")
    ' Initialize barcodes
    barEngine = New BarcodeEngine()

    Dim data As BarcodeData = New BarcodeData()
    data.Unit = BarcodeUnit.ScanlinesPerPixels
    Dim rc As LeadRect = New LeadRect(100, 100, 0, 0)
    data.Location = rc

    data.SearchType = BarcodeSearchTypeFlags.Pdf417
    Dim barcodeText As String()
    barcodeText = New String(0){}
    barcodeText(0) = "PDF417 Symbol"
    data.Data = BarcodeData.ConvertFromStringArray(barcodeText)

    Dim barColor As BarcodeColor = New BarcodeColor()
    barColor.BarColor = RasterColor.FromKnownColor(RasterKnownColor.Black)
    barColor.SpaceColor = RasterColor.FromKnownColor(RasterKnownColor.White)

    Dim bar1d As Barcode1d = New Barcode1d()
    Dim barPDF As BarcodeWritePdf = New BarcodeWritePdf()
    Dim barDM As BarcodeWriteDatamatrix = New BarcodeWriteDatamatrix()
    Dim barQR As BarcodeWriteQr = New BarcodeWriteQr()

    barPDF.AspectHeight = 0
    barPDF.AspectWidth = 0
    barPDF.Columns = 0
    barPDF.Rows = 0
    barPDF.EccLevel = BarcodePdf417EccLevelFlags.UsePercent
    barPDF.EccPercentage = 50
    barPDF.Justify = BarcodeJustifyFlags.Right
    barPDF.Module = 21
    barPDF.ModAspectRatio = 4

    barEngine.Write(image, data, barColor, BarcodeWriteFlags.Truncate, bar1d, barPDF, barDM, barQR, LeadRect.Empty)
  Catch ex As BarcodeException
    Console.WriteLine(ex.Message)
  End Try

End Sub