Question about TPrinter?
Posted: Wed Mar 26, 2008 6: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 ):
Image when a preview dialog is started:
Image when I'm click on Zoom factor:
Why this visualization is so small???
Thanks for all!!
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
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 I'm click on Zoom factor:
Why this visualization is so small???
Thanks for all!!
