Manual de la clase TPRINT |
TPRINT(ctlibrary)
inicializa la clase y Se le
dice a tprint() que libreria de impresion usar,
ctlibrary= los valores posibles son "HBPRINTER",
"MINIPRINT","DOSPRINT"
,
"EXCELPRINT","RTFPRINT","CSVPRINT","HTMLPRINT","PDFPRINT"
si no se
especifica ningun valor se asume "MINIPRINT"
::init()
inicializa algunas variables
necesarias para cada libreria
::selprinter(lselect,lpreview,llandscape,npapersize,cprinterx)
Inicializa
impresora,
lselect= .T. muestra cuadro de dialogo para
seleccionar impresora
lselect= .F. toma impresora
por defecto
lpreview= .T. muestra preliminar antes
de imprimir
lpreview= .F. no muestra
preliminar
llandscape= .T. impresion
horizontal
llanscape=.F. impresion
vertical
npapersize = tamaņo del papel segun
standares del hbprinter
cprinterx = nombre de la
impresora si se quiere hacer una impresion directa
sin que sea la impresora
por defecto o la seleccione por dialogo.
::begindoc(cname)
Inicia documento
cname= nombre del documento (si no se coloca asume
por defecto
el de la libreria de impresion.
::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()
Empieza una pagina
::printdata(nfila,ncolumna, dato a
imprimir,ctipoletra,ntamaņoletra,lbold
, acolor, calineacion, nancho,
nangulo)
imprime los datos
nfila= fila de impresion
ncolumna = columna de impresion
dato
a imprimir= puede ser de cualquier tipo
ctipoletra = tipo de letra a usar, si no se especifica toma
que la esta en curso
que sera si no se ha especificado otra courier
new.
ntamaņoletra= tamaņo de la letra en
puntos
lbold = .T. negrita
lbold = .F. normal
acolor =
arreglo RGB para darle un color al texto.
calineacion= alineacion del dato "L" izquierda "C" centro
"R" derecha por defecto "L"
nancho= tamaņo del
campo, se debe utilizar cuando se quiere alinear al centro
o a la derecha por
defecto es 15.
nangulo= Angulo del texto (solo
hbprint)
::printimage(nfila,ncol,nfilaf,ncolf,cimagen)
Imprime
una imagen.
nfila = fila de impresion inicial
ncol = columna inicial
nfilaf
= fila final
ncolf = columna final
cimagen = grafico a imprimir
::printline(nfila,ncol,nfilaf,ncolf,atcolor,ntwpen)
imprime
una linea desde hasta
nfila = fila de impresion inicial
ncol = columna inicial
nfilaf
= fila final
ncolf = columna final
atcolor = arreglo RGB del color a usar
ntwpen = ancho del pincel por defecto 1
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
nfila = fila de impresion inicial
ncol = columna inicial
nfilaf
= fila final
ncolf = columna final
atcolor = arreglo RGB del color a usar
ntwpen = ancho del pincel por defecto 1
arcolor= arreglo RGB del color a rellenar el rectangulo
::printroundrectangle(nfila,ncol,nfilaf,ncolf,atcolor,ntwpen)
imprime
un rectangulo esquinas redondeadas
nfila = fila de impresion inicial
ncol = columna inicial
nfilaf
= fila final
ncolf = columna final
atcolor = arreglo RGB del color a usar
ntwpen = ancho del pincel por defecto 1
::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)
dice que unidades
usar por defecto usa ROWCOL aunque internamente todo se
hace en MM para que
sea mas exacto entre varias impresoras.
cunits=
posibles valores "MM" "ROWCOL"
cunitslin=
interlineado, milimetros entre linea y linea (para evitar los renglones en
blanco en excel, rtf, html)
::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