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.

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... :)

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

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.

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

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.

Ok hvala ti jos jednom