Ola, declare QRPrntr no uses da unidade. A4, A5, Letter, Legal, Folio, e etc... fazem parte do tipo TQRPaperSize
Até mais, Renan Serrano. Felipe Nunes escreveu: > > Bom dia Senhores, > > Estou tentando alterar o tamanho do papel em tempo de execução e estou > tempo > alguns problemas > ja tentei dessa forma > quick.Page.PaperSize := A4; > > dessa forma deu > quick.Page.PaperSize := 'A4'; > Erro de Incompatibles types > > Alguem sabe como posso fazer? > > case cmbPapel.ItemIndex of > 0: begin > quick.Page.PaperSize := A4; > end; > 1: begin > quick.Page.PaperSize := A5; > end; > 2: begin > quick.Page.PaperSize := 'B5'; > end; > 3: begin > quick.Page.PaperSize := Letter; > end; > 4: begin > quick.Page.PaperSize := Legal; > end; > end; > >
