Delphin formin tulostus

Taisin esittää kysymykseni vähän hölmösti...

Eli, olen tehnyt ohjelman, joka laskee erinäisiä
tietoja.
Ohjelma tulee useamman henkilön käyttöön.
Haluaisin tehdä napin, jota painamalla
tulostetaan lomake/formi/näyttö, johon tulokset
on laskettu annettujen lähtöarvojen perusteella.

Mitä vaihtoehtoja olisi tehdä tulostusnappi...?

Mona kirjoitti:

Taisin esittää kysymykseni vähän hölmösti...

Eli, olen tehnyt ohjelman, joka laskee erinäisiä
tietoja.
Ohjelma tulee useamman henkilön käyttöön.
Haluaisin tehdä napin, jota painamalla
tulostetaan lomake/formi/näyttö, johon tulokset
on laskettu annettujen lähtöarvojen perusteella.

Mitä vaihtoehtoja olisi tehdä tulostusnappi...?

Printterin ohjaamiseen on monta tapaa,mutta
kaiki ne vaatii senverran koodia,että sun
kannattaisi tutustua Tom Swan:in Delphi4 kirjaan
(on Suomeksi),siitä löytyy mitä pitää oikein
tehdä.
Pelkän formin tulostaminen on tosi helppoa
uses kenttään pitää lisätä-- printers --
sitten proseduuri missä lukee näin
-------
Form1.print;
-------
Mutta onko tässä järkeä??.

Jos käytät formilla jotain editoria esim.MEMO:a ,
niin sen tulostaminen käy siten että otat dialogs
välilehdeltä PrinterSetUpDialog:s komponentin
formille
(tätä kannattaa käyttää aina koska näin voidaan
muuttaa printterin asetuksia).
uses kentässä pitää lukea-- printers --
----------
procedure TForm1.Button1Click(Sender: TObject);
var
PP:TextFile;
a:integer;
begin
if PrinterSetupDialog1.Execute then begin
printer.canvas.font.size:=16;
printer.canvas.font.color:=clBlue;
assignPrn(PP);
Rewrite(PP) ;
try
for a := 0 to memo1.lines.count -1 do
writeln(PP,memo1.lines[a]);
finally
closeFile(PP);
end;
end else begin
end;
end;
---------
esimerkissä printataan sinisellä fontilla,
kokoa ja tyyliä ym.voi muuttaa mutta olisi
ehkä järkevää että käyttäjä voisi ennen
tulostamista jostakin ohjauspaneelista nämä
vapaasti valita.

Mad_Max kirjoitti:

Printterin ohjaamiseen on monta tapaa,mutta
kaiki ne vaatii senverran koodia,että sun
kannattaisi tutustua Tom Swan:in Delphi4 kirjaan
(on Suomeksi),siitä löytyy mitä pitää oikein
tehdä.
Pelkän formin tulostaminen on tosi helppoa
uses kenttään pitää lisätä-- printers --
sitten proseduuri missä lukee näin
-------
Form1.print;
-------
Mutta onko tässä järkeä??.

Jos käytät formilla jotain editoria esim.MEMO:a ,
niin sen tulostaminen käy siten että otat dialogs
välilehdeltä PrinterSetUpDialog:s komponentin
formille
(tätä kannattaa käyttää aina koska näin voidaan
muuttaa printterin asetuksia).
uses kentässä pitää lukea-- printers --
----------
procedure TForm1.Button1Click(Sender: TObject);
var
PP:TextFile;
a:integer;
begin
if PrinterSetupDialog1.Execute then begin
printer.canvas.font.size:=16;
printer.canvas.font.color:=clBlue;
assignPrn(PP);
Rewrite(PP) ;
try
for a := 0 to memo1.lines.count -1 do
writeln(PP,memo1.lines[a]);
finally
closeFile(PP);
end;
end else begin
end;
end;
---------
esimerkissä printataan sinisellä fontilla,
kokoa ja tyyliä ym.voi muuttaa mutta olisi
ehkä järkevää että käyttäjä voisi ennen
tulostamista jostakin ohjauspaneelista nämä
vapaasti valita.

Kiitos!

Kiitos!