IccProfile Class

[Visual Basic]
Public Class IccProfile 
   Inherits Resource

[C#]
public class IccProfile : Resource

[Visual Basic] 

Imports System
Imports ceTe.DynamicPDF
Imports ceTe.DynamicPDF.Text

Module MyModule

    Sub Main()
        ' Create a document and set it's properties
        Dim MyDocument As ceTe.DynamicPDF.Document = New ceTe.DynamicPDF.Document
        MyDocument.Title = "PDF/X-1a Document"
        MyDocument.PdfVersion = PdfVersion.v1_4

        ' Create a page to add to the document
        Dim MyPage As ceTe.DynamicPDF.Page = New ceTe.DynamicPDF.Page(PageSize.Letter, PageOrientation.Portrait, 54.0F)

        MyDocument.Prepress.PdfXVersion = PdfXVersion.PDF_X_1a_2003
        Dim MyIccProfile As IccProfile = New IccProfile("C:\ICC Profiles\USWebCoatedSWOP.icc")
        Dim MyOutputIntent As OutputIntent = New OutputIntent("CGATS TR 001-1995 (SWOP)", "CGATS TR 001", "http://www.color.org", "U.S. Web Coated (SWOP) v2", MyIccProfile)
        MyDocument.Prepress.OutputIntents.Add(MyOutputIntent)
        MyDocument.Prepress.Trapped = Trapped.False

        ' Create a Label using a TrueType font and CMYK color
        Dim Text As String = "PDF/X 1-a Document"
        Dim MyTrueTypeFont As TrueTypeFont = New TrueTypeFont("verdana.ttf")
        Dim MyLabel As Label = New Label(Text, 0, 0, 504, 100, MyTrueTypeFont, 18, TextAlign.Center, CmykColor.BlueViolet)

        ' Add label to page
        MyPage.Elements.Add(MyLabel)

        ' Add page to document
        MyDocument.Pages.Add(MyPage)

        ' Save the PDF Document
        MyDocument.Draw(C:\MyDocument.pdf")
    End Sub
End Module