Waty,
I generate the bar code by drawing lines on a PictureBox. Here is the code (BOLBinary is a string of 0's and 1's):
If Me.FormType = formVICSLaserQuality Then
DLLBarCodeForm.bcBOLNum.DrawWidth = 1
BarSpacing = 15
Else '***** 2X WIDE FOR DOT MATRIX
DLLBarCodeForm.bcBOLNum.DrawWidth = 2
BarSpacing = 30
End If
For Dumb1 = 1 To Len(BOLBinary)
tmpChar = Mid(BOLBinary, Dumb1, 1)
If tmpChar = "0" Then
BarColor = vbWhite
Else
BarColor = vbBlack
End If
DLLBarCodeForm.bcBOLNum.ForeColor = BarColor
CurrentX = BarSpacing * Dumb1
CurrentY = 0
DLLBarCodeForm.bcBOLNum.Line (300 + CurrentX, CurrentY)-(300 + CurrentX, CurrentY2)
Next Dumb1
Then, to print it to PrintPreview, I use the following code:
Preview.DrawPictureMemory DLLBarCodeForm.bcBOLNum.Image, tempBOLNumLeft, topBOL + 300
I haven't tried NOT drawing the white lines... maybe this is the problem (I'll try it)? Let me know if you need more info. Thanks!
Eddie B.