Печать текста на принтере

[brorhail]

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

Зачем создавать браузер?
Проще загрузить файл в мемо или стринглист...

размер файла не смущает? если будет 15-20метров сколько ждать будешь?
мало того что он будет в WebBrowser подниматься долго, так потом еще с печатью камасутриться

[Alter]

Как распечатать WEB страничку при пoмoщи HTML кoнтрoла

Мoжнo испoльзoвать два метoда HTML кoнтрoла: AutoPrint или PrintPage.

Пример использования AutoPrint:

uses
  Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  OldCur: TCursor;
begin
  OldCur := Screen.Cursor;

  with Printer do
  begin
    BeginDoc;
    HTML1.AutoPrint(handle);
    Title := HTML1.URL;
    EndDoc;
  end;

  Screen.Cursor := OldCur;
end;

-------

Есть два способа вывода на печать. Первый пример работает в IE 4.x и выше, в то время как второй пример расчитан на IE 3.x:

 var
   vaIn, vaOut: OleVariant;
 ...
 WebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT,
 OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);

либо:

 procedure TForm1.PrintIE;
 var
   CmdTarget : IOleCommandTarget;
   vaIn, vaOut: OleVariant;
 begin
   if WebBrowser1.Document <> nil then
     try
       WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
       if CmdTarget <> nil then
         try
           CmdTarget.Exec( PGuid(nil), OLECMDID_PRINT,
                          OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
         finally
           CmdTarget._Release;
         end;
     except
       // nothing
     end;
 end;

Обратите внимание: Если версия Delphi ниже чем 3.02, то необходимо заменить
PGuid(nil) на PGuid(nil)^