Fórum IMPRESSÃO DE PAGINAS NO QUICKREPORT #163549
30/05/2003
0
Uso a rotina abaixo para imprimir mais de uma copia de um determinado relatorio feito no quickreport:
PrintDialog1.execute; //coloquei aqui
for x := 1 to PrintDialog1.copies do
frmrelaleat.Qrp1.print;
frmrelaleat.close;
Screen.Cursor := crDefault;
numquest := 0;
end;
Só que com isto não consigo selecionar uma determinada pagina do relatorio, ou seja, só consigo imprimir o relatorio completo isto é ruim por que vai que é perdido uma pagina e perdemos todo o resto da impressão.
GOSTARIA DE SABER SE ALGUEM SABE COMO FAZER PARA QUE EU CONSIGA HABILITAR A IMPRESSÃO DE DETERMINADA PÁGINA.
sds[]
Eugênio
PrintDialog1.execute; //coloquei aqui
for x := 1 to PrintDialog1.copies do
frmrelaleat.Qrp1.print;
frmrelaleat.close;
Screen.Cursor := crDefault;
numquest := 0;
end;
Só que com isto não consigo selecionar uma determinada pagina do relatorio, ou seja, só consigo imprimir o relatorio completo isto é ruim por que vai que é perdido uma pagina e perdemos todo o resto da impressão.
GOSTARIA DE SABER SE ALGUEM SABE COMO FAZER PARA QUE EU CONSIGA HABILITAR A IMPRESSÃO DE DETERMINADA PÁGINA.
sds[]
Eugênio
José Ramos
Curtir tópico
+ 0
Responder
Posts
30/05/2003
Josemarlourenco
Vc tem que setar as seguintes propriedades:
FReport.PrinterSettings.FirstPage := txt_FirstPage.Value;
FReport.PrinterSettings.LastPage := txt_LastPage.Value;
Naturalmente antes do seu código de impressão.
Observação:
txt_FirstPage: TSpinEdit;
txt_LastPage: TSpinEdit;
Josemar
FReport.PrinterSettings.FirstPage := txt_FirstPage.Value;
FReport.PrinterSettings.LastPage := txt_LastPage.Value;
Naturalmente antes do seu código de impressão.
Observação:
txt_FirstPage: TSpinEdit;
txt_LastPage: TSpinEdit;
Josemar
Responder
Gostei + 0
30/05/2003
Josemarlourenco
Outra coisa:
FReport: TQuickRep;
Josemar
FReport: TQuickRep;
Josemar
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)