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