void __fastcall TForm1::Button1Click(TObject *Sender)
{
  PRINTDLG     pd;
  BOOL         fResult;

  memset(&pd,  0 , sizeof(PRINTDLG));

  pd.lStructSize = sizeof(PRINTDLG);
  pd.hwndOwner   = Handle;
  pd.Flags       = PD_COLLATE;

  fResult = PrintDlg(&pd);

  if(pd.hDevMode !=  0 )
    GlobalFree (pd.hDevMode);

  if(pd.hDevNames !=  0 )
    GlobalFree (pd.hDevNames);
}

  TPrintDialog =  class (TCommonDialog)
   private 
    FFromPage: Integer;
    FToPage: Integer;
    FCollate: Boolean;
    FOptions: TPrintDialogOptions;
    FPrintToFile: Boolean;
    FPrintRange: TPrintRange;
    FMinPage: Integer;
    FMaxPage: Integer;
    FCopies: Integer;
     procedure  SetNumCopies(Value: Integer);
   public 
     function  Execute: Boolean; override;
   published 
     property  Collate: Boolean read FCollate write FCollate default False;
     property  Copies: Integer read FCopies write SetNumCopies default  0 ;
     property  FromPage: Integer read FFromPage write FFromPage default  0 ;
     property  MinPage: Integer read FMinPage write FMinPage default  0 ;
     property  MaxPage: Integer read FMaxPage write FMaxPage default  0 ;
     property  Options: TPrintDialogOptions read FOptions write FOptions default [];
     property  PrintToFile: Boolean read FPrintToFile write FPrintToFile default False;
     property  PrintRange: TPrintRange read FPrintRange write FPrintRange default prAllPages;
     property  ToPage: Integer read FToPage write FToPage default  0 ;
   end ;

 function  TPrintDialog.Execute: Boolean;
 const 
  PrintRanges:  array [TPrintRange]  of  Integer =
    (PD_ALLPAGES, PD_SELECTION, PD_PAGENUMS);
 var 
  PrintDlgRec: TPrintDlg;
  DevHandle: THandle;
 begin 
  FillChar(PrintDlgRec, SizeOf(PrintDlgRec),  0 );
   with  PrintDlgRec  do 
   begin 
    lStructSize := SizeOf(PrintDlgRec);
    hInstance := SysInit.HInstance;
    GetPrinter(DevHandle, hDevNames);
    hDevMode := CopyData(DevHandle);
    Flags := PrintRanges[FPrintRange]  or  (PD_ENABLEPRINTHOOK  or 
      PD_ENABLESETUPHOOK);
     if  FCollate  then  Inc(Flags, PD_COLLATE);
     if   not  (poPrintToFile  in  FOptions)  then  Inc(Flags, PD_HIDEPRINTTOFILE);
     if   not  (poPageNums  in  FOptions)  then  Inc(Flags, PD_NOPAGENUMS);
     if   not  (poSelection  in  FOptions)  then  Inc(Flags, PD_NOSELECTION);
     if  poDisablePrintToFile  in  FOptions  then  Inc(Flags, PD_DISABLEPRINTTOFILE);
     if  FPrintToFile  then  Inc(Flags, PD_PRINTTOFILE);
     if  poHelp  in  FOptions  then  Inc(Flags, PD_SHOWHELP);
     if   not  (poWarning  in  FOptions)  then  Inc(Flags, PD_NOWARNING);
    nFromPage := FFromPage;
    nToPage := FToPage;
    nMinPage := FMinPage;
    nMaxPage := FMaxPage;
    lpfnPrintHook := DialogHook;
    lpfnSetupHook := DialogHook;
    hWndOwner := Application.Handle;
    Result := TaskModalDialog(@PrintDlg, PrintDlgRec);
     if  Result  then 
     begin 
      SetPrinter(hDevMode, hDevNames);
      FCollate := Flags  and  PD_COLLATE <>  0 ;
      FPrintToFile := Flags  and  PD_PRINTTOFILE <>  0 ;
       if  Flags  and  PD_SELECTION <>  0   then  FPrintRange := prSelection  else 
         if  Flags  and  PD_PAGENUMS <>  0   then  FPrintRange := prPageNums  else 
          FPrintRange := prAllPages;
      FFromPage := nFromPage;
      FToPage := nToPage;
       if  nCopies =  1   then 
        Copies := Printer.Copies  else 
        Copies := nCopies;
     end 
     else   begin 
       if  hDevMode <>  0   then  GlobalFree(hDevMode);
       if  hDevNames <>  0   then  GlobalFree(hDevNames);
     end ;
   end ;
 end ;