FiveTech Software tech support forums

Antonio Linares wrote:Dear Silvio,

Fixed, please download and install FWH 23.10 again

many thanks for your great feedback

Code: Select all  Expand view

Application
===========
   Path and name: C:\Work\errori\03_11_2023\ReportGen\Report.Exe (32 bits)
   Size: 4,784,128 bytes
   Compiler version: Harbour 3.2.0dev (r2104281802)
   FiveWin  version: FWH 23.10
   C compiler version: Borland C++ 5.8.2 (32-bit)
   Windows 10 64 Bits, version: 6.2, Build 9200

   Time from start: 0 hours 2 mins 25 secs
   Error occurred at: 09-11-2023, 09:50:40
   Error description: Error BASE/1004  No exported method: PAGESETUP
   Args:
     [   1] = A   {,1960969296} length: 2

Stack Calls
===========
   Called from:  => PAGESETUP( 0 )
   Called from: .\source\classes\RPREVIEW.PRG => CONVERTTOWORDDOC( 1887 )
   Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:SAVEAS( 1788 )
   Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:SENDEMAIL( 1830 )
   Called from: .\source\classes\RPREVIEW.PRG => (b)TPREVIEW_BUILDBUTTONBAR( 281 )
   Called from: .\source\classes\TOOLBAR.PRG => TTOOLBAR:COMMAND( 237 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1157 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3651 )
   Called from:  => SYSREFRESH( 0 )
   Called from: .\source\function\MSGRUN.PRG => STOPUNTIL( 72 )
   Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:ACTIVATE( 175 )
   Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW( 1862 )
   Called from: .\source\classes\PRINTER.PRG => (b)TPRINTER( 323 )
   Called from: .\source\classes\PRINTER.PRG => TPRINTER:PREVIEW( 0 )
   Called from: .\source\classes\PRINTER.PRG => PRINTEND( 2036 )
   Called from: source\ut_preview.prg => PRNLABEL( 173 )
   Called from: source\ut_preview.prg => ANTEPRIMA( 21 )
   Called from: source\Report.prg => (b)EDIT_REPORT( 665 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 796 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1083 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1851 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2138 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3651 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
   Called from: source\Report.prg => EDIT_REPORT( 902 )
   Called from: source\Report.prg => (b)REPORTGENERATOR( 117 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 796 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1083 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1851 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2138 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3651 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
   Called from: source\Report.prg => REPORTGENERATOR( 245 )
   Called from: source\Report.prg => MAIN( 56 )

Antonio Linares wrote:Dear Silvio,

Could you please run this code ?

local oWord := WinWordObj()
local oDoc := oWord:Documents:Add()

oDoc:PageSetup:Orientation = 0

many thanks for your feedback

Code: Select all  Expand view

Function Anteprima(oBrowse,oRec)

local oWord := WinWordObj()
local oDoc := oWord:Documents:Add()
oDoc:PageSetup:Orientation = 0
       
             IF oRec:Rows = 0 .AND. oRec:Columns= 0
                    PrnList(oBrowse,oRec)

           else
                  PrnLabel(oBrowse,oRec)
           Endif

Return nil