FiveTech Software tech support forums

... default nLen := 0.8 // Cmm. 0.8 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 :=round ( nLen * 10 ...

... * 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 :=round ( nLen * 10 ...

... 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 oPrn:GetPhySize()[1]: 215.900 [ 215.9 mm / 25.4 = 8.5 in ] oPrn:GetPhySize()[2]: 279.400 [ 279.4 mm / 25.4 = 11 in ] ...

... - rightmargins) But How I can found these parameters from Device (oPrinter) directly ? I try with : nLinI := 0.5 nColI := 0.5 nLinF := oPrinter:nVertSize() / 10 - 0.5 nColF := oPrinter:nHorzSize() / 10 - 0.5 but this is right ???

Hola,

METHOD nVertSize()
METHOD nHorzSize()

Ambos te dan el tamaño en pixeles, por lo que si quieres las medidas en mm harias oPrn:nVertSize() * 25.4 / 72 , oPrn:nHorzSize() * 25.4 / 72

... ( pixel ) to center the images doesn*t work for any reason and I had to use fixed tested values. nRow = Max( 0, ( nRow * ::nVertRes() / (::nVertSize() / 25.4 ))-::nYoffset ) nCol = Max( 0, ( nCol * ::nHorzRes() / (::nHorzSize() / 25.4 ))-::nXoffset ) I will check : // SizeInch2Pix is for ...

... brother hl-5350Dn . El problema esta aquí ( en mi caso , codigo en rprinter.prg )          //  nAspect        := ::oDevice:nHorzSize() / ::oDevice:nVertSize()  No sé si es un bug pero a mi no me detecta bien los valores ::odevice:nVertSize() , ::oDevice:nHorzSize() por lo que naspect no es correcto ...

... ) nLeft := Max( 0, apos[2] + ::oprn:nYOffset ) nWidth := oItem:nWidth nHeight := Max( 0, ( oItem:nHeight * ::oPrn:nVertRes() / ::oPrn:nVertSize() ) ) on METHOD PrintSay( oItem ) CLASS RptRun Why I not thinked it about before ? Seba,....Do You have a solution to create labels with MyRpt

Otto, Günther, thanks a lot for your help!!! I've solved the problem. After changing the printer sometimes oPrn:nVertRes(), oPrn:nHorzRes(), oPrn:nVertSize(), oPrn:nHorzSize() were 0 and that lead to a place in my source code, where an out-of-date printer handle was used again. No I make a new ...

Hua,

Maybe these are what you need.

nHeightPixels := Max( 0, ( nHeightInches * oPrn:nVertRes() / (oPrn:nVertSize() / 25.4 )) )
nWidthPixels := Max( 0, ( nWidthInches * oPrn:nHorzRes() / (oPrn:nHorzSize() / 25.4 )) )

Regards,
James

... ) return nil endif do case case ! ::lTwoPages if ! ::lZoom if ::oDevice:nHorzSize() >= ; // landscape (apaisado) // DEVICE ::oDevice:nVertSize() nFactor := .8 // .4 else nFactor := .40 // .25 endif else nFactor := .47 endif if ::oWnd != nil nWidth = ::oWnd:nWidth() - If( ::lZoom, ...

... cFileName ) nZoom:=oBmp:Zoom() anchura:=oBmp:nWidth()*nZoom altura :=oBmp:nHeight()*nZoom nRatAncho := 3.80 nRatAlto := 3.80 nXr := nXR/oPrn:nVertSize() // se crea asi factor de normalizacion nXC := nXC/oPrn:nHorzSize() // p q funcione igual en otras impresoras nX := oPrn:nVertRes()/oPrn:nHorzRes() ...

... nMetaWidth if IsIconic(oWnd:hWnd) RETU nil endif DO case case ! lTwoPages if ! lZoom if DEVICE:nHorzSize() >= ; // landscape (apaisado) DEVICE:nVertSize() nFactor := .8 // .4 else nFactor := .40 // .25 endif else nFactor := .47 endif nWidth = oWnd:nWidth() - If( lZoom, 20, 0 ) nHeight = oWnd:nHeight() ...

... :=15// 1.5 // Cmm. define brush oBr color nColor // Width of Bar if !lHorz nWidth :=round ( nWidth ,0 ) //* 10 ,0 )//* oPrint:nVertRes() / oPrint:nVertSize() ,0 ) else nWidth :=round ( nWidth ,0 ) //* 10 ,0 )//* oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) end // Len of bar if lHorz nLen :=round ...

... nMetaWidth if IsIconic(oWnd:hWnd) RETU nil endif DO case case ! lTwoPages if ! lZoom if DEVICE:nHorzSize() >= ; // landscape (apaisado) DEVICE:nVertSize() nFactor := .8 // .4 else nFactor := .40 // .25 endif else nFactor := .47 endif nWidth = oWnd:nWidth() - If( lZoom, 20, 0 ) nHeight = oWnd:nHeight() ...