oPrn:DraftMode( )

oPrn:DraftMode( )

Postby Bayron » Sat Jun 30, 2012 12:10 am

Tratando de usar esta funcion, al parecer está algo mal....

Cuando la activo, me dibuja oPrn:Box y oPrn:RoundBox como 4 veces mas grande.. solamente Horizontalmente
El Brush se aumenta en los cuatro lados...

Code: Select all  Expand view
#include "FiveWin.ch"

#define DMPAPER_LETTER 1 // Letter 8 1/2 x 11 in

Function Main()
    Reporte1()
Return NIL

Function Reporte1()
    LOCAL nHeight, nWidth
    LOCAL AvailHeight, AvailWidth
    LOCAL nLeftMargin, nTopMargin, nRightMargin, nBottomMargin
    LOCAL nHeaderHeight, nFooterHeight
    LOCAL oBrush, oPen
       
    PRINT oPrn NAME "PEDIDO DE VENTA" PREVIEW
        oPrn:SetPage(DMPAPER_LETTER)
        oPrn:DraftMode( .t. )

        nHeight := oPrn:nVertRes()
        nWidth  := oPrn:nHorzRes()
       
        nLeftMargin    := ( nWidth / 17 )
        nRightMargin   := ( nWidth - nLeftMargin )
        nTopMargin     := ( nHeight / 22 )
        nBottomMargin  := ( nHeight - nRightMargin )
       
        nAvailHeight   := ( nHeight - ( nTopMargin + nBottomMargin ) )
       
        nRowStep = oPrn:nVertRes() / 66  
        nColStep = oPrn:nHorzRes() / 80  
       
        prow:=nRowStep
        pcol:=nColStep
       
        PAGE
            define brush oBrush color nRGB( 204, 255, 153 )
            DEFINE PEN oPen STYLE 0 WIDTH 8 COLOR CLR_GRAY
           
            oPrn:Box(  prow , nLeftMargin , prow + 1000 , nRightMargin , oPen, nRGB(220,220,220) )
        oPrn:EndPage()
       
    ENDPRINT
   
Return nil
 
 
 
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Return to Bugs report & fixes / Informe de errores y arreglos

Who is online

Users browsing this forum: No registered users and 3 guests