Delphi тип TPrintDialog – клас, який створює діалогове вікно вибору та керування принтером

Delphi тип TPrintDialog – клас, який створює діалогове вікно вибору та керування принтером.

Тип TPrintDialog в Delphi: Відносно простий приклад

const
  TOTAL_PAGES = 4;      // Скільки сторінок друкувати
var
  printDialog    : TPrintDialog;
  page, startPage, endPage : Integer;

begin
  // Створення діалогу вибору принтера
  printDialog := TPrintDialog.Create(Form1);

  // Встановлення опцій діалогу друку
  printDialog.MinPage := 1;              
  printDialog.MaxPage := TOTAL_PAGES;
  printDialog.ToPage  := TOTAL_PAGES;
  printDialog.Options := [poPageNums];

  // Якщо користувач вибрав принтер (або значення за замовчуванням), друкуємо!
  if printDialog.Execute then
  begin
    // Використовуйте функцію Printer, щоб отримати доступ до глобального об'єкта TPrinter
    // Встановити альбомну орієнтацію
    Printer.Orientation := poLandscape;

    // Встановіть заголовок printjob – як воно з'являється в менеджері завдання з виведення на друк
    Printer.Title := 'Test print for Delphi';

    // Встановлюємо кількість копій для друку кожної сторінки
    Printer.Copies := printDialog.Copies;

    // Початок друку
    Printer.BeginDoc;

    // Користувач вибрав діапазон сторінок?
    if printDialog.PrintRange = prPageNums then
    begin
      startPage := printDialog.FromPage;
      endPage   := printDialog.ToPage;
    end
    else // Всі сторінки
    begin
      startPage := 1;
      endPage   := TOTAL_PAGES;
    end;

    // Встановлення номера початкової сторінки
    page := startPage;

    // Продовжуємо друкувати поки що все OK
    while (not Printer.Aborted) and Printer.Printing do
    begin
      // Пишемо номер сторінки
      Printer.Canvas.Font.Color := clBlue;
      Printer.Canvas.TextOut(40,  20, 'Page number = '+IntToStr(page));

      // Збільшуємо номер сторінки
      Inc(page);

      // Тепер починаємо нову сторінку – якщо вона не остання
      if (page <= endpage) and (not printer.aborted)
      then Printer.NewPage;
    end;

    // Кінець друку
    Printer.EndDoc;
  end;
end;