error en el report manager

[Anyu]

no uso ningun arreglo en ninguna parte, esto es mi codigo en delphi:

Código Delphi [-]
unit chequera;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, rpcompobase, rpclxreport, Mask;

type
  Tf_chequera = class(TForm)
    TITULO: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    contrato: TEdit;
    codigo: TEdit;
    cuota: TEdit;
    titular: TEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    new: TBitBtn;
    print: TBitBtn;
    Shape1: TShape;
    report: TCLXReport;
    mes: TMaskEdit;
    exit: TBitBtn;
    procedure newClick(Sender: TObject);
    procedure printClick(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_chequera: Tf_chequera;

implementation

{$R *.dfm}

procedure Tf_chequera.newClick(Sender: TObject);
begin
mes.Enabled:=true;
codigo.Enabled:=true;
contrato.Enabled:=true;
cuota.Enabled:=true;
titular.Enabled:=true;
Edit1.Enabled:=true;
Edit2.Enabled:=true;
Edit3.Enabled:=true;
Edit4.Enabled:=true;
print.Enabled:=true;
end;

procedure Tf_chequera.printClick(Sender: TObject);
var cont: Integer;
begin
mes.Enabled:=false;
codigo.Enabled:=false;
contrato.Enabled:=false;
cuota.Enabled:=false;
titular.Enabled:=false;
Edit1.Enabled:=false;
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit4.Enabled:=false;
print.Enabled:=false;
report.Filename:=f_chequera.report.Filename;
report.Report.Params[0].Value:= titular.Text;
report.Report.Params[1].Value:= StrToInt(cuota.Text);
report.Report.Params[2].Value:= contrato.Text;
report.Report.Params[3].Value:= StrToInt(codigo.Text);
report.Report.Params[4].Value:=StrToDate(mes.Text);
report.Report.Params[5].Value:=StrToInt(Edit1.Text);
report.Report.Params[6].Value:=StrToInt(Edit2.Text);
report.Report.Params[7].Value:=StrToInt(Edit3.Text);
report.Report.Params[8].Value:=StrToInt(Edit4.Text);
report.Execute;
end;

procedure Tf_chequera.exitClick(Sender: TObject);
begin
Close;
end;

procedure Tf_chequera.FormCreate(Sender: TObject);
begin
mes.Text:=DateToStr(now);
end;

end.

como ven es algo estupido y simple, es una ventana donde deben llenar datos, estos se les pasa al report y deberia imprimir pero no pasa nada, ahora tengo otro error que me dice que no hay espacio para imprimir y no entiendo porque el tamaño de mi pagina es mas grande que el de mi informe, es para una hoja tamaño 2100*3100, es para una matricial epson lx-300 que utiliza aun el lpt1

[[maeyanes]]

Hola...

A simple vista no se ve donde pueda estar el error. ¿En que línea te indica que ocurre el error?

Revisa la pila de ejecución de la aplicación al momento que ocurre el error, esto te puede dar una idea en que método se produce este.


Saludos...

[Anyu]

prove mi ejecutable en otras maquinas, el error es en el informe no en mi codigo delphi es el informe, me dice que no hay espacio para imprimir, y no entiendo como, porque yo creo haber puesto la configuracion de la pagina e impresora correctamente

[[Lepe]]

Yo es que no entiendo esto:

Código Delphi [-]
report.Filename:=f_chequera.report.Filename;
report.Report.Params[0].Value:= titular.Text;

¿me puedes explicar qué es qué?
porque report es un TCLXReport, pero f_chequera.report ¿no es acaso el mismo? ¿usas varias instancia del mismo form con distinta variable?

Otro detalle: ¿estás programando en linux o pretendes que sea compatible? Al menos yo he usado el TVCLReport

¿donde has configurado el tamaño de página? ¿dentro de Report Designer?

es para una hoja tamaño 2100*3100

pero ¿en qué unidades? porque Reportman usa twips y una pulgada son 1440 twips, por tanto 2100 vendría a ser 4 centímetros y pico, pero no sé si 2100 es el ancho o el alto.


Saludos

[Anyu]

hola lepe:

eso de las medidas me intereso quizas este en eso mi problema, quisieras explicarme mejor por favor como es eso....

por ejemplo para un papel continuo de 23 cm (ancho) por 26 cm (largo) como seria en el repor manager?, porque en las propiedades de su ancho y alto le pngo asi nomas, tal cual

[[Lepe]]

empieza por Archivo -> configurar impresión, ahí debe aparecer tu tamaño de página, si no aparece, tendrás que añadir uno en windows para que esté disponible ahí.

Te aconsejo que mires en Archivo -> configurar página ->configurar impresion -> configurar, ahí viene muchas opciones, igual tienes que especificar la impresora, en la mayoría solo cabe un folio A4, pero la tuya es distinta.

Aquí me parece que hay un error:

Código Delphi [-]
report.Filename:=f_chequera.report.Filename;

Por otra parte, si configuras en el Inspector de objetos el alto y ancho, estás haciéndolo para la banda detalle, no para el informe completo.

Saludos

[Anyu]

ya logre que aparesca, ahora solo debo ubicar bien los parametros para que imprima en el lugar correcto, el error estaba en que en el detalle de mi informe le ponia el mismo alto que mi hoja y eso no debe ser asi por lo que veo, me entero, y lo comento por si a alguien le alla pasado lo mismo, el detalle nunca debe ser del mismo tamaño que la hoja, debe ser menor al menos en el alto.

y la parte donde me dices que hubo un error, la verdad que a mi no me lanza ningun error el delphi, si no es de la forma en que lo he puesto, entonces como asigno a mi objeto del report el nombre del reporte que debe ejecutar?