|
 | | |
| Autor | Správa |
|---|
KViki
Užívateľ
Založený: 21.10.2008
Príspevky: 197
Bydlisko: Nitra
 |  Zaslal: Ne 26.07.09 11:18 |   |
Ma niekto nejaku dokumentaciu o Tlaceni stranok cez delphi,. asi cez component -Printdialog /., dik |
| |
    |
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1049
| | Zaslal: Ne 26.07.09 12:03 | |
Ide o to, čo chceš tlačiť. Ak neformátovaný text, písaný jedným fontom, tak takto:
Na formulár daj 2 buttony - "Otvoriť súbor" a "Načítať súbor", TOpenDialog, TMemo. Do uses pridaj jednotku Printers.
Kliknutie na prvý button:
| kód: | begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end; |
Kliknutie na druhý button:
| kód: | var
SuborPreTlac: TextFile;
i: integer;
begin
AssignPrn(SuborPreTlac);
Rewrite(SuborPreTlac);
for i:= 0 to (Memo1.Lines.Count - 1) do
writeln(SuborPreTlac, Memo1.Lines[i]);
CloseFile(SuborPreTlac);
end; |
Ak chceš tlačiť formátovaný text, daj ho do RichEdit a potom:
| kód: | if PrintDialog1.Execute then
RichEdit1.Print('subor.txt'); |
Ak chceš tlačiť celý formulár, tak takto:
Iné príklady:
http://www.daniweb.com/code/snippet114.html#
http://www.inspired.sk/delphi/posielanie-surovych-dat-do-tlaciarne/ |
| |
|
|
KViki
Užívateľ
Založený: 21.10.2008
Príspevky: 197
Bydlisko: Nitra
| | Zaslal: Ut 28.07.09 10:45 | |
no takto som myslel., pomohlo dik,..,
a nemas nepoznas nejaku dokumentaciu k Richedit? bo to neviem formatovat., |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1049
| | Zaslal: Ut 28.07.09 18:26 | |
|
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
