FoxPro/Visual FoxPro - devolver nombre de impresora...

 
Vista:

devolver nombre de impresora...

Publicado por marcos (190 intervenciones) el 25/05/2004 03:11:10
hola a todos, como puedo obtener el nombre de la impresora que esta en forma predeterminada en el panel de control?? Sin seleccionar en el prompt y sin utilizar el comando getprinter()!!!

Tengo un informe en el cual necesito obtener el nombre de la impresora antes de enviarlo...ojala puedan ayudarme!! Gracias
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

RE:devolver nombre de impresora...

Publicado por Roberto Yuniz E. (40 intervenciones) el 27/05/2004 02:14:27
Marcos...
Yo utilizo la siguiente función en un archivo de procedimientos
FUNCTION GETDEFAULTPRINTER
&& Declaración en API de windows
DECLARE INTEGER GetProfileString IN Win32API AS GetProStr ;
STRING, STRING, STRING, STRING @, INTEGER
******************************************
LOCAL CBUFFER, XPOS
CBUFFER = SPACE(255)
= GETPROSTR("windows","device",",,,",@CBUFFER,255)
XPOS = AT(",", CBUFFER)
IF XPOS>1
CIMPRES = SUBSTR(CBUFFER, 1, XPOS-1)
ELSE
CIMPRES = ""
ENDIF
RETURN (CIMPRES)
ENDFUNC

Y desde cualquier programa solo hago lo siguiente:

lc_namePrint = getdefaultprinter()

y listo.
Bueno, cualquier cosa me avisas.
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