¿Cómo Puedo Crear un Mapa de Bits Óptimo para 203 DPI en VB6?

¿Cómo Puedo Crear un Mapa de Bits Óptimo para 203 DPI en VB6?

El código de ejemplo a continuación usa un ancho de módulo preestablecido (personalizado), establece los ppp y luego calcula el ancho total del símbolo. El principio funciona también para otras impresoras.

El método OCX BCWidthHdc2 se puede usar para calcular el ancho del código de barras. Si se ha establecido un ancho de módulo, use un valor ficticio para el [in] nWidth. Si calcula el ancho en unidad=mm, conviértalo a píxeles para la función SaveImage. Si crea un código 2D, use la función BCHeightHd2 para la altura.

Dim widthPx As Long
Dim heightPx As Long
Dim heightMM As Double
TBarCode111.Dpi = 203
TBarCode111.SizeMode = eSizeMode_CustomModuleWidth  ' =1
TBarCode111.ModuleWidth = "250"
heightPx = 100
heightMM = heightPx * (25.4 / TBarCode111.Dpi)
widthPx = TBarCode111.BCWidthHdc2(0, 1000, heightMM * 1000, eMUPixel)
TBarCode111.SaveImage "c:\temp\test.bmp", eIMBmp, widthPx, heightPx, 203, 203