[delphi] Marginesy drukowania w RichEdit

[Max1414]

Jak ustawić marginesy drukowania w RichEdit?

[Brainer]

Jak ustawić marginesy drukowania w RichEdit?

 

Nie jestem pewien, czy da radę to zrobić w RichEdit. Ale na pewno da się to zrobić przy użyciu obiektu typu TPrinter.

[sazian]

znalazłem 2 linki

http://4programmers.net/Delphi/FAQ/Tekst/R...e_z_marginesami

http://4programmers.net/Delphi/FAQ/RichEdit_-_marginesy

 

może sie przyda

[Max1414]

znalazłem 2 linki

http://4programmers.net/Delphi/FAQ/Tekst/R...e_z_marginesami

http://4programmers.net/Delphi/FAQ/RichEdit_-_marginesy

 

może sie przyda

 

Oba linki również znalazłem - z pierwszego w ogole to nie działa, drugi kod służy do ustawiania marginesu w programie, podczas drukowania nic to nie zmienia....

[Max1414]

a jeszcze sobie tak pomyślałem... a nie ma jakiejś systemowej procki drukowania? żeby tak z pliku drukować? wiem ze można ShellExecute + 'print', ale wtedy to np. drukuje przez MS Worda, a tak nie chce:)

 

 

@Brainer: dla mnie too hard, żeby przez TPrinter wydrukować sformatowany tekst

[Brainer]

@Brainer: dla mnie too hard, żeby przez TPrinter wydrukować sformatowany tekst

 

Nie powinno być tak trudno. Poszukaj sobie jakiś tutorialów. Możliwe, że jest do tego jakiś komponent. Ale nie jestem pewien. Daj znać, to mogę za czymś poszukać.

[Max1414]

pokaze co juz wymyslilem wczesniej odnosnie recznego drukowania:

 

procedure TForm1.DrukujZRichEdit;
var
 I, Left, Top, mrgL,[YY[[Y[YHvVFśĆFćR'ŚWĆRvćVćVFGŚVĆ2&tAMŃą51(HAMŃąg1.MarginRight div 24;
 mrgT:= PageSetupDialog1.MarginTop d]][[Y[YHÓFŁ&uCf\"ŁÓFĆVćwF&6VFBĆćW2FWBF(IĄ1QŃmtŃĄ
Ń;

     if (Left + mrgR >= Printer.PageWidth) or (RichEd][^WHHLĘH[Y[YHÓFŁFFWDVvB&6VFBĆćW2FWEśÓIĄ1QŃmtŃĄ
Ń(d else
       if i > 1 then
         Left:= Left + TextY
XY][^KLWJNXY][CŁ&6VFB6VĆVćwFŁÓfB6Ć#Ł&6MąŃŃŃ
ą(MŃąIĄMąŃŃbutes.Style;
     Font.Size:= RichEdit.SelAttributes.Size;
[YNHXY][]X][YN^]ĆVgBF&6VFBĆćW2FWEśVćCVćC&)

 

ale to w ogole nie jest dokonczone tak zeby dzialalo poprawnie... jak dobrze pamietam to brakuje przenoszenia wyrazow, obslugi justowania, punktorow i hmmm... nie wiem czego jeszcze dzisiaj ten kodzik pisałem.

 

Przenoszenie wyrazów to raczej nie jest zbyt duży problem, ale jakos nie mam wizji na justowanie i punktory :]

[sazian]

znalazłem coś podobnego do tego na 4p

http://www.delphicorner.f9.co.uk/articles/misc13.htm

tylko że tu jest

(...)
 LeftMargin := LeftMargin / 2.54;
(...)
^bpp&tŁ&tó#RC

 

może autor tego kodu na 4p pomylił sie i zamiast 2,54 dał 25,4

[Max1414]

znalazłem coś podobnego do tego na 4p

http://www.delphicorner.f9.co.uk/articles/misc13.htm

tylko że tu jest

(...)
 LeftMargin := LeftMargin / 2.54;
(...)
^bpp&tŁ&tó#RC

 

może autor tego kodu na 4p pomylił sie i zamiast 2,54 dał 25,4

 

Dzieki moj mistrzu!!! A ja jestem w szoku ... bo ze zdziwienia, że tamten kod działa, a ten z 4p nie postanowiłem sprawdzić to jeszcze raz... i ku mojemu zdziwieniu działa : O... nie mam pojęcia co wtedy było nie tak... tym bardziej zasugerowałem się komentarzami z 4p, że nie działa...

 

DZIĘKI JESZCZE RAZ!!