espacio papel desaprovechado

[mguixot]

Hola,

estoy imprimiendo un ticket por una impresora Samsung SRP-270, pero me encuentro con el problema de que entre impresión e impresión, deja mucho espacio en blanco libre, con el consecuente gasto de papel.
Para imprimir utilizo el siguiente código:

Código Delphi [-]
              with Printer do
              begin
                BeginDoc;
                Canvas.Font.Name:= 'Arial';
                canvas.font.style := [fsBold];
                Canvas.Font.Size := 10;
                Canvas.TextOut(07, 10, 'Mi cadena a imprimir');
                EndDoc;
             end;

He probado a cambiar el 10, por 0, pero igual, me deja como 2cm. aproximadamente en blanco, tanto al principio como al final.

Alguien sabe a que es debido?

Saludos

PD: Utilizo Delphi 7 Profesional

[Ñuño Martínez]

Tal vez sea por la configuración de la impresora, que incluye los 2cm. de margen. ¿Lo has comprobado?

[luisgutierrezb]

Bueno, no se como se maneje esa impresora, pero recuerda que entre la cabeza de impresion y la ranurita por donde sale el papel hay un espacio, probablemente ese sea el que te esta "faltando", yo uso en impresoras de tickets la impresion directamente en el puerto y segun el espacio que dejan, te da chance de imprimir el encabezado del ticket, a veces completo y a veces no o sea imprimes parte del encabezado o todo al final del ticket pero que no salga el encabezado de la ranura de la impresora

[mguixot]

El problema me lo genera la instrucción

Código Delphi [-]
beginDoc

y

Código Delphi [-]
endDoc

. Al parecer, cada vez que envio un job a la impresora, con esta sentencia, me origina un avance de papel innecesario.
Me gustaría saber si existe algun método o propiedad para hacer que ese avance de papel no se realice.

Saludos

[mguixot]

Perdonar, acabo de encontrar un enlace similar a mi pregunta, pero que no obtuvo una solución válida por lo visto.
http://www.clubdelphi.com/foros/show...ghlight=enddoc