Musze wydrukować z poziomu Delphi pewne dane w tabelce. Tabelkę mogę zrobić w HTML. Jak to wydrukować [???]
Najprostszym sposobem jest TWebBrowser.
File -> Print :
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
THX sebek