Tecnologia

Private Function cmd_imprimir()
Dim Numeros As New clsNumeros

Printer.ForeColor = RGB(0, 0, 0)
Printer.FontSize = 8
'*** IMPRIMIR EL MONTO DE CHEQUE EN LETRAS
If IsNumeric(tmonto.Text) ThenPrinter.CurrentX = 2900 'Posición horizontal
Printer.CurrentY = 2800 'Posición vertical
Printer.FontSize = 8
'Printer.Print Numeros.NroEnLetras(tmonto.Text)
Call justifica_printer2(2900, 9700,2800, Numeros.NroEnLetras(tmonto.Text))
Else
MsgBox "Debe ingresar un numero.", vbInformation, "Atencion"
End If

On Error GoTo Control_Err

Printer.FontSize = 9 'El tamaño del texto

' ***MONTODEL CHEQUE
Printer.CurrentX = 8700 'Posición horizontal
Printer.CurrentY = 1600 'Posición vertical
Printer.Print tmonto.Text

' **NOMBRE DE LA PÈRSONA
Printer.FontSize = 9
Printer.CurrentX =2900 'Posición horizontal
Printer.CurrentY = 2400 'Posición vertical
Printer.Print tpers.Text

'*** OBSERVACION
Printer.FontSize = 8 'El tamaño del texto
'Printer.CurrentX = 2700 'Posiciónhorizontal
'Printer.CurrentY = 7000 'Posición vertical
'Printer.Print tobservacion.Text
Call justifica_printer(2700, 8000, 7000, tobservacion.Text)

' ***MONTO DEL CHEQUE
Printer.FontSize = 10 'Eltamaño del texto
Printer.CurrentX = 9500 'Posición horizontal
Printer.CurrentY = 7600 'Posición vertical5
Printer.Print tmonto.Text


'*** EL USUARIO

Printer.FontSize = 8 'El tamaño del textoPrinter.CurrentX = 1700 'Posición horizontal
Printer.CurrentY = 10800 'Posición vertical
Printer.Print tusu.Text

' ***NRO DE LA CUENTA

Printer.FontSize = 9 'El tamaño del texto
Printer.CurrentX= 2800 'Posición horizontal
Printer.CurrentY = 9800 'Posición vertical
Printer.Print tcuenta.Text

' ***fecha

Printer.FontSize = 10 'El tamaño del texto
Printer.CurrentX = 1700 'Posiciónhorizontal
Printer.CurrentY = 3400 'Posición vertical
Printer.Print Day(tfecha.Text)

Printer.FontSize = 10 'El tamaño del texto
Printer.CurrentX = 2300 'Posición horizontal
Printer.CurrentY =...