Drukowanie

0

Musze wydrukować z poziomu Delphi pewne dane w tabelce. Tabelkę mogę zrobić w HTML. Jak to wydrukować [???]

0

Najprostszym sposobem jest TWebBrowser.

0

File -> Print :

0

Wczytaj do TWebBrowser i wydrukuj. Pytasz jak? Na torry był taki kod:

// Print without Printer Dialog
// Drucken ohne Druckerauswahldialog

procedure TForm1.Button2Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,
vaIn, vaOut);
end;

// Print with Printer Dialog
// Drucken mit Druckerauswahldialog

procedure TForm1.Button3Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,
vaIn, vaOut);
end;

// Print Preview
// Druckvorschau

procedure TForm1.Button4Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW,
OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

// Page Setup Dialog
// Seite einrichten Dialog

procedure TForm1.Button5Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER,
vaIn, vaOut);
end;

Nie testowałem ale raczej działa ;)

Jakbyś miał problemy z WebBrowserem to zajrzyj do gotowców - mój art o pisaniu przeglądarki może pomóc.

A jachu za głupie odp. dostanie w ucho :-D

0

THX sebek

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0