Problemas con margenes en cheque

[ingenius]

pues yo hice hace poco una aplicacion parecida uso una impresora hpd1560 te adjunto un segmento de codigo a ver si te ayuda

If InStr(7, CmbBanco.Text, "BANESCO") Then
Printer.FontSize = 10
Printer.Print ""
Printer.Print ""
Printer.CurrentY = 250
Printer.CurrentX = 7100
Printer.Print TxtMonto.Text & " ******"

Printer.CurrentX = 1500
Printer.CurrentY = 1000
Printer.Print CmbBeneficiario.Text

If Len(TxtCantidad.Text) < 50 Then
Printer.CurrentX = 1500
Printer.CurrentY = 1300
Printer.Print TxtCantidad.Text & " ******"
Else
For I = 1 To 50
If Mid$(TxtCantidad.Text, I, 1) = " " Then
usp = I
End If
Next I

Printer.CurrentX = 400
Printer.CurrentY = 1300
Printer.Print Mid$(TxtCantidad.Text, 1, usp - 1)

Printer.CurrentX = 1500
Printer.CurrentY = 1600
Printer.Print Mid$(TxtCantidad.Text, usp + 1, Len(TxtCantidad.Text)) & " ******"

End If

Printer.CurrentX = 400
Printer.CurrentY = 2000
Printer.Print "Maracaibo " & Mid$(TxtFecha.Text, 1, Len(TxtFecha.Text) - 7)

Printer.CurrentX = 4250
Printer.CurrentY = 2000
Printer.Print Mid$(TxtFecha.Text, Len(TxtFecha.Text) - 3, 4)
Printer.NewPage
Printer.EndDoc
End If