Imprimir un documento bajo Visual Fox....

Puedes utilizar la función ShellExecute del API de windows ..

DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
INTEGER hwnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd

=Shellexecute(0,"Print","c:autoexec.bat","","",0)

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.net

Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Sergio Navarro" escribió en el mensaje
news:eHi$

Buenas a todos. Me dirijo a ustedes porque tengo necesidad de solucionar
un problema. Soy un programador novato en Visual FoxPro 7 y me gustaria
saber si alguien me puede echar una mano.

Mi problema es el siguiente:
Necesito mandar a imprimir un documento desde el fox. Es decir, en uno de
mis formularios le permito al usuario seleccionar un fichero cualquiera,
incluso le permito visualizarlo desde el formulario, pero no se como puedo
hacer para mandar ese documento a la impresora bajo código.

Se que se puede mandar un documento word o excel a la impresora, pero, ¿y
si es un .txt o .pepe, como lo mando a imprimir?

Si alguien me pudiese ayudar le estaria muy agradecido...


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Otra aproximación

Pepe Llopis
FUTURA Systems & software, S.L.
www.futuracenter.com

-
* Ejecuta un programa mediante su asociación, por lo que vale para todo .
* FUNCTION: Run_RunWith
* Author: George Tasker
* Date: January 28, 1999 - 8:59 AM
* Purpose: Runs the program associated
* with a file (opening the progrom). If
* no association, brings up the "Open With..."
* dialog

FUNCTION Run_With
LPARAMETERS pcFilename, pnWindowState, pnhWnd
*
* pcFilename is the file to run and open
*
* pnWindowState (optional) is the way the window
* is displayed (default it SW_SHOWNORMAL 9)
*
* pnhWnd is the handle of the window to be used
* if the Open With... dialog is called
*
* Return value is the instance handle or error
* code

LOCAL lcfilename, lnWindowState, lnargs,;
lnresult, lcparms, lcop, lcpath, lcbuffer,;
lnsize, lcrundll, lnhWnd
lnargs = PCOUNT()
DO CASE
CASE lnargs = 1
lnWindowState = 9 && SW_SHOWNORMAL
lnhWnd = 0
CASE lnargs = 2
lnWindowState = pnWindowState
lnhWnd = 0
CASE lnargs = 3
IF TYPE('pnWindowState') = 'N'
lnWindowState = pnWindowState
ELSE
lnWindowState = 9 && SW_SHOWNORMAL
ENDIF
lnhWnd = pnhWnd
ENDCASE
lcfilename = pcFilename
lcop = 'open'
lcparms = ""
lcpath = justpath(lcfilename)
DECLARE INTEGER ShellExecute IN Shell32;
INTEGER hWnd, STRING @lpOperation,;
STRING @lpFile, STRING @lpParameters,;
STRING @lpDirectory, INTEGER nShowCmd
lnresult = ShellExecute(0, @lcop, @lcfilename,;
@lcparms, @lcpath, lnWindowState)
IF lnresult < 33 && Error occurred
IF lnresult = 31 && No file associated
DECLARE INTEGER GetSystemDirectory IN Win32API;
STRING @lpBuffer, INTEGER nSize
lnsize = 260
lcbuffer = SPACE(lnsize)
lnsize = GetSystemDirectory(@lcbuffer, lnsize)
IF lnsize > 0
lcbuffer = LEFT(lcbuffer, lnsize)
lcrundll = "RUNDLL32.EXE"
lcparms = "shell32.dll,OpenAs_RunDLL "
lnresult = ShellExecute(lnhWnd, @lcop, lcrundll,;
lcparms + lcfilename, lcbuffer, lnWindowState)
ENDIF
ENDIF
ENDIF
RETURN lnresult
ENDFUNC
-

"Sergio Navarro" escribió en el mensaje
news:eHi$

Buenas a todos. Me dirijo a ustedes porque tengo necesidad de solucionar
un problema. Soy un programador novato en Visual FoxPro 7 y me gustaria
saber si alguien me puede echar una mano.

Mi problema es el siguiente:
Necesito mandar a imprimir un documento desde el fox. Es decir, en uno de
mis formularios le permito al usuario seleccionar un fichero cualquiera,
incluso le permito visualizarlo desde el formulario, pero no se como puedo
hacer para mandar ese documento a la impresora bajo código.

Se que se puede mandar un documento word o excel a la impresora, pero, ¿y
si es un .txt o .pepe, como lo mando a imprimir?

Si alguien me pudiese ayudar le estaria muy agradecido...


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway