report design question

rbuser

I would like to get some advice on how to design a report for laser printer
. I need to print out checks and attach a detail report after each check.
I need to print one check from bin #1 and then print the detail report
(could have multiple pages or no pages) from bin #2

Thank you

digitalmetaphors

Here is an article taken from the tech tips newsgroup on selecting bins:

Sometimes you may want to print the first page of a report to the
manual bin and then print the remaining pages to the default bin.

You can use the Report.OnStartPage event to set the bin for any page.


Example:

procedure TForm1.ppReport1OnStartPageEvent(Sender:TObject);
var
lsBinName: String;

begin

if ppReport1.AbsolutePageNo = 1 then
lsBinName := ppReport1.PrinterSetup.BinNames[3]
else
lsBinName := ppReport1.PrinterSetup.BinNames[1];


ppReport1.Engine.Page.PrinterSetup.BinName := lsBinName;


end;



Note: The above example assumes the manual bin is 4th in the list
(remember its a 0 based index). To account for different print drivers,
you could search for the 'manual' bin in code by performing a search on
the printer's available bin names:

for liBin := 0 to ppReport1.PrinterSetup.BinNames.Count-1 do
if Pos('manual', ppReport1.PrinterSetup.BinNames[liBin]) > 0 then
begin
lsBinName := ppReport1.PrinterSetup.BinNames[liBin];
break;

end;

Cheers,

Jim Bennett
Digital Metaphors

rbuser

This works.

Be carfully and not surpried. some printer drivers does not change the bin
during a report.
Sure are: HP, Brother, Kyocera,
Earlier I had problems with Cannon Color Laser (they recognized the problems
and made a new driver now)

erich Rieder
Zurich-Switzerland

digitalmetaphors

Ok, Thanks for the heads up. Do you know which models are not working?
Perhaps we can put this in a tech tip of known issues with changing bins,
and if there is a driver which will work as a temporary replacement.

Cheers,

Jim Bennett
Digital Metaphors