| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Alexeu Lt JG

Registrado: 12 Abr 2007Mensajes: 62
|
Publicado: Mie 09 Abr, 2008 2:22 pm Asunto: Imprimir varias copias |
|
|
Hola a todos, he estado investigando en el foro y la verdad, no me aclaro.
Tengo un form con un par de edits y un par de codigos de barras y deseo imprimirlo tal cual queda el formulario.
He utilizado la sentencia:
Lo he moldeado un poco, como quitarle los bordes a los edits para que no se vean, etc...
Como puedo hacer para que el usuario elija cuantas copias quiere sacar?.
He estado mirando el componente TPrintDialog, pero no me aclaro.
Muchas gracias de antemano. |
|
| Volver arriba |
|
 |
martinlop2007 Lt JG


Registrado: 20 Feb 2007Mensajes: 67
|
Publicado: Mie 09 Abr, 2008 5:58 pm Asunto: |
|
|
Alexeu, en principio no se si de la manera que lo estas haciendo te valdrá, pero si utiliza Printer(), poniendo la linea que te comento abajo puedes indicar el numero de copias que quieras.
| Código: | Printer()->Copies = 2; |
Espero que te sirva.
Un saludo. _________________ Si dices que sabes, te preguntaran hasta que no sepas....
Si dices que no sabes, te diran hasta que sepas....
Gracias. |
|
| Volver arriba |
|
 |
Alexeu Lt JG

Registrado: 12 Abr 2007Mensajes: 62
|
Publicado: Jue 10 Abr, 2008 9:03 am Asunto: |
|
|
No, no me hace caso, solo imprime una copia del formulario.
Muchas gracias por contestar. |
|
| Volver arriba |
|
 |
Alexeu Lt JG

Registrado: 12 Abr 2007Mensajes: 62
|
Publicado: Jue 10 Abr, 2008 9:23 am Asunto: |
|
|
Bueno al final he decidido poner un TEdit y despues un bucle:
for i=0;i<StrToInt>Text);i++
{
Form1->Print();
}
Así segun el número que ponga en el Edit 4 se imprimiran ese número de copias.
Ahora me gustaría que se imprimiera centrado, alguien tiene alguna idea.
SALUDOS y GRÁCIAS |
|
| Volver arriba |
|
 |
Angel Master


Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
|
| Volver arriba |
|
 |
Alexeu Lt JG

Registrado: 12 Abr 2007Mensajes: 62
|
Publicado: Jue 10 Abr, 2008 11:38 am Asunto: |
|
|
No se porque no escribe bien el codigo, alguna rallada del foro.
for (int i=0; i<StrToInt>Text); i++)
{
frmMain->Print();
}
hay que convertir a entero el resultado de un edit |
|
| Volver arriba |
|
 |
hetorsc Lt JG

Registrado: 11 Abr 2007Mensajes: 61
|
Publicado: Mie 16 Abr, 2008 10:09 am Asunto: |
|
|
Dale a la tecla ImprPant tantas veces como quieras y ya está.
Juas |
|
| Volver arriba |
|
 |
|