Imprime un texto en formato RTF en un área rectangular. La impresión no se inicia (sólo
iEndPrinting se puede utilizar para iniciar la impresión).
iPrintZoneRTF(RTFText, 0, 0, dHeight, 200)
Sintaxis
<Result> = iPrintZoneRTF(<RTF text> , <X1> , <Y1> , <X2> , <Y2> [, <Start> [, <End>]])
<Result>: Integer
Número de caracteres impresos en el área rectangular. Si se imprimió todo el texto, <Result> corresponde al tamaño de <RTF text>.
<RTF text>: Character string
Cadena de caracteres en formato RTF que se imprimirá en un área específica.
<X1>: Real
Coordenada horizontal de la esquina superior izquierda del área de impresión (en milímetros).
Valor incluido entre 0 y el ancho de página (devuelto poriPageWidth).
<Y1>: Real
Coordenada vertical de la esquina superior izquierda del área de impresión (en milímetros).
Valor incluido entre 0 y la altura de la página (devuelto poriPageHeight).
<X2>: Real
Coordenada horizontal de la esquina inferior derecha del área de impresión (en milímetros).
Valor incluido entre 0 y el ancho de página (devuelto poriPageWidth).
<Y2>: Real
Coordenada vertical de la esquina inferior derecha del área de impresión (en milímetros).
Valor incluido entre 0 y la altura de la página (devuelto poriPageHeight).
<Start>: Optional integer
Índice del primer carácter en el texto <RTF text> para imprimir. Si no se especifica este parámetro, el <RTF text> se imprime desde el primer carácter.
<End>: Optional integer
Índice del último carácter en el texto <RTF text> para imprimir. Si no se especifica este parámetro, el <RTF text> se imprime hasta el último carácter.
Observaciones
Impresión de un texto RTF justificado
Para imprimir un texto con
iPrintZoneRTF mientras se mantiene su justificación,
iParameter debe utilizarse previamente de la siguiente manera:
iParameter("RTFJustification=Yes")
Si se utilizan los parámetros utilizados para dividir el texto RTF (<Start> y <End>), se almacenará el texto de justificación del texto.
Impresión de un texto RTF que contiene saltos de página
El siguiente código imprime un texto RTF que contiene saltos de página programados:
// Displays the preview window
iPreview()
// Convert the text
sText is string = RTFToText(EDT_EditText)
// Text size
nTextSize is int = Length(sText)
// Delete the number of page breaks to the size of the text
nTextSize -= StringCount(sText, Charact(12))
// CR must correspond to one single character
nTextSize -= StringCount(sText, Charact(13))
// Loop on all the pages
nStart is int
nSize is int = -1
LOOP
// Prints the page
nStart = nSize + 1
nSize = iPrintZoneRTF(EDT_EditText, 0, 0, iPageWidth(), iPageHeight(), nStart, -1)
// Skips the page if other pages are found
IF nSize < nTextSize AND nSize > nStart THEN
iSkipPage()
END
TO DO WHILE nSize < nTextSize AND nSize > nStart
// End of print
iEndPrinting()
Impresión de un texto RTF
Para que iPrintZoneRTF para funcionar, "RICHED20.DLL" debe encontrarse en el ordenador actual.
En la mayoría de los casos, el archivo "RICHED20.DLL" se encuentra en el directorio de sistema de Windows.
Componente : wd240prn.dll