FiveTech Software tech support forums

ademas de sto he visto cambios en la definicion de constantes ANTES #define MCN_FIRST           (-750)#define MCN_SELCHANGE       (MCN_FIRST + 1)#define MCN_GETDAYSTATE     (MCN_FIRST + 3) AHORA #define MCN_FIRST           (-746) #define MCN_SELCHANGE       (MCN_F...

... := ListadeImpresoras(), oCbx, cCbx:= GetProfString( "windows", "device" , "" ), cImpre := cCbx // mcn[...]     // Let user change printer     @ 7, 540 SAY oSay2 PROMPT "Printer:" ;      ...

JBrita, Si miras los créditos (mcn Valdenebro), es una clase modificada originalmente por mi en el año 2006. En la versión que tu me mandas, veo que se le han incluido "theme 2007", pero nada mas. Abandoné esa clase, porque daba ...

... local lExit := .F. local oHand, oImageList, oReBar // , cPageNum local aImpre := aGetPrinters(), oCbx, cCbx:=PrnGetName(), ; cImpre := cCbx // mcn valdenebro *DEFAULT nBloqueo := .F. #ifdef __CLIPPER__ cResFile := "Preview.dll" #else if ! IsWin64() cResFile := "Prev32.dll" ...

Prueba con esta funcion de mcn Yo la utilizo desde el Preview, solo elijo la impresora y listo debes adaptarla a tu aplicacion con algun ciclo, etc. parametros oDevice == > objeto printer cCbx ==> nombre de la impresora el nombre ...

... instalada. Aquí os pongo la clase completa modificada: //////////////////////////////////////////////////// // clase RPREVIEW // reformada por mcn Valdenebro para select printer /////////////////////////////////////////////////// #include "FiveWin.ch" #define DEVICE oWnd:cargo #define GO_POS ...

... He encontrado esto: //------------------------------------------------------------------------ // función para cambiar la impresora desde previo (mcn) //------------------------------------------------------------------------ func f_CamImpre (oDevice, cCbx ) local cPrinter cPrinter := GetProfString( ...

... a minor modification //------------------------------------------------------------------------ // función para cambiar la impresora desde previo (mcn) //------------------------------------------------------------------------ func f_CamImpre (oDevice, cCbx ) local cPrinter cPrinter := GetProfString( ...

George wrote:Maybe the errors are because I am using FWH 2.5

George,

May be.- Perhaps you have in FWH\SOURCE\CLASSES an old rpreview.prg version 2.5.- You can compare it with my version, and modifing/adding in your version only "mcn-lines".

George wrote:Can I get the modification that you did to rpreview.prg?

George,

You can download from:

http://hyperupload.com/download/02caf68 ... w.prg.html

All lines with "mcn" has been changed for me.

Regards

Solucionado: //------------------------------------------------------------------------ // función para cambiar la impresora desde previo (mcn) //------------------------------------------------------------------------ func f_CamImpre (oDevice, cCbx ) local cPrinter cPrinter := GetProfString( ...

Solucionado: //------------------------------------------------------------------------ // función para cambiar la impresora desde previo (mcn) //------------------------------------------------------------------------ func f_CamImpre (oDevice, cCbx ) local cPrinter cPrinter := GetProfString( ...