PRINT xD

[null]

estaba practicando algo pero ¬_¬ :

Dim a As String
Dim cr As Integer
Private Sub Form_Load()
cr = InputBox("Ingrese cantidad de repeticiones", "Repeticiones")
For i = 1 To cr
a = InputBox("Ingresar nombreS", "Nombres")
Next i
For i = 1 To cr
mensaje = MsgBox("Los nombres son: " & a, , "Nombres")
Next i
For i = 1 To cr
Form1.PrintForm = a
Next i
End Sub

Me tira error en PRINT
como se escribe el formulario ?
con un boton se pone print, pero siguiendo una instruccion desde el mismo form
algo esi puede ser ? PRINTFORM
la verdad me tira error x)

Saludos!

[null]

For i = 1 To cr
Form1.PrintForm = a
Next i

le mande lo ultimo que vi, ni lo revise, me canse de buscarlo por eso decidi postear aca xP

[ReViJa]

Prueba así:

Código:

Form1.Print a

Si no te escribe en el formulario en el evento Load, cambia la propiedad AutoRedraw=true



Saludos.

[null]

Muchas gracias!
Ya encontre la solucion :P !