Fórum problemas de ajuste no quickreport #230363
06/05/2004
0
:cry: Preciso configurar padões de impressão em um relatório, e só consegui regular número de cópias e seleção de impressora, conforme código abaixo. Gostaria de ajuda com código para configurar ordem de impressão (normal ou inversa) e qualidade de impressão (rascunho, normal ou alta qualidade). Se isto não for possível com o quickreport, favor indicar qual componente posso usar (de preferência freeware, senão vão preferir trocar de programador antes de adquirir qualquer novo componente).
Desde já agradeço.
André
...
Printer.GetPrinter(Device,Driver,Port,Mode);
if Device = ´´ then begin
Application.MessageBox(´Não existe impressora definida!´,
´Atenção!!!´,mb_Ok+mb_IconError);
end else begin
PrintDialog.Copies:=1;
if PrintDialog.Execute then begin
Application.CreateForm(TqrGraficos,qrGraficos);
with qrGraficos do begin
QuickRep.PrinterSettings.Copies:=Printer.Copies;
QuickRep.PrinterSettings.PrinterIndex:=Printer.PrinterIndex;
QuickRep.Prepare;
QuickRep.Print;
Free;
end;
end;
end;
...
Desde já agradeço.
André
...
Printer.GetPrinter(Device,Driver,Port,Mode);
if Device = ´´ then begin
Application.MessageBox(´Não existe impressora definida!´,
´Atenção!!!´,mb_Ok+mb_IconError);
end else begin
PrintDialog.Copies:=1;
if PrintDialog.Execute then begin
Application.CreateForm(TqrGraficos,qrGraficos);
with qrGraficos do begin
QuickRep.PrinterSettings.Copies:=Printer.Copies;
QuickRep.PrinterSettings.PrinterIndex:=Printer.PrinterIndex;
QuickRep.Prepare;
QuickRep.Print;
Free;
end;
end;
end;
...
Afmansur
Curtir tópico
+ 0
Responder
Posts
10/05/2004
Afmansur
:cry:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)