Print Data

[arroya2]

Hola amigos.
Necesito imprimir un documento con diversos campos de una base de datos.
Para ello utilizo la orden:
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow, <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ ITALIC ]
[ UNDERLINE ]
[ STRIKEOUT ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]
[ ANGLE <nAngleInDegrees> ]

Previamente almaceno en una variable de texto el contenido que voy a imprimir, porque debe tener una cierta extructura.
En esta variable voy encadenando los datos de l siguiente forma:
'D. '+Clientes->Nombre+' residente en '+Clientes->Direccion+', con numero de DNI '+Clientes->DNI
Mi problema es que los datos pueden tener una extensión diferente, dependiendo de cada registro y necesito subrayar o poner en negrita algunos campos.
La orden me permite subrayar o poner en negrita todo el texto y no una parte de él.
¿Cómo podría hacerlo?
Gracias
Un saludo

Rafael Pérez


Hello friends.
I need to print a document with different fields from a database.
For this I use the command:
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow, <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ ITALIC ]
[ UNDERLINE ]
[ STRIKEOUT ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]
[ ANGLE <nAngleInDegrees> ]

Previously I store the content that I am going to print in a text variable, because it must have a certain structure.
In this variable I am chaining the data in the following way:
'Mr. '+Clients->Name+' resident in '+Clients->Address+', with DNI number '+Clients->DNI
My problem is that the data can have a different extension, depending on each record and I need to underline or bold some fields.
The command allows me to underline or bold all the text and not a part of it.
How could I do it?
Thank you
A greeting

Rafael Pérez

[franco]

Are you printing a list of names, or are you printing a header of client name the a letter or message after the header on different pages.

[SALINETAS24]

Hola amigos.
Necesito imprimir un documento con diversos campos de una base de datos.
Para ello utilizo la orden:
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow, <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]

.... / .....

Rafael Pérez

Hola Rafael,

Eso que quieres hacer me da que es casi imposible, podrías hacerlo con varios PRINT pero al no saber la longitud del campo variable que vas a imprimir, el tipo de letra, el tamaño ..., puff se te liara y se pueden solapar o quedar espacios muertos.

Te paso el enlace a los fuentes de una aplicación que esta colgada en el Foro, se trata de la Gestión para una Agencia de Viajes, y como me vi en tu mismo problema yo lo solucione creando un fichero ".RTF" para posteriormente editarlo e imprimirlo.

http://www.hmgforum.com/viewtopic.php?f=24&t=5908

Una vez lo descargues, ves al modulo TRAMARE.PRG, que es el encargado de gestionar las reservas y busca la función Imp_MaRe que es la que imprime los Bonos de Reservas. Pruebalo y veras que puedes utilizar diversos formatos en la misma línea, (tamaños, subrallado, negrita), y ahora mismo yo ya utilizo incluso colores. Esta forma la sigo empleando para mostrar determinados Informes o textos preelaborados.

Espero que te sea valido, recibe un saludo virtual.

[arroya2]

Are you printing a list of names, or are you printing a header of client name the a letter or message after the header on different pages.

Hola Franco. Quiero imprimir un documento donde aparezca el nombre de un cliente, su dirección, su telefono y que estos datos estén subrayados y el resto del texto no. Por Ejemplo:

'El propietario del elefante cuyo nombre es '+Clientes->Nombre+', que vive en la siguiente dirección '+Clientes->Direccion+' y que tiene el siguiente número de teléfono '+Clientes->Telefono+', declara que su elefante está vacunado.'

No se trata de realizar un listado de los registros con encabezado, sino de imprimir un documento con los datos de un determinado cliente.

Un saludo
Rafael Pérez



Hello Franco. I want to print a document where the name of a client, his address, his telephone number appear and that these data are underlined and the rest of the text is not. For example:

'The owner of the elephant whose name is '+Clients->Name+', who lives at the following address'+Clients->Address+'and who has the following telephone number'+Clients->Telephone+', declares that his elephant is vaccinated.'

It is not a question of making a list of the records with a header, but rather of printing a document with the data of a specific customer.

A greeting
Rafael Pérez

[arroya2]

Hola amigos.
Necesito imprimir un documento con diversos campos de una base de datos.
Para ello utilizo la orden:
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow, <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]

.... / .....

Rafael Pérez

Hola Rafael,

Eso que quieres hacer me da que es casi imposible, podrías hacerlo con varios PRINT pero al no saber la longitud del campo variable que vas a imprimir, el tipo de letra, el tamaño ..., puff se te liara y se pueden solapar o quedar espacios muertos.

Te paso el enlace a los fuentes de una aplicación que esta colgada en el Foro, se trata de la Gestión para una Agencia de Viajes, y como me vi en tu mismo problema yo lo solucione creando un fichero ".RTF" para posteriormente editarlo e imprimirlo.

http://www.hmgforum.com/viewtopic.php?f=24&t=5908

Una vez lo descargues, ves al modulo TRAMARE.PRG, que es el encargado de gestionar las reservas y busca la función Imp_MaRe que es la que imprime los Bonos de Reservas. Pruebalo y veras que puedes utilizar diversos formatos en la misma línea, (tamaños, subrallado, negrita), y ahora mismo yo ya utilizo incluso colores. Esta forma la sigo empleando para mostrar determinados Informes o textos preelaborados.

Espero que te sea valido, recibe un saludo virtual.

Hola Salinetas24.
Voy a intentar solucionar el problema con la solución que me has indicado.
Muchas gracias
Un saludo.
Rafael Pérez


Hello Salinetas24.
I will try to solve the problem with the solution you have indicated.
Thanks a lot
A greeting.
Rafael Pérez

[franco]

Where is the rest of the text coming from. Could it be in a mem file, or are entering as a variable before printing.
The declare part.

[andyglezl]

Hola amigos.
Necesito imprimir un documento con diversos campos de una base de datos.
Para ello utilizo la orden:
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow, <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ ITALIC ]
[ UNDERLINE ]
[ STRIKEOUT ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]
[ ANGLE <nAngleInDegrees> ]

Previamente almaceno en una variable de texto el contenido que voy a imprimir, porque debe tener una cierta extructura.
En esta variable voy encadenando los datos de l siguiente forma:
'D. '+Clientes->Nombre+' residente en '+Clientes->Direccion+', con numero de DNI '+Clientes->DNI
Mi problema es que los datos pueden tener una extensión diferente, dependiendo de cada registro y necesito subrayar o poner en negrita algunos campos.
La orden me permite subrayar o poner en negrita todo el texto y no una parte de él.
¿Cómo podría hacerlo?

Si tratas con esto:
*---------------------------------------
If you deal with this:

Code: Select all

A := "Tu primera parte del texto"
B := "El texto que va subrayado"
C := "El final de tu texto"
*---------------------------------------
A: = "Your first part of the text"
B: = "The text that is underlined"
C: = "The end of your text"



@ <Row> , <Col> PRINT DATA A
[ TO <nToRow, <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]


@ <Row> , <Col> PRINT DATA B
[ TO <nToRow, <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ UNDERLINE ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]


@ <Row> , <Col> PRINT DATA C
[ TO <nToRow, <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]