FoxPro/Visual FoxPro - por favor no anda la impresion

 
Vista:

por favor no anda la impresion

Publicado por monica (51 intervenciones) el 22/05/2007 17:09:43
Desde Windows XP direcciono una impresion a un LPT1 con
SET PRINTER TO LPT1, ( si coloco SET PRINTER TO NAME LPT1 tira un error de cola)

Desde Window 98 debo colocar
SET PRINTER TO NAME LPT1 para que funcione (ya que si coloco SET PRINTER TO LPT1 sin NAME lo dirige a la impresora predeterminada que está en un usb y no a la del LPT1)

Pero el programa es uno solo y quiero que estás dos ordenes funcionen con los dos windows que hago..............................
POR FAVOR LES PIDO AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:por favor no anda la impresion

Publicado por Ernesto Hernandez (4623 intervenciones) el 22/05/2007 17:12:25
estas mandando un reporte ? puedes copiar el reporte y utilizas el entorno del reporte guarda el entorno de impresion y dependiendo el OS mandas el reporte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:por favor no anda la impresion

Publicado por monica (51 intervenciones) el 22/05/2007 17:23:05
No es un reporte, es una impresion que va tomando datos e imprime con @prow(),pcol() say ........
Como lo hago , dame un ejemplo
Muchas gracias por tu rápida respuesta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:por favor no anda la impresion

Publicado por Ernesto Hernandez (4623 intervenciones) el 22/05/2007 20:14:28
puedes tratas identificando el OS que se este usando y mandar rutinas diferentes
prueba esto

lcOS = OS(1)
DO CASE
CASE "6.00" $ lcOS
lcPlatform = "VISTA"
CASE "5.02" $ lcOS
lcPlatform = "WIN2003"
CASE "5.01" $ lcOS
lcPlatform = "WINXP"
CASE "5.0" $ lcOS
lcPlatform = "WIN2000"
CASE "NT" $ lcOS
lcPlatform = "WINNT"
CASE "4.0" $ lcOS OR "3.9" $ lcOS
lcPlatform = "WIN95"
CASE "4.1" $ lcOS
lcPlatform = "WIN98"
CASE "4.9" $ lcOS
lcPlatform = "WINME"
CASE "3." $ lcOS
lcPlatform = "WIN31"
OTHERWISE
lcPlatform = "(Unknown)"
ENDCASE
? lcPlatform

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar