Barcode creation problem

[kaustubh]

Hello,
I am facing the problem in barcode creation. Code is below:

Code: Select all

Private Sub Command1_Click()
     If Imaging1.PdfNewPdf(App.Path & "\test.pdf", "", "", "", "") Then
      Imaging1.PdfSetMeasurementUnits (2) 'measure unit is centimeters
      Call Imaging1.PdfSetPageDimensions(100, 100)  'Pages dimensions will be 20 x 15 cm
      Imaging1.PdfNewPage
      Call Imaging1.BarCodeDraw128("123456ABCD", 10, 10, 50, Black)
'       Call Imaging1.BarCodeDrawEAN13("22222ABCD", 10, 30, 50, 10, Aqua)
'       Call Imaging1.BarCodeDraw25i("33333ABCD", 10, 60, 50, False, Blue)
'       Call Imaging1.BarCodeDraw39("44444ABCD", 10, 10, 90, False, Red)
      Imaging1.PdfEndPage
      Imaging1.PdfSavePdf
      MsgBox "Yes, file created"
   Else
      MsgBox "error"
   End If
End Sub

This code is creating a pdf file but not Barcode.
Can you please help me with the correct code.
Please give some solution.

[Loïc]

Hi,

The barcode drawing function are designed to draw barcode on a native GdPicture image not on a PDF.

Here what you can do:

- Write barcode on a new blank bitmap
-Insert & Write Bitmap on PDF

Kind regards,

Loïc