Problemas con impresion

[Mike711511]

Hola saludos a toda la familia VFP tengo un problemilla con un
programa de impresion le pongo el set devi to screen el set print on
(primero) y luego el set print off y set devi to screen pero no me
imprime y si lo hace es a la hora tengo que salir del foxpro para que
recien mande a imprimir ayuda please

Gracias

[Eric Natareno Guerra]

SET CONSOLE OFF

SET PRINTER TO NAME (impresora predefinida)

REPORT FORM (tu_reporte) to printer prompt preview (si quieres ver previamente el informe antes de enviarlo a imprimir y poder seleccionar de las impresora que tienes instaladas)

SET PRINTER TO

SET CONSOLE ON

[Irlandes 1960]

Hola , si queres generar una vista previa por pantalla, tenes que usar la opción PREVIEW del comando report form como bien indica Eric. No me ha sido necesario incluir "to printer prompt"

Suerte

[Jairo Miranda]

Prueba con esto

 

STORE PRINTSTATUS( ) TO glReady

IF NOT glReady

   WAIT 'Verifique por favor el estado de su impresora predeterminada, parece ser que no existe o no esta en linea!' WINDOW AT 60,20

ELSE

     *WAIT 'Printer is ready!' WINDOW LA IMPRESORA POR DEFECTO ESTA EN LINEA  

SET PRINTER TO NAME GETPRINTER( ) && TE PERMITE SELECCIONA OTRA ANTES DE IMPRESION

repor form Reporte.frx to print prompt preview nocosole   && enviar a la impresora

ENDIF

 

jm

[Jairo Miranda]

Hola foro.. alguien conoce una rutina para validar  direcciones Emails , es decir que esté bien escrito..  después pensaremos como validarla desde internet verificando si realmente ese cuenta existe..

 

Opiniones…

JM

[Luis Maria Guayan]

Jairo, no cambies el Tema del Hilo, crea un nuevo mensaje al grupo. De veras que no es tan difícil :-)

? ValidEMail("webm...@hotmail.com")

PROCEDURE ValidEMail(tcEmail)
  LOCAL oRE
  tcEmail = ALLTRIM(tcEmail)
  oRE = CREATEOBJECT("VBScript.RegExp")
  oRE.PATTERN = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
  RETURN oRE.Test(tcEmail)
ENDPROC
 

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Manuel Zevallos]

Excelente Luis Maria!!!!

Yo las habia visto en .Net.

--

Atentamente,     Manuel Zevallos B. RPM #331278 RPC 9-8958-4264 Claro   http://manuelzevallos.es.tl

[Jairo Miranda]

Gracias Luis voy a probar el código y, discúlpame, a veces se me va la paloma, como se dice.. seguimos con el asunto de la impresión?

 

JM

[Miguel Castillo]

muy agradecido jairo ahora si funciona perfecto pero me queda la duda sabes tu acaso por que me pasaba esto o es que en vfp9 no funciona la orden
mi programas estaba mas o menos asi
set print on
set console off
set devi to print
@i,12 say "dsklsdfklsdfk"
set devi to screen
set console off
set print off
 
por que?  se quedaba detenida me tocaba dar al final un quit para salir del fvfp e inmediatamente comenzaba a imprimir
 si alguien lo sabe por favor indiqueme que estaba poniendo mal por que en verciones anteriores me a funcionado siempre
 

---

From: ja...@vidapanama.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Problemas con impresion
Date: Thu, 26 May 2011 08:34:45 -0500

[Miguel Castillo]

 muy agradecido por la ayuda ahora si me funciona bien...otra vez gracias

---

Date: Thu, 26 May 2011 06:26:05 -0300
Subject: Re: [vfp] Problemas con impresion
From: irland...@gmail.com
To: publice...@googlegroups.com

[Miguel Castillo]

gracias eric todo perfecto ahora si
 

---

Date: Wed, 25 May 2011 23:17:46 -0600

Subject: Re: [vfp] Problemas con impresion

From: tqany...@gmail.com
To: publice...@googlegroups.com

[Jairo Miranda]

Si miras el uso de : GETPRINTER( )

 

cPrinter = GETPRINTER( ) && Displays the Windows Printer Dialog

*** Displays the name of the printer chosen ***

WAIT WINDOW IIF(EMPTY(cPrinter), 'No printer chosen', cPrinter)

 

El determina por si mismo el estado de la impresora..

 

Puedes ampliar conocimeiento con :

 

APRINTERS( ) | SET PRINTER | SYS(102) -  | SYS(1037)

 

 

Tomado del Manual de visual Fox 9.0

 

JM