Impressao de papel customizado com Quickrep

Question

Preciso imprimir relatorios em papel personalizado, minha impressora permite isso.Passo o Paper Size como Custom e indico uma altura e largura.porem todo relatorio, independente das dimensoes q eu col...

M@gnun · Answer

jah usei a dica d passar o lenght do quickrep no before print e nao resolveu, ontinua mandando como letter (216x289)...alguem tem alguma sugest�o?...

M@gnun · Answer

segue o cod que encontrei em varios lugares na net + tmb nao resolveu:


var  
  Form1: TForm1;  
  cPaperSize : TQRPaperSize;  
  nLength : Extended;

implementation

{$R *.dfm}

//----------------------------------------------------------------------------procedure TForm1.Button1Click(Sender: TObject);
begin  
cPaperSize := QuickRep1.Page.PaperSize;  
nLength := QuickRep1.Page.Length;  
QuickRep1.Preview;
end;
//----------------------------------------------------------------------------procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;  var PrintReport: Boolean);
begin  QuickRep1.Page.PaperSize := cPaperSize; QuickRep1.Page.Length := nLength;

end;

alguem tem outra sugestao?

M@gnun · Answer

para quem teve ou ter� este mesmo problema, informo q o mesmo foi resolvido com a atualiza��o do quickreport....

Neto · Answer

[quote:71b181c82f=�m@gnun�]para quem teve ou ter� este mesmo problema, informo q o mesmo foi resolvido com a atualiza��o do quickreport.[/quote:71b181c82f]

Atualizei o QuickReport 3.0 para 3.5, mas o problema n�o foi resolvido.

Neto

F�rum Impressao de papel customizado com Quickrep #327281