Barcode Aspect Ratio and Positioning Help

[root2]

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.

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

Function getPaymentBarCode() As String
getPaymentBarCode = "*" & Trim$(UCase$(rsBillPrint!AcctNum)) _
    & Format$(Replace(rsBillPrint!newtotaldue, ".", ""), "000000") & "*"
End Function