Распечатка файла

[lichking]

распечатка файла delphi 10.1 Berlin отправить на распечатку средствами delphi

[come-on]

запечатка файла delphi 10.1 Berlin отправить на запечатку средствами delphi

[Replicant]

Пример кода : Относительно простой пример
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.
    // Set to landscape orientation
    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;

[lichking]

А как с помощью OpenDialog1 присвоить распечатке нужный фаил

[northener]

Сообщение от lichking

А как с помощью OpenDialog1 присвоить распечатке нужный фаил

А может тебе и кофе еще сварить?

[lichking]

Сообщение от northener

А может тебе и кофе еще сварить?

к сожалению варка кофе не решает этой проблемы

[Replicant]

Сообщение от lichking

А как с помощью OpenDialog1 присвоить распечатке нужный фаил

uses
     ShellApi
procedure TForm1.ButtonClick(Sender: TObject);
begin
if OpenDialog1.Execute then
  ShellExecute(Handle, 'Print', PWideChar(Opendialog1.FileName), nil, nil, SW_Hide);
end;