Печать PDF без Adobe Reader в среде Delphi 6.0

Delphi , ОС и Железо , Принтеры и Печать

Печать PDF-файлов непосредственно из среды разработки Delphi является актуальной задачей для многих разработчиков, особенно если речь идет о старых версиях, таких как Delphi 6.0. Одна из основных проблем, с которой сталкиваются пользователи, заключается в том, что при попытке печати PDF с помощью стандартных средств Windows, Adobe Reader открывается, что нежелательно, так как требует дополнительных действий от оператора и может привести к неудобствам в работе.

Проблема и ее описание

При использовании следующей команды для печати PDF-файла через Delphi 6.0:

printCommand := 'print';
printerInfo := '';
ShellExecute(Application.Handle, PChar(printCommand),
    PChar(documentToPrint), PChar(printerInfo), nil, SW_HIDE);

Проблема заключается в том, что Adobe Reader появляется в интерфейсе пользователя, хотя сам PDF-файл не открывается. Это нежелательное поведение, так как оператору необходимо закрыть программу после каждого печати, а также возникают сложности с изменением пути к программе или сменой самой программы для просмотра PDF.

Поиск решения

Возникшая проблема зависит от конкретной конфигурации установки и ассоциаций файлов на целевом компьютере. Использование ShellExecute для контроля за этим процессом не представляется возможным. Следовательно, необходимо пересмотреть подход к решению задачи.

Подтвержденное решение

После исследования вопроса было найдено решение, которое, хоть и не является идеальным, но позволяет избежать открытия Adobe Reader. Установка Foxit Reader позволяет выполнить печать PDF без старта программы интерфейса пользователя. Для этого используется следующая команда:

ShellExecute(0, 'open', PChar('C:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe'), PChar('/t ' + documentToPrint + ' /d'), nil, SW_HIDE);

При этом Foxit Reader печатает PDF-файл, не открывая свой интерфейс. В качестве запасного варианта, если Foxit Reader не установлен, можно использовать стандартную команду печати.

Альтернативный подход

Также можно рассмотреть альтернативные методы печати PDF, например, использование специализированных компонентов для Delphi, которые предоставляют более тонкий контроль над процессом печати и не требуют открытия просмотрщика PDF.

Пример кода

В качестве примера можно рассмотреть использование компонентов, таких как TPDFPrintDialog из пакета VCL PDF, который позволяет настроить процесс печати PDF-файлов без необходимости открытия Adobe Reader или других просмотрщиков.

uses
  Vcl.PDFPrint;

var
  PDFPrintDialog: TPDFPrintDialog;
begin
  PDFPrintDialog := TPDFPrintDialog.Create(nil);
  try
    if PDFPrintDialog.Execute then
      // Печать PDF
  finally
    PDFPrintDialog.Free;
  end;
end;

Заключение

Печать PDF без открытия Adobe Reader в Delphi 6.0 требует особого подхода и может быть решена с помощью специализированных инструментов или программ, таких как Foxit Reader, а также с использованием дополнительных компонентов для Delphi, которые предоставляют более гибкие возможности печати.

Создано по материалам из источника по ссылке.

Проблема печати PDF-файлов в среде Delphi 6.0 без использования Adobe Reader и поиск решений для этого.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Принтеры и Печать ::