Fórum Impressão em EPSON LX-810. #176846

Tirado de 800Dicas e Truques em Delphi do LloydSoft

http://www.lloydsoft.hpg.ig.com.br/

298 - Resolvendo Problemas do Print-Setup do QuickReport
{Quando executa o PrintSetup do Preview e você está trabalhando com papel Personalizado, o QuickReport perde a configuração do Papel Personalizado, colocando o PaperSize de Custom para Letter. Para resolver o problema guarde o valor da propriedade PaperSize e do Length em variáveis e no evento BeforePrint você atribui o valor da variável para o QuickReport novamente, dessa forma resolve o problema. Veja exemplo }



Uses
qrprntr


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: TQuickRep;
var PrintReport: Boolean);
begin
QuickRep1.Page.PaperSize := cPaperSize;
QuickRep1.Page.Length := nLength;
end;