
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Dokumentum nyomtató komponens

Példaprogram letöltése

6441 bájt

Ki kell nyomtatni egy Word DOC állományt, vagy XLS Excel táblázatot, avagy Corel CDR-t? A sort folytathatnánk hosszasan, lényeg a nyomtatás: bármilyen dokumentum típusról is legyen szó, a mellékelt példában készített komponens segítségével elvégezhetjük annak nyomtatását.

A mellékelt példaprogram megnyitása előtt a PrintTo.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.

A komponens használatához a Document property-ben kell megadnunk - szükség esetén teljes elérési úttal együtt - a kinyomtatandó dokumentum állomány nevét. Ezt követően az Execute eljárás hívásával az adott dokumentum nyomtatása megtörténik.

A nyomtatást az alapértelmezett nyomtatóval fogjuk elvégezni. A Printer osztály GetPrinter eljárásával ennek paramétereit kérdezzük le.

A kinyomtatáshoz a ShellExecute függvényt használjuk, melynek a printto parancsot adjuk, így az meghívja az adott dokumentumhoz tartozó alkalmazást és utasítja annak kinyomtatására.

procedure TPrintTo.Execute;
begin
  Printer.PrinterIndex := -1;
  Printer.GetPrinter(device, driver, port, handle);
  s:=Format('"%s" "%s" "%s"', [device, driver, port]);
  ShellExecute(0, 'printto', PChar(FDocument), PChar(s), nil, SW_HIDE);
end;

A komponens felhasználása ezek után már egyszerű feladat: megadjuk a kinyomtatandó dokumentumot és meghívjuk az Execute eljárást.

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrintTo1.Document:=ExtractFilePath(Application.ExeName)+'\1.doc';
  PrintTo1.Execute;
end;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3047	Windows	Az XML bemutatása	1. rész
3059	Windows	Az XML bemutatása	2. rész
3068	Windows	Az XML bemutatása	3. rész
3077	Windows	Az XML bemutatása - deklarációk	4. rész
3086	Windows	Az XML bemutatása - MSXML, XSLT	5. rész
3094	Windows	Az XML bemutatása - DTD	6. rész
3105	Windows	XML adatok megjelenítése Excel-ben	7. rész
3114	Windows	Dokumentum hivatkozások az XML-ben	8. rész
3123	Windows	XML adattípusok	9. rész
3132	Windows	XML adatok HTML oldalakon	10. rész
3141	Windows	XML Notepad	11. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2002 évkönyv 545. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!