Как распечатать веб-страничку при помощи HTML-контрола?
01.01.2007
Можно использовать два метода 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; 
Взято из https://forum.sources.ru
    

