FiveTech Software tech support forums

... := 0.8 // Cmm. 0.8 * default nLen := 1.5 // Cmm. define brush oBr color nColor // 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 ...

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 your dialog: ...

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 No exported method: NHORZRES ...

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

... 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] // Depuracion ENDIF IF lImage * se for jpg xBmp := timage():define( , ximage ,::oPrinter ...

... is oPrinter getting its values ... In the attached program .. I 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 ...

... "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

... nCsp are determined by the orientation and papersize: // 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 ...

... report I am trying to 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 ...

... to the printable area except for GetPhySize(). oPrn:cModel: HP DeskJet 420,winspool,LPT1: oPrn:nHorzRes(): 2400 [2400/300 dpi = 8 inches] oPrn:nVertRes(): 3025 [3025/300 dpi = 10.1 inches] oPrn:nLogPixelx(): 300 oPrn:nLogPixely(): 300 oPrn:nXOffset: 75 oPrn:nYOffset: 75 oPrn:nHorzSize() : 203 ...

... ELSE FICHE2="FINFOT.JPG" ENDIF IF BASE="FOTOS" cz=oprn:nHorzRes()/80 lz=oprn:nVertRes()/60 ENDIF nhz=oprn:nHorzres()-(oprn:nHorzres()/3.0) PAGE if file(fiche1) oImage:LoadBmp( fiche1 ) oPrn:SayImage(ln,13.3*cz, oImage,nHz,) Endif ...

... Thanks for understanding and we highly appreciate your cooperation. I make a pen with "DEFINE PEN oPen1 WIDTH max(1,(max(oPrn:nHorzRes(),oPrn:nVertRes())/1800))" Instead please use DEFINE PEN oPen WIDTH nWidth OF oPrn  // FWH1909  This will accurately translate the width to ...

... But a other thing is the pen in oPrint:box() and oPrint:roundbox(). I make a pen with "DEFINE PEN oPen1 WIDTH max(1,(max(oPrn:nHorzRes(),oPrn:nVertRes())/1800))" with exact pixels. In the METHOD ParamPen(..) you use   case cType == "O" .AND. anoPen:IsKindOf( "TPEN" ...

... NAME "arial" SIZE 0,-10 OF olis DEFINE FONT oFont1 NAME "arial" SIZE 0,-12 bold OF olis DEFINE PEN oPen1 WIDTH 1 nsalto:=olis:nVertRes() / 65 // Renglones ncolum:=olis:nHorzRes() / 80 // Columnas xhoja:=0 xmarca:=0 PAGE T01001() texto1:=1->texto line_cnt:=mlcount(texto1,105) ...

... si ya tengo los EMF imagenB e ImagenC, no quiero incluirlos en el prg de impresion como oPrn:SayImage(0,0,'OrdenTras,EMF', oPrn:nHorzRes(), oPrn:nVertRes()-150 , NIL, .t. ) no se si esto haga lenta la generacion de previow.