Thank Linares,
I await your tests.
#include "FiveWin.ch"
function Main()
local oWnd
DEFINE WINDOW oWnd MENU AppMenu()
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
function AppMenu()
LOCAL oMenu
MENU oMenu
MENUITEM "Print Report" ACTION PrnRpt()
MENUITEM "Printer Setup" ACTION PrinterSetup()
ENDMENU
RETURN oMenu
//----------------------------------------------------------------------
static function PrnRpt()
local oPrn, oWnd
PRINT oPrn NAME "This is a test" PREVIEW
PAGE
oPrn:Say( 20, 20, "This is a printersetup() test" )
ENDPAGE
ENDPRINT
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 81 guests