Print Preview kako da?

Kako da realizujem print preview slican kao onaj u Wordu. Ako moze na jednom primjeru da se pokaze.

Potpis

The truth shall set you free

Print preview cega?
Ako govorimo o reportima (quick?) nista lakse, a ako ne, moras tacno da objasnis sta zelis da imas u previewu, tj. sta stampas.


ss.

Potpis

When something is hard to do, then it's not worth doing.

Vjerovatno mu treba preview prozor za razne namjene.

Na net-u sam vidio nekoliko komponenti koje služe za to. Meni se nijedna nije svidjela pa sam napravio svoju. Komponenta, koju sam nazvao TPreview (maštovito), ima sve metode kao i TPrinter komponenta i još dodatne osobine kao što su veličine margine, i metodu Preview koja prikazuje preview prozor (kao u Word-u). Nije je bilo lako napraviti ali sada je printanje dječija igra. Bez obzira na vrstu i rezoluciju štampača preko te komponente crtam koristeći dimenzije u 1/100 mm i onda pozivom metode EndDoc printam a pozivom metode Preview prikazujem sadržaj.

ok, jos da je postavis ovde... :)

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Ne znam da li ga koristite, ali Rave Report je prilično moćan alat za štampu (mnogo moćniji od Quick Reporta) koji ima i preview opciju.

Evo dcu fajl od TPrinterEx komponente (gore sam nabrzinu napisao staro ime TPreview), pa probajte.

Ok probacu sa ovim sto si mi poslao. Tnx

Potpis

The truth shall set you free

Još samo nešto. Komponentu TPrinterEx ne keriraš nego kao i kod TPrinter komponente koristiš već kreiran PrinterEx (to je u stvari funkcija koja vraća TPrinterEx). Kao dodatak uz ovu komponentu imaš i komponentu TTextBox (nju trebaš kreirati) koja olakšava ispisivanje podataka u tabeli. Imaš propertije kojima podešavaš text, pozadinu, linije, prelamanje, skraćivanje teksta, poravnanje, položaj teksta...

Još samo kad bi postavio neki primer koji koristi sve te opcije tvoje komponente.

Potpis

_{„Naposletku, suština saznavanja nije u tome gubimo li igru, već kako je gubimo,
šta time spoznajemo, čemu nas je poraz naučio i kako nas to menja. Gubiti na određen
način znači - dobijati.”}
^{Richard Bach}

Hoćeš li i muzičku želju? DPotrudi se malo. Otkucaj PrinterEx pa tačku i prikazat će ti se svi propertiji i metode. Isto tako i za TTextBox. Ali evo:

var
TB: TTextBox;
begin
TB := TTextBox.Create;
TB.Fill.Color := clRed;
TB.TextPosition := 5;
TB.Font.Style := [fsBold];
TB.Borders.Top.Width := 50;
TB.Borders.Left.Width := 50;
TB.Borders.Right.Width := 50;
TB.Borders.Bottom.Width := 50;
PrinterEx.BeginDoc;
PrinterEx.Canvas.Ellipse(1000,1000,3000,4000);
TB.Rect := Rect(5000,5000,9000,7000);
TB.Draw('Ovo je proba');
TB.CellOffset(2,0);
TB.ModifyMode := mmEnd;
TB.Draw('Ovo nije proba, ovo je dugi tekst koji ne moze stati');
TB.CellOffset(-1,1);
TB.Fill.Color := clWhite;
TB.TextPosition := 6;
TB.Draw('Drugi red');
PrinterEx.NewPage;
PrinterEx.Canvas.Brush.Color := clRed;
PrinterEx.Canvas.Ellipse(1000,1000,3000,4000);
PrinterEx.NewPage;
PrinterEx.Canvas.Brush.Color := clGreen;
PrinterEx.Canvas.Ellipse(1000,1000,3000,4000);
PrinterEx.EndDoc;
PrinterEx.Preview;
TB.Free;
end;

samo u uses trebaš dodati PrintersEx

Ako mozete da mi pojasnite kako da iskoristim dfm i dcu fajlove sto ste ih poslali posto nisam jos nista slicno radio u vezi toga. Ne znam kako da od tih fajlova napravim *.pas file koji bi trebao ukljuciti u uses

Potpis

The truth shall set you free

Fajlovi treba da se nalaze u lib direktoriju ili direktoriju gdje se nalazi aplikacija. Bolje je staviti ih u lib direktorij jer će se moći koristiti u svim aplikacijama. U uses listu treba dodati PrintersEx i radit će. Ne treba ti .pas file.