|
|
|
|
Példaprogram letöltése
7571 bájt
|
Ebből a cikkből megtudhatjuk, hogy hogyan lehet programból közvetlenül fájlba nyomtatni. Fény derül továbbá arra is, hogy az így létrejött állományt miként használhatjuk fel, vagyis miként nyomtathatjuk ki.
Néha bizony előfordul, hogy a nyomtatni kívánt dokumentumot nem azonnal a nyomtatóra szeretnénk küldeni, hanem mondjuk egy fájlban eltárolni. A Windows nyomtató meghajtóinál lehetőség van a fájlba nyomtatás beállítására, de nem a legkényelmesebb mindig a nyomtató beállításait módosítani.
Ahhoz, hogy fájlba nyomtassunk, a programból meg kell változtatnunk a nyomtatási port-ot "FILE:"-ra. Nézzük, hogy hogyan is tehetjük ezt meg.
Első lépésben lefoglalunk memóriát az adatoknak, majd a TPrinter osztály segítségével lekérdezzük a nyomtató beállításait. Ezt a GetPrinter függvénnyel tehetjük meg, amely a paraméterként megadott változókban adja vissza nekünk a kívánt értékeket. Az első három paraméter PChar típusú, míg a negyedik egy THandle típusú változó.
GetMem(pDevice, cchDeviceName);
GetMem(pDriver, MAX_PATH);
GetMem(pPort, MAX_PATH);
Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
Printer.SetPrinter(pDevice, PDriver, 'FILE:', hDMode);
FreeMem(pDevice, cchDeviceName);
FreeMem(pDriver, MAX_PATH);
FreeMem(pPort, MAX_PATH);
Printer.BeginDoc;
Printer.Canvas.TextOut(100, 100, 'Animare Software
példaprogram © 2001 (http://www.animare.hu)');
Printer.Canvas.TextOut(100, 130, 'Printer :'+Printer.Title);
Printer.Canvas.TextOut(100, 160, 'Index: '+
IntToStr(Printer.PrinterIndex));
Printer.Canvas.TextOut(100, 200, 'Printers:');
i:=0;
while i<Printer.Printers.Count do
begin
Printer.Canvas.TextOut(100, 230+i*30, ' - '+
Printer.Printers[i]);
inc(i);
end;
Printer.EndDoc;
Printer.Free;
end;
end;
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 222. 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!
|