Printing in reverse order

rbuser

A user has asked if it is possible to print pages of a report in reverse
order, so as to aid page collation on some inkjet printers. Apparently MS
Word has it as an option. Anyone considered the issues involved in this??

rbuser

Sarah,
this is something most HP drivers will handle perfectly
cu
marc

rbuser

Thanks. Any ideas how to tell if the current printer is capable of this, and
then how to tell the printer to do this for a report??

Sarah

digitalmetaphors

You can print the pages to cache and then print them from cache in reverse
order. For example:

var
lDevice: TppDevice;
lPrinterDevice: TppPrinterDevice;
liIndex: Integer;
begin

lDevice := TppDevice.Create(nil);
lDevice.Publisher := ppReport1.Publisher;
lDevice.PageSetting := psLastPage;

ppReport1.CachePages := True;
ppReport1.PrintToDevices;

lDevice.Free;

lPrinterDevice := TppPrinterDevice.Create(nil);
lPrinterDevice.StartJob;

for liIndex := ppReport1.Publisher.PageCount-1 downto 0 do
lPrinterDevice.ReceivePage(ppReport1.Publisher.Pages[liIndex]);

lPrinterDevice.EndJob;
lPrinterDevice.Free;

--
Cheers,

Alexander Kramnik
Digital Metaphors

digitalmetaphors

If you want to try using the printers capability to do this check out the
windows documentation on using the DEVMODE structure which you can use to
query and set printer capabilities. If the device is capable of this then
you tell the printer to do this and not the report.

--
Cheers,

Alexander Kramnik
Digital Metaphors

rbuser

Sarah:

With my Canon inkjet printer, printing in reverse order is an option on
the advanced setup options. When the report (document) is printed simply
click on the "Properties" button beside the printer drop down list. One of
those options is "advanced" and one of those options is print in reverse
order.

Works real well.

--
-----------------------------------------------------------------------
Lance Karl Johnson, Executive Director
Helpnet of the Greater Denton Area
P. O. Box 1607
Denton, Texas 76202-1607
940-383-3166, ext. 237
940-380-0347 (Fax)