Barcode Aspect Ratio and Positioning Help
Hello everyone out there, I need a bit of help. I'm having a problem with barcode ASPECT RATIO, POSITIONING on HP printer and CPI. A lot of things to start with. :-)
These are the requirements:
* BARCODE 1/4" from bottom of form
* ASPECT RATIO should be 3 to 1
* Characters per inch should be 6
If anyone has worked with HP printers you cannot print lower than 1/4". The positioning of the barcode is a bit too high. The barcode (not the numeric value of the barcode) should be 1/4". Any suggestions? Can I invert the numeric value to be placed on top instead of buttom so that I can print the barcode at 1/4"?
Any suggestions and sample would be greatly appreciated, thanks.
:confused:
VB Code:
Sub PAYMENT_BAR_CODE()
'--- PAYMENT BAR CODE
Dim n As Integer
PaymentBarCodeFontName = "C39HrP24DhTt"
If Not installedFont(PaymentBarCodeFontName) Then
MsgBox "Payment Bar Code font not installed!" & vbCrLf & vbCrLf & getMsg("Payment Bar Code"), vbCritical, PaymentBarCodeFontName
End
End If
Printer.FontName = PaymentBarCodeFontName
Printer.FontSize = 36
Call PrintTxt(X, Y, getPaymentBarCode)
Printer.FontName = sFontName
Printer.FontSize = iFontSize
End Sub
VB Code:
Function getPaymentBarCode() As String
getPaymentBarCode = "*" & Trim$(UCase$(rsBillPrint!AcctNum)) _
& Format$(Replace(rsBillPrint!newtotaldue, ".", ""), "000000") & "*"
End Function