🚀 go-pugleaf

Thanks to Fishface's efforts I make the following public knowledge.

Printer()->Handle is not immediately effected by changing
Printer()->PrinterIndex.  Borland appears to be aware if you dig deep
enough.  Fishface did, and I post the following.

The workaround for changing the printer may involves something like the one
shown in the "vcl\dialog controls\tprintersetupdialog" link on this page:

http://info.borland.com/devsupport/delphi/fixes/delphi4/vcl.html


This little piece of code fixes so many problems.

  Printer->PrinterIndex = x; { set to any non-default printer }
  Printer->GetPrinter(Device, Driver, Port, hDMode);
  Printer->SetPrinter(Device, Driver, Port, 0);

First it gets the correct Handle for the selected printer.  Which then fixes
the page size information.  Which is critical to all us out there trying to
print on different printers each with a different size paper, margins, or
page setup.  ie.  Those of us trying to print on address labels to a
non-default printer who find that the printer incessantly feeds 10 inches of
paper between labels.  The reason is due to wrong handle equals wrong page
size information.

I thank all of those who have posted suggestions to solve my problem over
the last two weeks, including Gambit, JD, Vladimir, Alan, Bob, Hans, and
Midnight Programmer.

Thank you all.