Imprimir 2 Vias no QReport

Delphi

29/04/2003

Ola pessoal,

Estou precisando imprimir 2 vias de cada folha no QReport, como fazer?


Helderjr

Helderjr

Curtidas 0

Respostas

Okama

Okama

29/04/2003

QuickRep1.PrinterSettings.Copies := 2;


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

29/04/2003

Helder,

Desculpe-me, só fui entender sua pergunta após a resposta do Okama.
Se a sua impressora não suportar ´PrinterSettings´, faça o seguinte:

  with TfrmQR.Create(Application) do
  begin
    QuickRep1.Prepare;
    QuickRep1.QRPrinter.Print;  { imprime a primeira cópia }
    QuickRep1.QRPrinter.Print;  { imprime a segunda cópia }
    QuickRep1.QRPrinter.Free;
    QuickRep1.QRPrinter := nil;
    free;
  end;



GOSTEI 0
POSTAR