FiveTech Software tech support forums

... como ejemplo A5 Tambien lo probre con una comandera SAM4S GIANT-100 y tambien con una Brother HL-1200 Con cualquiera que pruebe los comandos oPrn:nHorzRes() y oPrn:nVertRes() me devuelven los valores que tiene la impresora predeterminada que no tiene nada que ver con el pdf que quiero generar ...

... así: TPrinter():lUseHaruPDF := .f. PRINT oPrn PREVIEW FILE "jorge.pdf" oPrn:setpage( 9 ) // tama¤o de papel A4 publ xAncho := ( ( oPrn:nHorzRes() / 25.4 ) / 10 ) //-1 publ xAltocm := ( ( oPrn:nVertRes() / 25.4 ) / 10 ) // -1.5 ? xaltocm, xancho los valores que muestra xAncho y xAltocm ...

... // Width of Bar if !lHorz nWidth :=round ( nWidth * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 ) else nWidth :=round ( nWidth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) end // Len of bar if lHorz nLen :=round ( nLen * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 ) else nLen :=round ...

... // Width of Bar if !lHorz nWidth :=round ( nWidth * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 ) else nWidth :=round ( nWidth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) end // Len of bar if lHorz nLen :=round ( nLen * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 ) else nLen :=round ...

seem a joke..... local nResHoriz := oWnd:nHorzRes() local nResVert := oWnd:nVertRes() where is oWnd ? I don't always have the main window where I can find the oWnd? Such a solution seems strange to me Hi Silvio, you must not take 'oWnd' but take ...

Function test(oWnd) local nResHoriz := oWnd:nHorzRes() // retorna a resolucao horizontal local nResVert := oWnd:nVertRes() // retorna a resolucao vertical ? nResHoriz,nResVert Error occurred at: 01/10/24, 09:01:40 Error description: Error BASE/1004 ...

        nResHoriz := oWnd:nHorzRes() // retorna a resolucao horizontal        nResVert  := oWnd:nVertRes() // retorna a resolucao vertical        // complete...        IF nResHoriz     = 1440 .AND. nResVert = 900 // RESOLUTION...  ...

... <= 0 nAlto := 5 endif xCor := ::oPrinter:Cmtr2Pix( nArriba,nIzq ) yCor := ::oPrinter:Cmtr2Pix( nAncho,nAlto ) IF lPage yCor[1] := ::oPrinter:nHorzRes() - xCor[2]*2 // Restando lo mismo cms para margenes yCor[2] := ::oPrinter:nVertRes() - xCor[1]*2 // ?yCor[2],::oPrinter:nVertRes() ,xCor[1] ...

... evaluate oPrinter to get the Horizontal and vertical values : nRowStep := oPrint:nVertRes() / 55 // pixel per line = 57.65 @ 55 nColStep := oPrint:nHorzRes() /130 // columns I use these values to place the output in specific places within the above range .. and use font pixels to arrange the text ...

... ImprimirFoto( oRsFoto:Fields( "Foto" ):Value ) Function ImprimirFoto(wfoto) PRINT oPrn PREVIEW MODAL PAGE oPrn:SayImage(0,0, wfoto, oPrn:nHorzRes(), oPrn:nVertRes() , nil, .t. ) ENDPAGE ENDPRINT retu .t. No da error, pero muestra una hoja en blanco. Saludos Jorge

... // Set the resolution divided by the standard 8.5x11 inch paper rows/columns nRsp := oPrn:nVertRes() / 68 // Number of rows nCsp := oPrn:nHorzRes() / 85 // Number of columns I've used these for years with success. You can even implement color if you wish. What I haven't tried (yet) is ...

... print to pdf works fine if you use the print viewer .. however, I am doing a lot in this report by using the Printer oPrint:nVertRes() and oPrint:nHorzRes() properties and placing my text on the page in relatively the same position based on what ever printer is used .. I just do not know where ...

... 12/8/2006 7:58 PM - JBott Here are two sets of data from different devices (both for 8.5x11 inch paper). Previously, I assumed that nHorzRes() was the dimension of the paper but it is the printable area of the page. All the vars refer to the printable area except for GetPhySize(). ...

Hola: Sobre el ajuste del gráfico a la página, en mi caso lo he resuelto así: nhz=oprn:nHorzres()-(oprn:nHorzres()/3.0), dándole al jpg el tamaño deseado en horizontal y sin tocar el vertical. El resultado es que yo deseaba. Tengo un prblema extraño que no consigo ...

If i define a pen with DEFINE PEN.... then the width of pen are different in methods fron tPrinter()!

oPrn:Box( nZeile+nPenw/2,nPenw/2,nNextzeile,oPrn:nHorzRes()-nPenw/2, oPen)
oPrn:line(nZeile,linksrand,nZeile,rechtsrand,oPen)