FastReport, utilizar ChangePaper???
 

Hola compañeros,

utilizo Delphi7 y fastreport 4. Tengo 2 impresoras en un equipo, una simple HP en A4 y otro etiquetador Zebra que me imprime etiquetas en vertical de 5cm de ancho por 15 cm. de alto.
El problema es que:

1) lanzo un listado cualquier por A4, todo correcto.
2) ahora intento lanzar etiquetas por la Zebra. Le cambio de printer al objeto FastReport1 de esta forma:

frReport1.ChangePrinter(ImpresoraVieja,ImpresoraNueva);

El problema es que al imprimir me coge el tamaño de papel de la impresora vieja, por lo tanto, las etiquetas no salen bien. Mantiene el A4 de la primera impresión.

Espero haberme explicado bien, a ver si a alguien se le ocurre algo.

nota: he probado con:

Código Delphi [-]
     while ido
     begin
        if ((trim(EditAlto.Text)<>'') and (trim(EditAncho.Text)<>'')) then
           frReport1.Pages.Pages[i].ChangePaper(256,StrToInt(EditAlto.Text),StrToInt(EditAncho.Text),0,poLandscape)
        i:=i+1;
        //256 teóricamente es un parámetro que debe hacer caso al alto y ancho si no me equivoco
     end;

pero NO siempre me hace caso, la verdad no se porque.


Muchas gracias y Saludos a todos.