I am creating Aspose barcode and later its inserting into a pdf page . But all the time its displaying as wrong rotated level. image attached. Please help. Code added below
Private Sub UpdateDocument(ByVal lst As List(Of String))
Dim stream As New MemoryStream()
Dim totallicenseFile As String = Server.MapPath("bin\Aspose.Total.lic")
Dim license1 As New Aspose.BarCode.License()
license1.SetLicense(totallicenseFile)
Dim bbuilder As New BarCodeBuilder()
If BarCodeType = "P" Then
bbuilder.SymbologyType = Aspose.BarCode.Symbology.Pdf417
Else
bbuilder.SymbologyType = Aspose.BarCode.Symbology.Code128
End If
Dim strBarValue As String
strBarValue = "ACS" & Client_Id & "+" & Session.Item("TaskSelBaseID") & "+" & "13" & "+" & DocumentID & "+" & DocumentDescriptionUpdated
bbuilder.CodeText = strBarValue
Dim caption As New Caption(strBarValue)
caption.Font = New System.Drawing.Font("Arial", 16, System.Drawing.FontStyle.Bold)
caption.TextAlign = System.Drawing.StringAlignment.Center
bbuilder.CaptionAbove = caption
bbuilder.AutoSize = True
bbuilder.CodeLocation = CodeLocation.None
bbuilder.Margins.Top = 0.0F
bbuilder.Margins.Bottom = 0.0F
bbuilder.Margins.Left = 0.0F
bbuilder.Margins.Right = 0.0F
'bbuilder.Rotate(Aspose.BarCode.RotationDirection.Clockwise, RotationAngle.OneHundredEightyDegree)
'bbuilder.RotationAngleF() = 0
bbuilder.xDimension = 0.5F
bbuilder.yDimension = 4.0F
bbuilder.AspectRatio = 1.5F
Dim bmp As System.Drawing.Bitmap = bbuilder.GetOnlyBarCodeImage()
Dim tt As System.Drawing.Bitmap = bbuilder.GetCustomSizeBarCodeImage(New System.Drawing.Size(bmp.Width * 5, bmp.Height * 5), False)
bbuilder.Save(stream, System.Drawing.Imaging.ImageFormat.Bmp)
Dim license As New Aspose.Pdf.License()
license.SetLicense(Server.MapPath("bin/Asposet.Total.lic"))
Dim pdfDocument As New Aspose.Pdf.Document(DocumentFullPathWithName)
'set coordinates
Dim lowerLeftX As Integer = 0
Dim lowerLeftY As Integer = 0
Dim upperRightX As Integer = 0
Dim upperRightY As Integer = 0
GetPdfImageLocationValue(ddlBCPosition.SelectedValue, lowerLeftX, lowerLeftY, upperRightX, upperRightY)
For icount As Integer = 0 To PDFPageCount
If lst.Contains(icount) Then
'get the page where image needs to be added
Dim page As Page = pdfDocument.Pages(icount)
page.Resources.Images.Add(stream)
'using GSave operator: this operator saves current graphics state
page.Contents.Add(New [Operator].GSave())
'create Rectangle and Matrix objects
Dim rectangle As New Aspose.Pdf.Rectangle(lowerLeftX, lowerLeftY, upperRightX, upperRightY)
Dim matrix As New Aspose.Pdf.DOM.Matrix(New Double() {rectangle.URX - rectangle.LLX, 0, 0, rectangle.URY - rectangle.LLY, rectangle.LLX, rectangle.LLY})
'using ConcatenateMatrix (concatenate matrix) operator: defines how image must be placed
page.Contents.Add(New [Operator].ConcatenateMatrix(matrix))
Dim ximage As XImage = page.Resources.Images(page.Resources.Images.Count)
'using Do operator: this operator draws image
page.Contents.Add(New [Operator].Do(ximage.Name))
'using GRestore operator: this operator restores graphics state
page.Contents.Add(New [Operator].GRestore())
End If
Next
oBuckVbNet = New Buckvbnet()
oBuckVbNet.AssignStrConnection()
Dim myArray As Array
Dim newVal As String
oBuckVbNet.SelectCmd("Select iss3_doc_number_seq.nextval from dual", "ISS3_MEMDOC")
myArray = Me.oBuckVbNet.GetDbArray()
If myArray.Length > 0 Then
newVal = Convert.ToString(myArray(0, 0))
'save updated document
Dim NewDocumetName As String = newVal & "_" & DocumentName.Split(".")(0).ToString() & "_BC" & ".pdf"
pdfDocument.Save(DocumentPath & "" & NewDocumetName)
End If
End Sub
Private Sub GetPdfImageLocationValue(ByVal location As String, ByRef lowerLeftX As Integer, ByRef lowerLeftY As Integer, ByRef upperRightX As Integer, ByRef upperRightY As Integer)
Select Case location
Case "1"
' Bottom Middle
lowerLeftX = 400
lowerLeftY = 50
upperRightX = 210
upperRightY = 10
Exit Select
Case "2"
'Bottom Left
lowerLeftX = 300
lowerLeftY = 70
upperRightX = 10
upperRightY = 10
Exit Select
Case "3"
'Bottom Right
lowerLeftX = 600
lowerLeftY = 50
upperRightX = 410
upperRightY = 10
Exit Select
Case "4"
'Top Middle
lowerLeftX = 400
lowerLeftY = 800
upperRightX = 210
upperRightY = 760
Exit Select
Case "5"
'Top Left
lowerLeftX = 200
lowerLeftY = 800
upperRightX = 10
upperRightY = 760
Exit Select
Case "6"
'Top Right
lowerLeftX = 600
lowerLeftY = 800
upperRightX = 410
upperRightY = 760
Exit Select
End Select
End Sub