Manual de la clase TPRINT
TPRINT(ctlibrary)
inicializa la clase y se indica a tprint() que libreria de impresion usar.
::init()
inicializa algunas variables necesarias para cada libreria
::selprinter(lselect,lpreview,llandscape,npapersize,cprinterx,nres,nWidth,nHeight)
Inicializa impresora
::begindoc(cname)
Inicia el documento
::setpreviewsize()
setea el tamaño del preview para hbprinter , valores pueden ser 1 menor , 2 mas grande, 3 mas grande etc.. (no tiene efecto para las demas librerias)
::beginpage(nWidth,nHeight)
Empieza una pagina
::setfont(cfont,nsize,acolor,lbold,litalic)
Establece la fuente y sus parametros por defecto
::printdata(nfila, ncolumna, datoaimprimir, ctipoletra, ntamañoletra, lbold, acolor, calineacion, nancho, nangulo, litalic)
imprime los datos
::printimage(nfila,ncol,nfilaf,ncolf,cimagen)
Imprime una imagen
::printline(nfila,ncol,nfilaf,ncolf,atcolor,ntwpen)
imprime una linea (desde hasta)
nota: si es DOS solo la imprime si la linea inicial es igual a la final
::printrectangle(nfila,ncol,nfilaf,ncolf,atcolor,ntwpen,arcolor)
imprime un rectangulo
::printroundrectangle(nfila,ncol,nfilaf,ncolf,atcolor,ntwpen)
imprime un rectangulo esquinas redondeadas
::setcolor(atcolor)
setea el color en curso a un nuevo valor, el parametro sera un arreglo RGB.
::getdefprinter()
obtiene la impresora por defecto
::setunits(cunits,cunitslin)
se indica las unidades, por defecto usa ROWCOL aunque internamente todo se hace en MM para que sea mas exacto entre varias impresoras.
::endpage()
Finaliza una pagina
::enddoc()
Termina un documento
::release()
libera la clase
::version()
Devuelve la version de Tprint actual
::setlmargin()
Setea el margen izquierdo
::settmargin()
Setea el margen superior

Todos los parametros de todos los metodos son opcionales.


 

NOTA:
Si se desea utilizar una propiedad exclusiva de una libreria sin que nos de error
con el resto de librerias, se puede utilizar de la siguiente forma:

ejemplo asignar el largo y ancho de la hoja para MINIPRINT

IF ::cprintlibrary="MINIPRINT"
SELECT PRINTER DEFAULT ORIENTATION PRINTER_ORIENT_LANDSCAPE PAPERLENGTH 2970 PAPERWIDTH 2100 COPIES 5
ELSE
oprint:selprinter(.F. , .F. , .F. , , )
ENDIF

ejemplo utilizar la propiedad STRETCH de IMAGE en MINIPRINT

IF ::cprintlibrary="MINIPRINT"
@ 20,20 PRINT IMAGE FOTO3 WIDTH 150 HEIGHT 190 STRETCH
ELSE
oprint:printimage(20,20,150,190,FOTO3)
ENDIF

ejemplo utilizar la propiedad EXTEND de PICTURE en HBPRINT

IF ::cprintlibrary="HBPRINT"
@ 20,20 PICTURE FOTO3 SIZE 65,85 EXTEND 150,190
ELSE
oprint:printimage(20,20,150,190,FOTO3)
ENDIF