This is a stipped version of my code,
I use Label,TrueTypeFont,HtmlTextArea,Image
ceTe.DynamicPDF.Document.AddLicense("[License Key Removed]")
Dim MyTrueTypeFont As ceTe.DynamicPDF.Text.TrueTypeFont = New ceTe.DynamicPDF.Text.TrueTypeFont("verdana.ttf")
Dim MyPDF As ceTe.DynamicPDF.Document = New ceTe.DynamicPDF.Document()
MyPDF.Creator = "AllPageElements.aspx"
MyPDF.Author = "Eanord"
MyPDF.Title = "EA Nord"
' Create a page dimensions object and set the margins
Dim dimensions As PageDimensions = New PageDimensions(PageSize.A4, PageOrientation.Portrait)
dimensions.BottomMargin = mm(5)
dimensions.TopMargin = mm(5)
dimensions.LeftMargin = mm(5)
dimensions.RightMargin = mm(5)
Dim MyPage As Page = New Page(Dimensions)
' Kursustypenavn
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(myDataReader.GetSqlString(1), mm(5), mm(5), mm(180), mm(10), MyTrueTypeFont, 12))
' KursusTypeKode
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(myDataReader.GetSqlString(0) + " " + myDataReader.GetSqlString(10), mm(5), mm(10), mm(180), mm(10), MyTrueTypeFont, 10))
' KursusTypeKode
'MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(myDataReader.GetSqlString(10), 0, 30, 400, 40, MyTrueTypeFont, 10))
' Description
Sql = "SELECT Beskrivelse FROM dbo.tblBeskrivelse WHERE (KursustypeKode = '" & myDataReader.GetSqlString(0).ToString & "') "
Dim myDescriptionConnection As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("eanordtestConnectionString").ToString)
Dim myDescriptionCommand As New SqlCommand(Sql, myDescriptionConnection)
myDescriptionConnection.Open()
MyPage.Elements.Add((New ceTe.DynamicPDF.PageElements.HtmlTextArea(myDescriptionCommand.ExecuteScalar, mm(5), mm(20), mm(140), mm(250), ceTe.DynamicPDF.FontFamily.Helvetica, 10, True)))
myDescriptionConnection.Close()
' Line
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Line(mm(145), mm(30), mm(145), mm(250), 1, ceTe.DynamicPDF.Color.Silver))
' Datoer
MyPage.Elements.Add((New ceTe.DynamicPDF.PageElements.HtmlTextArea(Caledar(myDataReader.GetSqlString(0)), mm(150), mm(30), mm(30), mm(120), ceTe.DynamicPDF.FontFamily.Helvetica, 10, True)))
'Kontakt
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("Kontakt", mm(150), mm(150), mm(50), mm(5), Font.Helvetica, 10, TextAlign.Left))
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(myDataReader.GetSqlString(2).ToString + " " + myDataReader.GetSqlString(3).ToString, mm(150), mm(155), mm(50), mm(5), MyTrueTypeFont, 10, TextAlign.Left))
'Telefon
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("Telefon", mm(150), mm(165), mm(50), mm(5), Font.Helvetica, 10, TextAlign.Left))
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(myDataReader.GetSqlString(2).ToString + " " + myDataReader.GetSqlString(3).ToString, mm(150), mm(170), mm(50), mm(5), MyTrueTypeFont, 10, TextAlign.Left))
'E-mail
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("E-mail", mm(150), mm(180), mm(50), mm(5), Font.Helvetica, 10, TextAlign.Left))
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(myDataReader.GetSqlString(4).ToString, mm(150), mm(185), mm(50), mm(5), MyTrueTypeFont, 10, TextAlign.Left))
'Pris
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("Pris", mm(150), mm(195), mm(50), mm(5), Font.Helvetica, 10, TextAlign.Left))
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(myDataReader.GetSqlString(8).ToString, mm(150), mm(200), mm(50), mm(5), MyTrueTypeFont, 10, TextAlign.Left))
'Varighed
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("Varighed", mm(150), mm(210), mm(50), mm(5), Font.Helvetica, 10, TextAlign.Left))
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(myDataReader.GetSqlString(7).ToString, mm(150), mm(215), mm(50), mm(5), MyTrueTypeFont, 10, TextAlign.Left))
'Tidspunkt
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("Tidspunkt", mm(150), mm(225), mm(50), mm(5), Font.Helvetica, 10, TextAlign.Left))
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label(Tidspunkter(myDataReader.GetSqlString(0).ToString), mm(150), mm(230), mm(50), mm(5), MyTrueTypeFont, 10, TextAlign.Left))
'Logo Image
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Image(Server.MapPath("eanord-graa.gif"), mm(5), mm(260), 1))
'Peder Oxes Allé 4
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("Peder Oxes Allé 4", mm(80), mm(272), mm(50), mm(5), MyTrueTypeFont, 10, TextAlign.Left))
'3400 Hillerød
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("3400 Hillerød", mm(80), mm(276), mm(50), mm(5), MyTrueTypeFont, 10))
'Tlf. 48 225 300
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("Tlf. 48 225 300", mm(120), mm(272), mm(50), mm(5), MyTrueTypeFont, 10))
'Fax 48 225 335
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("Fax 48 225 335", mm(120), mm(276), mm(50), mm(5), MyTrueTypeFont, 10))
'info@(eanord.dk)
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("info@eanord.dk", mm(160), mm(272), mm(50), mm(5), MyTrueTypeFont, 10))
'www.eanord.dk
MyPage.Elements.Add(New ceTe.DynamicPDF.PageElements.Label("www.eanord.dk", mm(160), mm(276), mm(50), mm(5), MyTrueTypeFont, 10))
MyPDF.Pages.Add(MyPage)
End While
MyPDF.DrawToWeb(Me, "EANORD.pdf")