Создать кнопку печать

[C4eLoveK]

Доброго времени суток все.
Я создаю электоронный справочник, с помощью TreeView и WebBrowser.
И мне нужно сделать так, что можно было по кнопке распечатать, распечатка шла с WebBrowse.

Так вот, помогите пожалуйста новичку реализовать это.
Вот код программы.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, OleCtrls, SHDocVw, ComCtrls, ImgList, Menus;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    TreeView1: TTreeView;
    Panel2: TPanel;
    WebBrowser1: TWebBrowser;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    PrintDialog1: TPrintDialog;
    procedure TreeView1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TreeView1Click(Sender: TObject);
begin
if (TreeView1.Selected.Text = 'Главная')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/index1.htm');
end;

if (TreeView1.Selected.Text = 'Основные понятия')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/index2.htm');
end;

if (TreeView1.Selected.Text = 'Тест')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/index3.htm');
end;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  if Printdialog1.execute then begin
     RichEdit1.Print(Form1.Caption);
  end;
end;

end.

как Я понял, нужно в

procedure TForm1.N1Click(Sender: TObject);
begin
  if Printdialog1.execute then begin
     RichEdit1.Print(Form1.Caption);
  end;
end;

изменить

RichEdit1.Print(Form1.Caption);

на WebBrowser каким то образом. Но Я реально не понимаю.
Спасибо заранее.

[C4eLoveK]

ну нарооод, помогите плиз)

[grom333]

Здравствуйте, у меня старые примеры есть, попробуйте так:
1)

 WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);

Не поможет, другой пример дам

[C4eLoveK]

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

Здравствуйте, у меня старые примеры есть, попробуйте так:
1)

 WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);

Не поможет, другой пример дам

к сожаление нет..выдал вот такое вот:

[C4eLoveK]

Может кто нибудь мог бы попробовать подправить?)
Вот исходник исходник.zip
Пожалуйста, очень необходимо)

[Димон_delphi7]

procedure TForm1.N1Click(Sender: TObject);
begin
if Printdialog1.execute then begin
WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);
end;
end;

[Димон_delphi7]

внимательней нужно быть!

[C4eLoveK]

Сообщение от Димон_delphi7

внимательней нужно быть!

Спасибо Димон)))




------------------------------------------------------ТЕМА ЗАКРЫТА------------------------------------------------------\