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

Previous Top Next

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

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

--------------------------------------------------------------------------------

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

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

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

Code:

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;

©Drkb::03534