bebesita
19 de Enero del 2003

hola tengo un pequeño problema con este codigo
este es un segundo form es decir un form2 que recibe datos de un form1

quiero que mi imprima en columnas en en form2
use locate , pero parece que esta no es la instruccion adecuada pues no la conoce..

necesito a lo menos dos columnas ...como es el codigo

ademas una vez que este se imprima en el form2 , como puedo imprimirlo directamente a la impresora, necesito el listado que se imprime , no un vaciado de pantalla con form2 y todo...

gracias de antemano


ahi va el codigo

Private Sub Form_Load()
Dim P As Integer, x As Double, y As Double
Show

For P = 1 To Form1.I


x = ((300 * Val(P)) +(Val(Form1.I) + Val(Form1.E)))


y = (3 * (50 * Val(P) + Val(Form1.I) * Val(Form1.E)) / (Val(Form1.I) * (100 - Val(Form1.E))))

If (Val(P) < (0.01 * Val(Form1.I) * Val(Form1.E))) Then
N = x




If P <= Form1.I / 2 Then
locate 1, P (aqui tengo problemas)

Print P, x
Else
locate 10, P - (Form1.I / 2)
Print P, x
End If


Else

N = y
If P <= Form1.I / 2 Then
locate 1, P
Print P, y
Else
locate 10, P - (Form1.I / 2)
Print P, y
End If




End If

Next P

End Sub