FiveTech Software tech support forums

... SIZE 0, -20 OF oPrn BOLD
DEFINE FONT oFontBig NAME "TAHOME" SIZE 0, -28 OF oPrn BOLD
DEFINE PEN oPen COLOR CLR_BLACK OF oPrn

nRowStep := oPrn:nVertRes() / nHightPage
nColStep := oPrn:nHorzRes() / nWidthPage

IF Empty( oPrn:hDC )

oPrn:end()

MSGINFO( "No hay impresoras instaladas ...

... SIZE 0, -20 OF oPrn BOLD
DEFINE FONT oFontBig NAME "TAHOME" SIZE 0, -28 OF oPrn BOLD
DEFINE PEN oPen COLOR CLR_BLACK OF oPrn

nRowStep := oPrn:nVertRes() / nHightPage
nColStep := oPrn:nHorzRes() / nWidthPage

IF Empty( oPrn:hDC )
oPrn:end()
MSGINFO( "No hay impresoras instaladas...", "Usuario ...

... 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 con una hoja A4

no copio ...

... 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 sin los valores que tiene la impresora predeterminada y no ...

... 1/3 M/mm
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 ...

... 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:
local nResHoriz := oDlg:nHorzRes ...

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
Args:
[ 1] = U ...

nResHoriz := oWnd:nHorzRes() // retorna a resolucao horizontal
nResVert := oWnd:nVertRes() // retorna a resolucao vertical


// complete...

IF nResHoriz = 1440 .AND. nResVert = 900 // RESOLUTION...

DEFINE DIALOG...


ELSEIF nResHoriz = 1366 .AND. nResVert = 768


ELSEIF nResHoriz = 1360 ...

... 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] // Depuracion
ENDIF

IF lImage

* se for jpg

xBmp := timage():define( , ximage ...

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

... tratando de imprimirla así: 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

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

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