ayuda tprinter forma continua

[Francisco Horta]

Por cuestion de graficas tengo que usar tprinter en un pdv en miniprinter epson; uso tdosprn sin problemas, pero ahora quiero usar tprinter, mi pregunta es:
Como indicar con tprinter el papel de forma continua y no salte pagina?
alguien que me pueda echar una mano.....

salu2
paco

[horacio]

Francisco: para utilizar papel continuo debes configurar la página desde la impresora. Lo demás es fácil si utilizaste TPrinter. Espero te sirva
saludos

[Ramon Paredes]

Francisco, asi lo uso y si problemas no hay salto de pagina

PRINT oPrn PREVIEW

DEFINE FONT oFont NAME "Times New Roman" SIZE 0, -11 of oPrn
DEFINE FONT oFont1 NAME "Times New Roman" SIZE 0, -10 of oPrn

oPrn:Setsize(190*10,186*10)

SELECT A
DO WHILE .NOT. EOF()
INUM = A->NUM_DOC
PAGE

oPrn:CmSay( 2.2,13,+dtoc(A->FEC_DOC),oFont)
oPrn:CmSay( 2.9,4,+ALLTRIM(A->Benefi),oFont)
oPrn:CmSay( 2.9,15.5,+transform(A->VALOR,"99,999,999.99"),oFont)
oPrn:CmSay( 3.8,4,+A->Detalle,oFont)
oPrn:CmSay( 9.2,2,+A->DESC1,oFont1)
oPrn:CmSay( 9.7,2,+A->DESC2,oFont1)
SELECT b
IF DbSeek(iNum)
store 0 to gini,gdeb,ghab,gfin
mLinea = 11.7
DO WHILE b->Num_Doc = iNum
oPrn:CmSay(mLinea,2,+OemToAnsi(alltrim(b->NOMBRE)),oFont1)
oPrn:CmSay(mLinea,11,+B->Codigo,oFont1)
oPrn:CmSay(mLinea,14,+Transform(b->DEBE,"@Z 999,999,999.99"),oFont1)
oPrn:CmSay(mLinea,17,+Transform(b->HABER,"@Z 999,999,999.99"),oFont1)

gdeb = gdeb + b->debe
ghab = ghab + b->haber
skip
mLinea = mLinea + 0.5
ENDDO
ENDIF
mLinea = mLinea + 1
oPrn:CmSay(mLinea,2,"Totales ",oFont)
oPrn:CmSay(mLinea,14,+transform(gdeb,"999,999,999.99"),oFont1)
oPrn:CmSay(mLinea,17,+transform(ghab,"999,999,999.99"),oFont1)
SELECT A
ENDPAGE
SKIP
ENDDO
ENDPRINT

oFont:End()
oFont1:End()

CLOSE MOVCK
CLOSE DETCK

RETURN NIL

esta es una rutina desde donde imprimo cheques en forma continua y el tamaño es especial.

Ramon Paredes
Managua, Nicaragua

[Francisco Horta]

Gracias a ambos, hare algunas pruebas
salu2
paco