FiveTech Software tech support forums

Code: Select all  Expand view

// \samples\RPTLINHA.PRG

#include "FiveWin.ch"
#include "Report.ch"

STATIC oReport, oDlg

FUNCTION Main()

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO Year( Date() ) - 30

   USE Customer ALIAS Test

   myReport()

RETURN NIL

FUNCTION myReport()

   LOCAL oFont1, oFont2, oFont3, oBmp, oPen1, oPen2
   LOCAL nfila := -1
   LOCAL lLand

   DEFINE FONT oFont1 NAME "ARIAL" SIZE 0, - 10
   DEFINE FONT oFont2 NAME "ARIAL" SIZE 0, - 10 BOLD
   DEFINE FONT oFont3 NAME "ARIAL" SIZE 0, - 10 BOLD ITALIC

   DEFINE PEN oPen1 Width 2 COLOR CLR_CYAN
   DEFINE PEN oPen2 WIDTH 2 COLOR CLR_GREEN

   GO TOP

   REPORT oReport                                              ;
      TITLE  "*** LISTADO DE PRUEBA ***",                      ;
      "",                                                      ;
      OemtoAnsi( "FiveTech Software" ),                        ;
      ""                                                       ;
      FONT   oFont1,                                           ;
      oFont2,                                                  ;
      oFont3                                                   ;
      PEN    oPen1,                                            ;
      oPen2                                                    ;
      HEADER "Fecha: " + DToC( Date() ),                       ;
      "Hora..: " + Time()                                      ;
      FOOTER OemtoAnsi( "P gina: " ) + Str( oReport:nPage, 3 ) ;
      CENTERED                                                 ;
      PREVIEW

   lLand := IF( oReport:oDevice:GetOrientation() == 1, ( .F. ), ( .T. ) )

   oReport:oDevice:lPrvModal := .T.
   oReport:oDevice:SetPage( 9 )

   IF lLand

      MsgInfo( "LANDSCAPE", "Reporte" )

      PrnLandScape()   // Horizontal

      oReport:lAutoLand := .T.

   ELSE

      MsgInfo( "PORTRAIT", "Reporte" )

      PrnPortrait() // Vertical

      oReport:lAutoLand := .F.

   ENDIF

   COLUMN TITLE "Fila" DATA AllTrim( Str( nFila += 0.5 ) )

   COLUMN TITLE "ST"       ;
      DATA Test->STATE     ;
      FONT 2

   COLUMN TITLE "City" ;
      DATA Test->City

   COLUMN TITLE "First Name", "Last Name" ;
      DATA Test->First, Test->Last

   COLUMN TITLE "   Salary"   ;
      DATA Test->Salary       ;
      PICTURE "9,999,999"     ;
      SIZE 9                  ;
      TOTAL                   ;
      SHADOW                  ;
      GRID 2

   END REPORT

   IF .NOT. oReport:lCreated

      RETURN NIL

   ELSE

      oReport:SetTxtColor( CLR_HBLUE, 1 )
      oReport:SetTxtColor( CLR_HRED, 2 )
      oReport:SetTxtColor( CLR_HBLUE, 3 )
      oReport:SetPenColor( CLR_CYAN   )
      oReport:SetShdColor( CLR_HCYAN  )

   ENDIF

   oReport:CellView()

   ACTIVATE REPORT oReport

   oFont1:End()
   oFont2:End()
   oFont3:End()

   oPen1:End()
   oPen2:End()

RETURN NIL
 

Otto wrote:Silvio, please look here:
viewtopic.php?f=3&t=40526&p=242094&hilit=orientation&sid=e2593be1086c9bedebb3a003fb838c89#p242094
Best regards,
Otto

Otto wrote:Silvio,
It uses the same source code.
It does not work like that. It is very complicated to change.
It's an open case.
Best regards,
Otto

Code: Select all  Expand view

