Code: Select all
oGdPictureImaging.TiffOpenMultiPageForWrite(True)
ImageID = oGdPictureImaging.TiffCreateMultiPageFromFile(sFileInput)
If (ImageID = 0) Then Err.Raise ...
PageCount = oGdPictureImaging.TiffGetPageCount(ImageID)
For iPageIdx = 1 To PageCount
oGdPictureImaging.TiffSelectPage(ImageID, iPageIdx)
If (iPageIdx = 1) Then
Dim align As BarcodeAlign
GdStatus = oGdPictureImaging.Barcode1DWrite_4( ImageID, Barcode1DWriterType_Barcode1DWriterEAN13, sText, 0, 0, 250, 80, oGdPictureImaging.ARGBI(255, 0, 0, 0), BarcodeAlign_BarcodeAlignCenter, 0)
End If
oGdPictureImaging.ConvertTo1Bpp (ImageID) 'Comment this line to keep true color image
Next iPageIdx
oGdPictureImaging.TiffSaveMultiPageToFile(ImageID, sFileOutput, iTIFFCompression)
oGdPictureImaging.ReleaseGdPictureImage (ImageID)
Thanks