mORMot Open Source

var
  printDialog : TPrintDialog;
  MyPrinter: TPrinter;
  TGDIP: TGDIPages;
...
      TGDIP := TGDIPages.Create(Form1);
...
      printDialog := TPrintDialog.Create(Form1);
      MyPrinter := Printer;
      if printDialog.Execute then
      begin

         PrintPages(1, 1);
      end;