Print a Box with fwh

[Silvio.Falconi]

..

[Silvio.Falconi]

..

[Otto]

Hello Silvio,
I think what you are looking for is exactly what I showed you with my HTML report.
But you are not interested in the HTML solution, am I still right?

Best regards,
Otto

https://mybergland.com/fwforum/silviorep.png

[Silvio.Falconi]

..

[Otto]

Hello Silvio,
This is not mod harbour. It is / i zi pi zi / my new report for FIVEWIN.
Best regards,
Otto

HTML Report - is there a reason nobody cares?
viewtopic.php?f=3&t=40694&hilit=report&start=15

[Silvio.Falconi]

Hello Silvio,
This is not mod harbour. It is / i zi pi zi / my new report for FIVEWIN.
Best regards,
Otto

HTML Report - is there a reason nobody cares?
viewtopic.php?f=3&t=40694&hilit=report&start=15

once again I really don't understand why you insist?

this is not helping

I ask how do you make a box in print and you answer with html and mod harbor but I asked you how to do it in html or with mod harbor?

because in the meantime everyone will say that I am rude and that I ask for help and answer badly

but if I ask the forum for example

"how can I fix my scooter?"

and you answer me that it is better to buy an electric car

does it seem the same to you?

[Marc Venken]

in the print routine :


mybox(5.4,0.75,8.5,9,5)

Code: Select all  Expand view  RUN

function Mybox(Ptop,Pleft,PBottom,PRight,nPen)
   local aRect,aRect1
   default nPen:= 2
   define Pen oPen WIDTH nPen
   aRect  = oPrn:Cmtr2Pix( pTop,pLeft )
   aRect1 = oPrn:Cmtr2Pix( pBottom,pRight )
   oPrn:Box(aRect[1],aRect[2],aRect1[1],aRect1[2],oPen)
   oPen:end()
return nil
 

[Silvio.Falconi]

in the print routine :


mybox(5.4,0.75,8.5,9,5)

Code: Select all  Expand view  RUN

function Mybox(Ptop,Pleft,PBottom,PRight,nPen)
   local aRect,aRect1
   default nPen:= 2
   define Pen oPen WIDTH nPen
   aRect  = oPrn:Cmtr2Pix( pTop,pLeft )
   aRect1 = oPrn:Cmtr2Pix( pBottom,pRight )
   oPrn:Box(aRect[1],aRect[2],aRect1[1],aRect1[2],oPen)
   oPen:end()
return nil
 

I used sample

I use the new Box of printer class made by Nages

oPrn:Box(nRow, nCol, nRow + nHeight, nCol + nWidth, ,,, "CM" )

with no problem

If you wish use your function I have a new relase

Code: Select all  Expand view  RUN

Function FormBox(Ptop,Pleft,PBottom,PRight,oPrn,nType,nColor,nPen)

   local oPen
   local aDes :=array(2)
   local aHas:=array(2)
 

   default nColor:=CLR_HGRAY
   default nPen:= 2

   Define Pen oPen WIDTH nPen COLOR nColor


            aDes  = oPrn:Cmtr2Pix( pTop,pLeft )
            aHas = oPrn:Cmtr2Pix( pBottom,pRight )


         
       IF nType==1     // box
               oPrn:Box(aDes[1],aDes[2],aHas[1],aHas[2])

            elseif nType==2   //line Horiz
               oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2])

            elseif  nType==3   //line vert
               oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2])

             elseif  nType==4   //Box round
                oPrn:RoundBox(aDes[1],aDes[2],aHas[1],aHas[2], 70, 70, ,  )
                //RoundBox( nRow, nCol, nBottom, nRight, nWidth, nHeight, oPen, nBGColor, aText, cUnits )
             

               elseif  nType==5   //Box con bacground

                oPrn:Box(aDes[1],aDes[2],aHas[1],aHas[2],oPen,nColor)
                //Box( nRow, nCol, nBottom, nRight, anoPen, noBrush, aText, cUnits )

           endif

     oPen:end()

return nil

I print my invoice with these function