TPrinter->Copies doesn't work

Hi.....

I want to send some information to a printer (using TPrinter), and I want
the printer to print it multiple times. I've tried setting the Copies
property to a value bigger than 1, but it only prints 1 time.

Here is a sample code:
//-----------------
TPrinter *Lpt;
Lpt = Printer();
Lpt->Copies=5;
Lpt->BeginDoc();
  //Printing routine
Lpt->EndDoc();
//-----------------

What do I need to change to make 5 copies instead of 1?!?!?
TIA.... Parlando