topic-10493

Posts: 445

Joined: Thu Feb 21, 2008 11:58 AM

Question about TPrinter?
Posted: Wed Mar 26, 2008 06:34 PM

Hi my friends.... I have a new question for us!

When I'm preview a report.... with this configurations, I get the following images of a preview window under...

PS.: The square in the report should be occupying the whole area of the paper (A4)

The configurations ( the code is incomplete, but this the same ):

Code: Select all Collapse

oReport := PrintBegin( "Print Doc", .T., .T., , .T., .T. )

oReport:setFont(  )
oReport:SetSize( 800, 600 )
oReport:SetPage( 9 ) // A4 210 x 297 mm

IF EMPTY( oReport:hDC )
   MsgStop( "Printer is not avaiable!", "Attention!" )
   RETURN .F.
ENDIF

oPen:= TPen():New( , , , oReport )

oReport:StartPage()
nLinha := 0

oReport:Box( nLinha, 0, nMaximaLinha, 1810, oPen )

nLinha += 5
oReport:Say( nLinha, 10, "sample", TFont():New( "Arial", 20, 40,, .T. ), , CLR_BLACK, , , )

nLinha += 50
oReport:Box( nLinha, 12, nMaximaLinha - 15, 1800, oPen )

oReport:EndPage()

printEnd()

Image when a preview dialog is started: