X copias con TPrinter

[[newtron]]

Empezado por roman

Ni idea. ¿Has checado que la opción pcCopies esté activada en Printer.Capabilities? Según la ayuda, eso indica si el manejador de la impresora permite especificar el número de copias.

// Saludos

No lo he mirado pero los tiros no tienen que ir por ahi porque las dos copias las saca pero en folios distintos, no en el mismo como yo quiero.

[Casimiro Noteví]

Lo mismo puedes configurar en la impresora para que cambie su tamaño de página por el que te interesa.

[roman]

De hecho, ahora veo que no había leído correctamente la pregunta, pero no creo que eso se pueda. ¿Imprimir dos copias en la misma hoja? No conozco impresora que lo haga. En todo caso, ¿por que no repites la rutina de impresión para que salgan las dos copias?

// Saludos

[[newtron]]

Empezado por Casimiro Notevi

Lo mismo puedes configurar en la impresora para que cambie su tamaño de página por el que te interesa.

Ya he probado y se comporta exactamente igual le ponga el tamaño que le ponga.

Empezado por roman

De hecho, ahora veo que no había leído correctamente la pregunta, pero no creo que eso se pueda. ¿Imprimir dos copias en la misma hoja? No conozco impresora que lo haga. En todo caso, ¿por que no repites la rutina de impresión para que salgan las dos copias?

// Saludos

jejejejejej.... ¿tú sabes lo que me estás pidiendo?

[roman]

Empezado por newtron

jejejejejej.... ¿tú sabes lo que me estás pidiendo?

Sí. En lugar de

Código Delphi [-]
ImprimeDocumento;

pones

Código Delphi [-]
ImprimeDocumento;
ImprimeDocumento;

// Saludos

[[newtron]]

No es tan fácil, haciéndolo de esa forma se imprime igualmente en dos folios distintos porque por cada "Imprimedocumento" hace un salto de página de forma automática al hacer el .EndDoc y si no lo haces, al tener la misma posición en el canvas, imprimiría uno encima de otro.

La única solución sería hacer un "Imprimedocumento" y sin hacer .Endoc cambiar la posición vertical para que al hacer el segundo "Imprimedocumento" lo imprima debajo antes de hacer el .EndDoc y este tema lo tengo peliagudo, es una unidad con 8000 líneas que originalmente no hice yo y que estoy modificando según voy necesitando.

De todas formas lo intentaré por esa vía.

Gracias y un saludo

[roman]

No creo que tengas mayor problema. El ImprimeDocumento lo cambias por

Código Delphi [-]
ImprimeDocumento(PosicionInicial);
ImprimeDocumento(PosicionInicial + MedidaDeMediaCartilla);
TerminaDocumento(); // Aquí el EndDoc

es decir, no tienes que meterte con tus 8000 líneas, sólo cambiar el endoc de lugar y ponerle un parámetro a tu rutina.

Por cierto, ¿8000 líneas para imprimir? Pues ¿qué es? ¿El Don Quijote? Aunque no creo que quepa en media cuartilla

// Saludos