Yo hago lo siguiente:
With Barcod1
.PrinterScaleMode = Printer.ScaleMode
.PrinterLeft = iPosicionX
.PrinterTop = iPosicionY
.PrinterWidth = iAnchoMaximo
.PrinterHeight = iAltura
.Alignment = bcALeft
.Style = msSANSI3of9
.BarWidth = iAnchoBarras
.Caption = sCodigoArticulo
.PrinterHDC = Printer.hDC
End With
Printer.ScaleMode lo selecciono a vbPixels, y en iAnchoMaximo lo que
guardo es el ancho maximo que he reservado en la etiqueta para poner el
código de barras. Si el código termina antes, al imprimirlo me limpia el
espacio que sobre, si no llega el espacio, visualiza todo el campo de
color negro. La línea más estrecha del código me las hace con el número
de pixels que indiqué en Barcode1.BarWidth.
Saludos.............. GLL
Origin: PGP Disponible. InterNet (llander@pobox.com)_FidoNet_(2:348/613.26)