Imprimir con shellexecute a una impresora

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Imprimir con shellexecute a una impresora
Posted: Sat Apr 17, 2010 03:59 PM

En una aplicación que genera un listado en formato rtf, para que pueda ser manipulado por el usuario uso la siguiente línea de código, para que nos abra el word (o comptible), y visualizar el documento:
word:=shellexecute(GetHWnd32(oWnd:hWnd ),"open",CFICHERO,,"",)

Ahora quiero ir más lejos, quisiera imprimir, usando la misma función, pero cambiando el "open" por "print", ¿hay alguna forma de hacerlo, enviando la impresión a una impresora en particular?

Muchas gracias y un saludo

José Luis

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Imprimir con shellexecute a una impresora
Posted: Tue Apr 20, 2010 11:43 AM

Me respondo yo mismo por el momento y a falta de conseguir hacerlo de una forma más elegante, y a ser posible sin abrir dos veces el word:

Code (fw): Select all Collapse

  if adobe
      nhandle:=treg32():new(2147483649,"SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders")
      ruta:=nhandle:get("Personal")
      impresora:=PrnGetName()
      setprintdefault("Adobe PDF")
      oword:=shellexecute(GetHWnd32(oWnd:hWnd ),"print",CFICHERO,,,.f.)
      setprintdefault(impresora)
          endif
          oword:=shellexecute(GetHWnd32(oWnd:hWnd ),"open",CFICHERO,,,.t.)

Seguiré dándole vueltas.
Un saludo
José Luis

FiveTech Support Forums

Continue the discussion