FiveTech Software tech support forums

... cMensaje := left(CliFor->RazonSoc,15) oMensaje:Refresh() //msginfo(str(Clifor->Codcliente,4),'Cliente') if prow == 0 prow+=nrowstep oPrn:Say(prow, pcol*4 ,'Fecha de Emisión: ' + dtoc( date() ),oCour_n_10) ...... prow+=nrowstep*1.5 endif select DetVtaF DetVtaF->(DbGoTop()) ...

... a Printer .. where 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 ...

... aca te paso un sample de lo que estoy haciendo aver si a vos te funciona ! asi llamo a la funcion del codigo QR desde la rutina de impresion nRow+=nRowStep oPrn:say(nRow,nMargen, replicate('-',45),oFont1) nRow+=nRowStep //..Genera QR llamando a TcodeBars ) BuildQR(oPrn, nRow,nMargen ,cCodBar ) ...

Hola. Aqui, otro ejemplo:
//-----------------------------------------------------------------
Function Linea(nLin1,nCol1,nLin2,nCol2,oPrn,oPen1,nRowStep,nColStep)
oPrn:Line(nLin1*nRowStep, nCol1*nColStep,nLin2*nRowStep,nCol2*nColStep,oPen1)
return nil

Saludos.

Please place this call before:

MsgInfo( oPrn:nVertRes() )
nRowStep = oPrn:nVertRes() / 60 // We want 60 rows

so we know the vertical resolution of the printer

Please place this call before:

MsgInfo( oPrn:nVertRes() )
nRowStep = oPrn:nVertRes() / 60 // We want 60 rows

so we know the vertical resolution of the printer

Por favor cambia esta línea y comprueba el resultado:

nRowStep = oPrn:nVertRes() / 60

cambia 60 por 50, ó 40, y veamos como afecta al resultado

... Memoread Testprn5.prg por testxbr3.prg que es mas grande. local oPrn, cText := MemoRead( "testxbr3.prg" ), n := 0,nlines,nRow:= 0 local nRowStep, oFont PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "Courier New" SIZE 0, -10 OF oPrn nRowStep = oPrn:nVertRes() / 40 PAGE IF !Empty(cText) ...

... cambie en el Memoread Testprn5.prg por testxbr3.prg que es mas grande. local oPrn, cText := MemoRead( "testxbr3.prg" ), n := 0 local nRowStep, oFont PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "Courier New" SIZE 0, -10 OF oPrn nRowStep = oPrn:nVertRes() / 40 PAGE while n ...

... //vertical DEFINE FONT oFont1 NAME "Arial" SIZE 0, -08 OF oPrn BOLD DEFINE FONT oFont2 NAME "Arial" SIZE 0, -10 OF oPrn nRowStep := oPrn:nVertRes() / 66 // LINEAS nColStep := oPrn:nHorzRes() / 80 // COLUMNAS While !eof() PAGE nRow:=nRowStep*8 oPrn:Say( nRow, nColCentro, ...

... nAnchPapel, nAltoPapel ) PRINT oPrn NAME "Factura" oPrn:SetPortrait() DEFINE FONT oFont NAME "Arial" SIZE 0, -10 OF oPrn nRowStep := oPrn:nVertRes() / nLinHoja //60 // LINEAS nColStep := oPrn:nHorzRes() / 70 // COLUMNAS Saludos

... esta función que encontré por acá. //NUMERAR PAGINAS CON TPRINTER //--------------------------------------------- Function NumeraPag(oPrn,oFont,nRowStep,nColStep) Local x Local nPaginas := Len( oPrn:aMeta ) Local aFicheros := oPrn:aMeta Local nCol := 70*nColStep Local nLin := 64*nRowStep if ...

... := .t., n, nFont, aText, cLinea, cIni, nIni local cTx2, cMemo := MemoRead( CFGAYUDA ), nWidth, nWidMemo local nLenFonts := Len( oGet:aFonts ), nRowStep local aFonts := Array( nLenFonts ), nLen, nChar, cEdit, cTc, cT local cLineText, bEvalWidt, cTextForm := oGet:GetTextLine( oLine ) local aVar ...

... nAncho, nCar, nC, cTx2, cVal := "" local nRow := 0, nRowNw := 0 local nCol := 0, nI := 0 local nWidth //, oLin := oGet:oLineInit local nRowStep local oLine := oGet:oLineInit local cText, cMemo := MemoRead( CFGAYUDA ), nWEdit := Eval({|| oGet:nWidth }) local oFontW, nFont, oFont2, nMargend ...

... nAncho, nCar, nC, cTx2, cVal := "" local nRow := 0, nRowNw := 0 local nCol := 0, nI := 0 local nWidth //, oLin := oGet:oLineInit local nRowStep local oLine := oGet:oLineInit local cText, cMemo := MemoRead( CFGAYUDA ), nWEdit := Eval({|| oGet:nWidth }) local oFontW, nFont, oFont2, nMargend ...