FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Imprimir texto de un TMemo
Hola a todos,
veréis, me gustaría saber cómo completar un código (puesto más abajo) que tengo que sirve para imprimir el texto de un TMemo. Respeta saltos de línea, cambios de página y fuente (bueno, debería ser así, porque tengo la impresora estropeada y no he podido probarlo). En realidad es una modificación de un código que encontré bastante más sencillo. El código es un método que le he implementado al un nuevo componente, derivado de TMemo, y lo uso en un programa que muestra un diálogo para elegir impresora. Me gustaría que tuviera las siguientes características: - Que tenga ajuste de línea. - Que se imprima en la impresora que elija (si en el ordenador hay más de una). - Que se impriman tantas copias como se indiquen. - Que se imprima en el tamaño de papel que se elija. No sé si necesito algo más, pero en principio con eso me conformo. He buscado en los foros, pero no he encontrado nada que me sirva. No me interesa usar QuickReport. Utilizo Delphi 3 Standard. ¿Alguna segerencia? Este es el código:
Lo que hace es ir caracter por caracter de la propiedad Text del TNewMemo. Si encuentra un CR (#13) imprime la línea, si encuentra un PG (#12, cambio de página) llama a Printer.NewPage, y si el caracter no es LF (#10) pues se lo añade a la cadena a imprimir cuando encuentre otro CR. Gracias por vuestro interés. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Búsqueda de texto en TMemo | ixMike | Varios | 0 | 09-10-2006 19:24:51 |
Insertar texto de un Tmemo a un TQuery y a una Tabla | mrmanuel | SQL | 3 | 06-07-2005 22:32:36 |
Pasar texto a un TMemo | CARSOFT_AR | Varios | 2 | 21-01-2005 17:58:38 |
Insertar texto en un TMemo | Walterdf | Varios | 2 | 20-08-2004 20:04:38 |
Texto en un TMemo | Walterdf | Varios | 2 | 26-05-2003 15:59:31 |
|