METHOD Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF ) CLASS TXBrowse

   local oRep, oPrn, oFont, oBold, uRet
   local aCols, nFor, oCol, uBookMark
   local oBrw := Self
   local lAddCols := .T.
   local nRows, nSel, n
   local lEof     := .f.
   local lSetUpTwice := .f.
   local nLevels

   DEFAULT cTitle   := If( ::oWnd:ClassName == 'TPANEL', ::oWnd:oWnd:cTitle, ::oWnd:cTitle )
   DEFAULT lPreview := .T.
   DEFAULT lModal   := .T.

   if ::nLen < 1 .or. Empty( ::GetVisibleCols )
      return nil
   endif

   oPrn :=  PrintBegin( cTitle, ;            // document
                        .f., ;              // luser
                        lPreview, nil, ;    // xmodel
                        lModal, ;
                        .f.,    ;           // lselect
                        cPDF )              // PDF to Save
 

Code: Select all  Expand view

function PrintBegin( cDoc, lUser, lPreview, xModel, lModal, lSelection, cFile )

   local cText, aPrn, nScan

   if xModel == nil
      return oPrinter := TPrinter():New( cDoc, lUser, lPreview,, lModal, lSelection, cFile )
   endif

   cText = StrTran( GetProfString( "Devices" ), Chr( 0 ), Chr( 13 ) + Chr( 10 ) )
   aPrn  = Array( MlCount( cText, 250 ) )

   AEval( aPrn, { | v, n | aPrn[ n ] := Trim( MemoLine( cText, 250, n ) ) } )

   if Valtype( xModel ) == "N"
      if xModel < 0 .or. xModel > Len( aPrn )
         nScan = 0
      else
         nScan = xModel
      endif
   else
      if ( nScan := Ascan( aPrn, { | v | Upper( xModel ) == Upper( v ) } ) ) == 0
         nScan = Ascan( aPrn, { | v | Upper( xModel ) $ Upper( v ) } )
      endif
   endif

   if nScan == 0
      MsgBeep()
      return oPrinter := TPrinter():New( cDoc, .T., lPreview,, lModal, lSelection, cFile )
   endif

return oPrinter := TPrinter():New( cDoc, .f., lPreview, aPrn[ nScan ], lModal,;
                                   lSelection, cFile )

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

Myworkaround is does the job but you first has to setup for the printer model the orientation.



 

Code: Select all  Expand view

function hochformat()
    winexec('RUNDLL32.EXE PRINTUI.DLL,PrintUIEntry /Sr /n "Seminar" /a "c:\setprnter\Seminarhoch.dat"')
return nil

function landscape()
    winexec('RUNDLL32.EXE PRINTUI.DLL,PrintUIEntry /Sr /n "Seminar" /a "c:\setprnter\Seminar.dat"')
return nil

Otto wrote:http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40145&p=242740&hilit=orientation&sid=1e156c84b09d5a82f13dda3a84ef6cd1#p242740


Silvio, sorry, there is no solution available at the moment.
I use these workarounds.
Best regards,
Otto

Code: Select all  Expand view

function hochformat()
    winexec('RUNDLL32.EXE PRINTUI.DLL,PrintUIEntry /Sr /n "Seminar" /a "c:\setprnter\Seminarhoch.dat"')
return nil

function landscape()
    winexec('RUNDLL32.EXE PRINTUI.DLL,PrintUIEntry /Sr /n "Seminar" /a "c:\setprnter\Seminar.dat"')
return nil

Silvio.Falconi wrote:and wich is the command I not understood

oBrw:Report( 'Stampa elenco ', , , ;
{ |oRep, oBrw | MySetUp( oRep, oBrw, lLandscape ) } )

I not want make report with ziziz zipizizi or another bullshit you did when you saw that I was doing something to print

I ask for a specific thing oBrw:report() <<<<<----------------------

and does not care if the xbrowse report method uses Printbegin()

I asked how do you do it?

Now you are all expert professors, You are all good at doing classes, on the other hand, have remained a donkey and have to suffer your bullying

I saw well that the report method uses PrintBegin() did not have to teach me

I asked you how to do it, I didn't ask you to show me how you do all on your zizizpizi

but every time the same story, every time I ask for something to report or print you answer you put this zizizipizi implying to use your zizizpizi,

now enough it bothered me

But do you think I'm enjoying myself asking for help on the forum? or is it working to solve my problems?

I am tailed by you and someone else just hangs up I insert a topic immediately responding with other topics and with incorrect answers