EasyReort and RTF opens much report design options

EasyReort and RTF opens much report design options

Postby Otto » Fri Jun 15, 2018 7:56 am

Hello,
now it is working for me.
Best regards,
Otto
Code: Select all  Expand view

function rtfDruck()

   local oWnd, cHeader := "", oHeader
   local cDoc := GetPvProfString( "Setup","RTFTextFile","Dokument.rtf",  "inifile.INI" )
 
    cHeader := MemoRead( cDoc )
 
   DEFINE WINDOW oWnd TITLE "New report"
   
   @ 0, 0 RICHEDIT oHeader VAR cHeader SIZE oWnd:nWidth, 70 OF oWnd
   
   ACTIVATE WINDOW oWnd ON INIT oWnd:hide()

       
return ( oHeader )  
 //----------------------------------------------------------------------------//
 
 function druckrtf( oVrd, oRtf )
   local aMargins := PageGetMargins()
   local oPrn := oVrd:oPrn
   local nRowPix

    // should come from PRINTAREA definded for RTF block
    local nTopMargin        := 0
    local nLeftMargin   := 500
    local nRightMargin  := 500
    local nBottomMargin     := 1500
    *----------------------------------------------------------

   nTopMargin := Max( 0, ( oVrd:nNextRow  * oPrn:nVertRes() / oPrn:nVertSize() ) - oPrn:nYoffset )
   
   aMargins := { nTopMargin*2, nBottomMargin, nLeftMargin, nRightMargin }

   if Empty( oPrn:hDC )
      MsgStop( "Printer not ready!" )
      return Self
   endif

   REPrint( oRtf:hWnd, "cName", oPrn:hDCOut, PrnGetPagNums(), PrnGetSelection(), ;
            PrnGetCollate(), PrnGetPages(), PrnGetCopies(), aMargins )

return nil

//----------------------------------------------------------------------------//

 


Image
Last edited by Otto on Mon Mar 14, 2022 6:38 pm, edited 1 time in total.
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6312
Joined: Fri Oct 07, 2005 7:07 pm

Re: EasyReort and RTF opens much report design options

Postby nageswaragunupudi » Fri Jun 15, 2018 8:35 am

Wonderful
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 46 guests