Manual de la clase TPRINT

Documentación y referencia para impresión en Harbour MiniGUI

TPRINT(<ctlibrary>)
Inicializa la clase y define la librería de impresión a usar.
  • Valores posibles para ctlibrary: "HBPRINTER", "MINIPRINT", "DOSPRINT", "EXCELPRINT", "RTFPRINT", "CSVPRINT", "HTMLPRINT", "PDFPRINT".
  • Por defecto, si no se especifica, se usa "MINIPRINT".
::init()
Inicializa variables para la librería seleccionada.
::selprinter(lselect, lpreview, llandscape, npapersize, cprinterx, nres, nWidth, nHeight)
Configura la impresora con las opciones indicadas.
  • lselect: .T. muestra diálogo para seleccionar impresora; .F. usa la impresora por defecto.
  • lpreview: .T. muestra vista previa; .F. no muestra.
  • llandscape: .T. impresión en horizontal; .F. vertical.
  • npapersize: tamaño del papel según HBPrinter.
  • cprinterx: nombre de la impresora para impresión directa.
  • nres: calidad de impresión.
  • nWidth y nHeight: ancho y alto de la página (solo HBPrinter y MiniPrint).
::printdata(nfila, ncolumna, datoaimprimir, ctipoletra, ntamañoletra, lbold, acolor, calineacion, nancho, nangulo, litalic)
Imprime datos con las características indicadas.
  • nfila: fila de impresión.
  • ncolumna: columna de impresión.
  • datoaimprimir: dato a imprimir.
  • ctipoletra: tipo de letra (por defecto Courier New).
  • ntamañoletra: tamaño de letra en puntos.
  • lbold: .T. negrita; .F. normal.
  • acolor: arreglo RGB para color del texto.
  • calineacion: alineación ("L", "C", "R").
  • nancho: ancho del campo para alineación (default 15).
  • nangulo: ángulo del texto (solo HBPrint).
  • litalic: cursiva.

NOTA: Para usar propiedades específicas de una librería sin errores, condicione el código según la librería activa:

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

Ejemplo uso de propiedad STRETCH en IMAGE para MINIPRINT:

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

Ejemplo uso de propiedad EXTEND en PICTURE para HBPRINT:

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