Buen dia compañeros..
Una consulta inocente... tengo dos archivos... "abc.pdf" y "xyz.xlsx" y deseo mandarlos a imprimir cada uno de ellos a la impresora desde un dialogo de FW.
Es posible.
Gracias por la luz...
Lubin.
FUNCTION MAIN()
SumatraPdf( cFile )
RETURN NIL
function SumatraPdf(cFilePdf)
local cSumatra := ".\SumatraPdf.exe"
local cPrinter := PrnGetName() //Alltrim(ViewUsu():PrnHTransporte) //nombre der la impresora de windows
local cFile
cFile := cFilePdf
cCmd := cSumatra + ' -Print-to "' + ;
alltrim( StrToken( cPrinter, 1, "," ) ) + ;
'" -exit-on-print ' + cFile
MsgRun( "Imprimiendo archivo "+cFile, "Espere..", ;
{ || winexec( cCmd, SW_HIDE ) } )
Return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 57 guests