Как распечатать WEB страничку при помощи HTML контрола?
Как распечатать WEB страничку при помощи HTML контрола?
Можно использовать два метода HTML контрола: AutoPrint или PrintPage.
Пример использования AutoPrint:
--------------------------------------------------------------------------------
Как распечатать WEB страничку при помощи HTML контрола
Можно использовать два метода HTML контрола: 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;
Взято с Исходников.ru
