Delphi Печать В Pdf

Delphi позволяет легко осуществлять печать документов. Для того чтобы сохранить данные в PDF формате можно использовать стороннюю библиотеку или встроенную в ОС печать в PDF.

Рассмотрим пример использования встроенной в ОС печати:

Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF');if Printer.PrinterIndex = -1 then  ShowMessage('PDF printer not found')else begin  Printer.Title := 'My document';  Printer.Orientation := poPortrait;  Printer.BeginDoc;  // добавляем данные на печать: текст, картинки  Printer.Canvas.TextOut(100, 100, 'Hello, World!');  Printer.EndDoc;end;

В данном коде документ будет отправлен на печать на принтер "Microsoft Print to PDF". Если этот принтер не установлен на компьютере пользователя, будет показано сообщение об ошибке.

Если нужна дополнительная функциональность для сохранения в PDF, можно использовать сторонние библиотеки, например, SynPDF или QuickPDF.

var  pdf: TPdfDocument;begin  pdf := TPdfDocument.Create;  try    pdf.Info.Title := 'My document';    pdf.BeginDoc;    // добавляем данные в документ    pdf.Canvas.TextOut(100, 100, 'Hello, World!');    pdf.EndDoc;    pdf.SaveToFile('mydocument.pdf');  finally    pdf.Free;  end;

В данном коде мы создаем новый документ, добавляем в него данные и сохраняем в файле "mydocument.pdf".