FiveTech Software tech support forums

... 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 mm = 8.0 in oPrn:nVertSize() : 256 mm = 10.1 in ...

... oBr color CLR_YELLOW define font oFont name 'ARIAL' size 0, -12 of oPr define font oFont1 name 'ARIAL' size 0, -10 of oPr rescoluna:=oPrinter:nlogpixelx()/2.54 reslinha:=oPrinter:nlogpixely()/2.54 *if msgyesno ("Imprime Codigo de trazabilidad ","Trazabilidad Compras") store ...

... ER I use that my app I saw you at sillian but this afternoon perhaps I found a solution oPrinter := TPrinter():New( ...... ) nLogPixX := oPrinter:nLogPixelX() / 2.54 ( centimetres) nLogPixY := oPrinter:nLogPixelY() / 2.54 nLeftMargin := Int( nLogPixX * 0.5 ) nRightMargin := Int( nLogPixX * 0.5 ...

If you use msginfo( oprn:nLogPixelX() ) at the beginning of the print job ,you will see that the printer have different value for ppp . I have seen values for different printers ( 300, 600, 1200 px ) in my tests . if your image have 300px ...

Mr. Nages .I will try to create a compact example for this. Return ( nRow * 25.4 / ::nLogPixelX() ) / 10 Should we not adjust the oPrn:yOffSet ? He has been taken of the code : METHOD Pix2Cmtr( nRow, nCol ) INLINE ; ( nRow := ( nRow * 25.4 / ::nLogPixelX() ) / 10,; ...

... lStretch did not work? Did you want to print the image from edge to edge of the paper? Any suggestion or advice from you? Return ( nRow * 25.4 / ::nLogPixelX() ) / 10 Should we not adjust the oPrn:yOffSet ?

... } ( test version 2 ) it works. oRepo:bStartRecord := { || oRepo:box( oRepo:nRow / oRepo:oDevice:nLogPixelY, oRepo:nMargin/oRepo:oDevice:nLogPixelX, ( oRepo:nRow + oRepo:nStdLineHeight) / oRepo:oDevice:nLogPixelY, RightMargin( oRepo ) / oRepo:oDevice:nLogPixelX , 1 ) } works with cutepdf ...

... } ( test version 2 ) it works. oRepo:bStartRecord := { || oRepo:box( oRepo:nRow / oRepo:oDevice:nLogPixelY, oRepo:nMargin/oRepo:oDevice:nLogPixelX, ( oRepo:nRow + oRepo:nStdLineHeight) / oRepo:oDevice:nLogPixelY, RightMargin( oRepo ) / oRepo:oDevice:nLogPixelX , 1 ) } works with cutepdf ...

... else cModel := oPrn:GetModel() // impresora elegida por el usuario endif if vtippap == 1 ...parametros y variables para tdosprn else if oPrn:nLogPixelX() <= 100 // matriz de puntos mini if alltrim(UPPER(cModel)) != alltrim(UPPER(CMIIMPREDEFAULT)) // impresora 2 = en archivo cmodel es la ...

... BENDEZU CUADROS" aCoord = oPrn: Cmtr2Pix (29.7, 21) nfilpix: = int (aCoord [2] / 2) / / middle row of pixels nfilmm = nfilpix * 25.4 / oPrn: nLogPixelX () / / convert pixels to mm nfilcm = nFilmm/10 / / convert the mm to cm. PAGE oPrn: CmSay (nfilcm, 1, cCad1, oFont,,, 0) Do I need to find ...

... BENDEZU CUADROS" aCoord:= oPrn:Cmtr2Pix( 29.7, 21 ) nfilpix:=int(aCoord[2]/2) // mitad de fila en pixeles nfilmm:= nfilpix * 25.4 / oPrn:nLogPixelX() // convierto los pixeles en mm nfilcm := nFilmm/10 // convierto los mm en cm. PAGE oPrn:CmSay(nfilcm,1,cCad1, oFont,,,0) ¿Me falta hallar ...

... inches. So you need to get the pixels per inch from oPrinter. Try this: nPWid:= 4 // in inches nPHgt:= 6 // in inches oPrinter:SetSize( oPrinter:nLogPixelx() * nPWid, oPrinter:nLogPixely() * nPHgt ) James

... oFont1 name "Courier New" size 0,-10 of oPrn oFont:Activate(oPrn:hDC) oFont1:Activate(oPrn:hDC) nRd := oPrn:nLogPixelY/6 nCd := oPrn:nLogPixelX/10 nCd1 := oPrn:nLogPixelX/15 lDate := FALSE oInvc:Select() oInvc:SetOrder('CODE') oInvc:Top() cCode := oInvc:code CalcDays(aDates) // for ...

... printer and paper. You have to compensate by calculating the actual distances. These print device properties return the pixels per inch: oRpt:oPrn:nLogPixelx(): 300 pixels per inch horizontal oRpt:oPrn:nLogPixely(): 300 pixels per inch vertical So, if you are doing nRow + 100 (pixels) that is 100/300 ...

... no xHarbour q. faça isso q. vc quer mas ela ainda apresenta problemas como por exemplo JATO DE TINTA EPSON STYLUS C79 em modo economico oPrn:nLogPixelX () = 120 e isso ira te trazer problemas pos uma matricial MATRICIAL EPSON LX 300 oPrn:nLogPixelX () = 240 X 144 maior q. a jato de tintas ...