BarCode Printing

[atifmushtaq(legacy member)]

Sir,

I have use barcode in my application please tell me that how can I print this and also tell me that is it possible that the Printing of barcode in Datareport in Visual Basic 6
Thanks

[glitch (legacy member)]

You can find the print code in the VB6 sample project. See code below:

Printer.ScaleMode = vbTwips ' set the printer scalemode to Twips
'Coordinates for PaintPicture method must now be in Twips.
'1 inch has 1440 Twips.

XMargin = (Printer.Width - Printer.ScaleWidth) / 2
YMargin = (Printer.Height - Printer.ScaleHeight) / 2

X = 1 * 1440 ' X position in 1 Inch
Y = 1 * 1440 ' Y position in 1 Inch

X = X - XMargin ' adjust for margins
Y = Y - YMargin ' adjust for margins
'Print the barcode directly to the printer, start at position X,Y
Printer.Print "Morovia Bar Code Activex Sample"
Printer.Print "Printing the barcode at X= 1 Inch, Y= 1 Inch"
Printer.PaintPicture MrvBarcode1.Picture, X, Y
'Eject the page...
Printer.EndDoc

[atifmushtaq(legacy member)]

Thank you but I Enter this code & when I order to print it say Variable not defiend

Please help me

[glitch (legacy member)]

Find out which variable is undefined.

[atifmushtaq(legacy member)]

" XMargin = "
Sir,

Please tell me where i put this code , in button or................

Please help me as soon as possible

[glitch (legacy member)]

You can remove them, or define them as

Dim XMargin As Integer

[atifmushtaq(legacy member)]

Thank you now it will ok