I'm having trouble printing a non-fiscal Coupon by Report Builder, not printing all the items in the order, I'm inserting 52 products, and cutting into sequence product 36 .
Code:
dmRelatorios.cdsOrc.Active := False;
dmRelatorios.cdsOrc.Params.ParamByName('ECF_NUMERO').AsInteger := dmOperacao.cdsOrcECF_NUMERO.asInteger;
dmRelatorios.cdsOrc.Active := True;
dmRelatorios.cdsitOrc.Active := False;
dmRelatorios.cdsitOrc.Params.ParamByName('ECF_NUMERO').AsInteger := dmOperacao.cdsOrcECF_NUMERO.asInteger;
dmRelatorios.cdsitOrc.Active := True;
dmRelatorios.rptOrc.Template.FileName := strTemplateORCVENDA;
dmRelatorios.rptOrc.Template.LoadFromFile;
dmRelatorios.rptOrc.PrinterSetup.Copies := 1;
if strEscolheImpressoraORCVENDA = 'SIM' then
dmRelatorios.rptOrc.ShowPrintDialog := True
else
dmRelatorios.rptOrc.ShowPrintDialog := False;
if strTelaImpressoraORCVENDA = 'SIM' then
dmRelatorios.rptOrc.DeviceType := 'Screen'
else
dmRelatorios.rptOrc.DeviceType := 'Printer';
dmRelatorios.rptOrc.PrinterSetup.PrinterName := strImpressoraORCVENDA;
for i := 1 to StrToInt(strNUMCOPIAORCVENDA) do
begin
dmRelatorios.rptOrc.Print;
end;
To print the order items I am using a subReport
.
The problem is that you are not printing all items from subReport
.