... linking in printer.prg and inserting a code to inspect the return value of the following elseif cModel == nil ::hDC := GetPrintDefault( GetActiveWindow() ) ::hDC seems to always be 0 eventhough GetActiveWindow() returns a valid handle iv ComDlgXErr() in printer.prg always ...
... puestas muchas, pero muchas tildes que faltaban. Parece que había mucha copia directa sin corregir, desde los chm de FiveWin. Ahora ya está bien. GetActiveWindow() GetAllWin() GetASyncKey() Getbkcolor() GetCapture() GetCaretPos() GetClassName() GetClientRect() GetClpData() GetCommError() GetCoors() ...
... lo ve el usuario: he usado la siguiente secuencia : DibWrite( "screen.bmp", DibFromBitmap( WndBitmap( oWnd:hWnd ) ) ) , ; ShellExecute( GetActiveWindow() ,nil, cFilePath(GetModuleFileName(GetInstance())) + "screen.bmp",'','',5) ) El resultado que me muestra es la primera pantalla ...
... lo ve el usuario: he usado la siguiente secuencia : DibWrite( "screen.bmp", DibFromBitmap( WndBitmap( oWnd:hWnd ) ) ) , ; ShellExecute( GetActiveWindow() ,nil, cFilePath(GetModuleFileName(GetInstance())) + "screen.bmp",'','',5) ) El resultado que me muestra es la primera pantalla ...
... resuelto con ALLTRIM(GetEnv("LOGONSERVER"))+'\' Ahora solo me falta el nombre de la impresora compartida. Probé con GetPrintDefault( GetActiveWindow() ), pero no hay manera. ¿ Es posible ? Mil gracias LORENZO.
... M. Giordano // Insert here the function to create the report // oWnd:End() // George - To close current preview oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() WriteProfString( "windows", "device", cPrinter ) RETURN nil
... oPrn:say(1,1,'empenzando a imprimir...') ... ENDIF ¿La variable vRuta se podría depurar con vRuta:=GetPrintDefault( GetActiveWindow() ) b) NO compartida en RED ¿ El código sería el mismo que en la opción anterior ? A la espera de respuestas, saluda LORENZO Fdez. Cádiz, ...
... PRINTERNAME is the name of the printer to use as acquired from the PRINTERSETUP() function as follows: PRINTERSETUP() hDC := GetPrintDefault( GetActiveWindow() ) PRINTERNAME := PRNGETNAME() If, however in the vista environment, I call Tprinter:new with the 2cnd parameter to force the printer ...
... #define FO_DELETE 0x0003 #define FOF_ALLOWUNDO 0x0040 #define FOF_NOCONFIRMATION 0x0010 y el programa hace esto: FUNCTION Borra( cFile ) ShFile( GetActiveWindow(), FO_DELETE, cFile + Chr( 0 ), Nil, nAnd( FOF_ALLOWUND, FOF_NOCONFIRMATION)) RETURN .T. la idea seria borrar estos archivos temporales ...