DesarrolloClipper : Mensaje: Re: [CA-Clipper] Impresoras Instaladas en Windows

Yo tambien utilizo el RPV en algunos programas y la forma en que averiguo las impresoras instaladas en un ordenador es utilizando la siguiente rutina.

Funciona en W95 y W98

No funciona en XP ni 2000 ya que en estos sistemas operativos los nombres de impresoras no se incluyen en el WIN.INI. Si alguien sabe en que archivo se incluyen los nombres de impresoras le estaría muy agradecido que me lo dijeran para modificar la rutina.

Aquí tienes un ejemplo de como obtener los nombres de impresoras conectadas a un ordenador, esten o no en red.

#INCLUDE "FILEIO.CH"

IMPREWIN:={}

IMPREWIN()

FOR J=1 TO LEN(IMPREWIN)

? IMPREWIN[J]

RETURN NIL

**********************************************************

*** BUSCAR NOMBRES DE IMPRESORAS INSTALADAS EN WINDOWS ***

**********************************************************

FUNCTION IMPREWIN

LOCAL TEXTO:="", AHORA:="NO", LETRA, IMPRESORA

MANEJADOR=FOPEN("C:\WINDOWS\WIN.INI",FO_READ)

IF FERROR()=0

WHILE .T.

LETRA=FREADSTR(MANEJADOR,1)

IF ASC(LETRA)=0

EXIT

ENDIF

IF ASC(LETRA)=13 .OR. ASC(LETRA)=10

IF AHORA="SI"

IMPRESORA=LEFT(TEXTO,AT("=",TEXTO)-1)

IF LEN(IMPRESORA)<>0

AADD(IMPREWIN,IMPRESORA)

ENDIF

IF TEXTO="[PrinterPorts]"

AHORA=IIF(AHORA="NO","SI","NO")

ENDIF

IF TEXTO="[Devices]"

AHORA=IIF(AHORA="NO","SI","NO")

ENDIF

TEXTO=""

ELSE

TEXTO+=LETRA

ENDIF

END

ENDIF

FCLOSE(MANEJADOR)

RETURN NIL

----- Mensaje original -----

De: mailtru

Para: DesarrolloClipper@...

Enviado: jueves, 18 de marzo de 2004 10:25

Asunto: [CA-Clipper] Impresoras Instaladas en Windows

Hola a todos.

Quisiera preguntarles si saben como obtener, desde un programa en Clipper 5.1,

una lista de las impresoras instaladas en Windows (W95/W98/W2000/WXP).

Estoy utilizando un programa que me recomendaron en este foro, el RPV,

para imprimir mis listados en impresoras Windows.

Mi problema es a la hora de querer seleccionar una de las impresoras

instaladas en el equipo. Me interesaria obtener una lista de la siguiente

forma:

//PUESTO1/HP DESKJET 620

//PUESTO/EPSON STYLUS COLOR 900 ESC/P 2

Etc.

Muchas gracias de antemano,

Saludos,

------------------------------ DesarrolloClipper: Desarrollo de Software en CA-Clipper ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloClipper@... Suscribirse........: DesarrolloClipper-Subscribe@... Desuscribirse......: DesarrolloClipper-Unsubscribe@... Administrador......: DesarrolloClipper-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloClipper ------------------------------ http://www.navegana.com/dinero/chanzes.html

Consejos

¿Sabías que...?

Mensajes