Szevasz Attila ! (That's is Hi Attila)
add to uses section RLPrinters unit, in code :
// by printer idex
RLPrinter.PrinterIndex := 1;
// or by printer name name
RLPrinter.PrinterName := 'HP LaserJet BlaBlaBla';
// you can define copies
RLPrinter.Copies := 2;
// etc.