Alex
07 de Mayo del 2005

Tengo el siguiente c贸digo:

do case
case Thisform.OutDevice.Value = 1 && Envia informe por pantalla
oRep =Createobject("Form")
With oRep
.Caption= "Resumen de Ventas Anuales"
.Height = 434
.Left = 414
.Width = 375
.WindowState= 2
.Show()
Endwith
Report Form .RVA.frx Preview Window (oRep.Name)
case Thisform.OutDevice.Value = 2 && Envia informe por impresora
Report Form .RVA.frx to printer prompt
case Thisform.OutDevice.Value = 3 && Envia informe a un archivo de texto
Report Form .RVA.frx to file archi.txt
endcase

La primera opci贸n la realiza perfectamente, la segunda a煤n no la pruebo porque no tengo impresora disponible, la tercera opci贸n NO ME GENERA EL ARCHIVO TXT QUE NECESITO es m谩s no sale absolutamente nada.
Espero que hayan entendido mi problema.
Muy agradecido de antemano por sus aportes a mis dilemas.

Manuel
07 de Mayo del 2005

1. Verifica si realmente "Thisform.OutDevice.Value" est谩 lanzando un valor 3. Eso lo puedes lograr con un "Wait" antes del "do case", algo as铆:
Wait 'La opci贸n elegida es '+allt(str(Thisform.OutDevice.Value)) wind
Esto, s贸lo para asegurarte que realmente va el valor 3, cuando debe ir.

2. La parte "to file archi.txt" te generar谩 un archivo no dif铆cil de leer. As铆 que te aconsejo que le agregues la palabra ASCII. As铆:
Report Form .RVA.frx to file archi.txt ASCII