FiveTech Software tech support forums

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

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

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

... 27.4 -----> (27.9 -bottommargins)
nColF := 20.8 -----> (21.3 - 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

... Text-labelwidth OK
nLablWidth := aODat[70]
// Image-labelwidth to long
nImgWidth := Max( 0, ( aODat[70] * oPRINT:nHorzRes() / (oPRINT:nHorzSize() / 25.4 )) - oPRINT:nXoffset )

FUNCTION P_REPORT4( oMeter, oText, oDlg )LOCAL aPoint LOCAL oPRINT, oFont1, oFont2, oFont3, oPen1LOCAL ...

... 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 converting width and height
METHOD SizeInch2Pix( nHeight, nWidth ) CLASS ...

... a mi con una impresora concreta : una 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 ...

... 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 handle and it works ...

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

... nMetaWidth

if ::oWnd != nil .and. IsIconic( ::oWnd:hWnd )
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 ...

... BOLD ITALIC
DEFINE FONT oFonSpec NAME 'Arial' SIZE 6, 13 OF oPrn

nLf *= oPrn:nVertRes()/70 // Ponemos 70 lineas para la pagina
nLc *= oPrn:nHorzSize()/80 // de imagen, y 80 columnas


nColumnas := INT( oPrn:nHorzRes() / 80 * 3 )
// en los BMPs 3 columnas libres de margen izq., para un total ...

... DEVICE:aMeta
local nWidth, nHeight, nFactor, 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 ...

... 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 ( nLen ,0 ) //* 10 ,0 )//* oPrint:nVertRes() / oPrint:nVertSize() ,0 )
else
nLen :=round ...

... aMeta
local nWidth, nHeight, nFactor, 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 ...