Ok, I tried adding those lines, but still no luck:
I also fail to understand why I should use gfx object to apply the font, since I dont use that object to generate the actual barcode, which IMO is generated by this piece of code:
------------------------------------------------------------------------------------------------------------------
row = tbl.AddRow
Dim font As New MigraDoc.DocumentObjectModel.Font
font.Name = fonttype
font.Size = MigraDoc.DocumentObjectModel.Unit.FromPoint(fontsize)
row.Cells(0).Format.Font.ApplyFont(font)
row.Cells(0).AddParagraph("*" + userTicketsDT.Item(0).barcode.ToString + "*")
row.Cells(0).MergeRight = 1
------------------------------------------------------------------------------------------------------------------
Here's all my code:
gfx = XGraphics.FromPdfPage(page, XGraphicsPdfPageOptions.Prepend)
'this code was added using PDFsharp forum
gfx.MUH = PdfFontEncoding.Unicode
gfx.MFEH = PdfFontEmbedding.Default
'also tried: gfx.MFEH = PdfFontEmbedding.Always
Dim image As XImage = XImage.FromFile(flyerfilename)
gfx.DrawImage(image, 0, 0)
Dim imgOutput As New Bitmap(400, 50, PixelFormat.Format32bppArgb) ' create a New 24bit, 120x30 pixel image
image = XImage.FromGdiPlusImage(imgOutput)
gfx.DrawImage(image, 280, 800)
image = XImage.FromFile(logo)
gfx.DrawImage(image, 414, 10)
'ADD TABLE
tbl = New MigraDoc.DocumentObjectModel.Tables.Table
tbl.Borders.Width = 0
tbl.Shading.Color = MigraDoc.DocumentObjectModel.Colors.White
col = tbl.AddColumn(MigraDoc.DocumentObjectModel.Unit.FromCentimeter(3))
col.Format.Alignment = MigraDoc.DocumentObjectModel.ParagraphAlignment.Left
col = tbl.AddColumn(MigraDoc.DocumentObjectModel.Unit.FromCentimeter(8))
row = tbl.AddRow
cell = row.Cells(0)
cell.AddParagraph("Naam")
cell = row.Cells(1)
cell.AddParagraph(ticketDAL.BuildTicketName(userTicketsDT.Item(0).firstname, userTicketsDT.Item(0).middlename, userTicketsDT.Item(0).lastname))
row = tbl.AddRow
cell = row.Cells(0)
cell.AddParagraph("Tickettype")
cell = row.Cells(1)
cell.AddParagraph(userTicketsDT.Item(0).ticketname)
row = tbl.AddRow
cell = row.Cells(0)
cell.AddParagraph("OrderId")
cell = row.Cells(1)
cell.AddParagraph(orderID.ToString)
row = tbl.AddRow
Dim font As New MigraDoc.DocumentObjectModel.Font
font.Name = fonttype
font.Size = MigraDoc.DocumentObjectModel.Unit.FromPoint(fontsize)
row.Cells(0).Format.Font.ApplyFont(font)
row.Cells(0).AddParagraph("*" + userTicketsDT.Item(0).barcode.ToString + "*")
row.Cells(0).MergeRight = 1
tbl.SetEdge(0, 0, 2, 11, Edge.Box, MigraDoc.DocumentObjectModel.BorderStyle.Single, 1.5, MigraDoc.DocumentObjectModel.Colors.Black)
Dim doc As New MigraDoc.DocumentObjectModel.Document
Dim section As MigraDoc.DocumentObjectModel.Section = doc.AddSection()
doc.LastSection.Add(tbl)
Dim docRenderer As MigraDoc.Rendering.DocumentRenderer = New MigraDoc.Rendering.DocumentRenderer(doc)
docRenderer.PrepareDocument()
docRenderer.RenderObject(gfx, XUnit.FromMillimeter(96), XUnit.FromMillimeter(228), "12cm", tbl)
|
