[es] - Delphi stampanje

neuromancer
Darko Todorovic

Član broj: 2889
Poruke: 120
*.info-net.co.yu

Jabber: neuromancer@elitesecurity.org
ICQ: 347089233

Profil

Re: Delphi stampanje

^{11.04.2004. u 22:02 - pre 243 meseci}

Pa to sto si ti pokusavao i nije tako lose, samo sto za to moras da imas dosta stpljenja. Ako ga imas, onda ti je moja preporuka najprostije resenje a to je

printer.canvas.nesto

Ostalo ces vec sam provaliti mrzi me da trazim primer. Uostalom mozes i malo po helpu da pogledas mislim da ima par primera za ovo.

i da, u uses listu moras da dodas PRINTERS,

pozdrav

ipak nisam mogao da izdrzim. Evo ti primer za jedan text iz memo-a

procedure TForm1.Button1Click(Sender: TObject);

begin
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, Memo1.Lines.Text);
EndDoc;
end;

end;

Uzeto iz delphi help-a.

MacBook Pro or iMac (intel Core Duo edition) user wannabe!!!
Uz malo srece i malo vise para... heh...

Odgovor na temu

crazy_zzr
Pancevo

Član broj: 24397
Poruke: 5
*.bisinter.net.

Profil

Re: Delphi stampanje

^{12.04.2004. u 14:09 - pre 243 meseci}

Ja sam to pravio ovako nekako pa onda sam to prepisivao i prepravljao u 10 button-a i moglo je samo deset strana da stampa ali to bas neradi kako treba hoce da brljavi da li neko to moze malo da prepravi da to samo deli na strane i stampa

procedure TForm32.Button1Click(Sender: TObject);
var
rrr,rr,kraj,r: integer;
labels_br: array[1..41] of TLabel;
labels_datum: array[1..41] of TLabel;
labels_naziv: array[1..41] of TLabel;
labels_iznosr: array[1..41] of TLabel;
labels_iznos2r: array[1..41] of TLabel;
labels_valuta: array[1..41] of TLabel;
labels_placenod: array[1..41] of TLabel;
labels_placeno: array[1..41] of TLabel;
labels_kk: array[1..41] of TLabel;
shape_linije: array[1..41] of tshape;
begin
for r := 1 to 41 do
begin
rr:=r-1;
shape_linije[r] :=Tshape.Create(self);
with shape_linije[r] do
begin
Parent := Form32;
BidiMode := Form32.Bidimode;
height := 1;
width:=800;
Left := 8;
Top := 23+rr*18;
pen.Color := clwhite;
brush.Color := clwhite;
end;

labels_br[r] :=TLabel.Create(self);
with labels_br[r] do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona1.Left;
Top := 24+rr*18;
Caption := form31.StringGrid1.cells[0,r];
end;

labels_datum[r] := TLabel.Create(self);
with labels_datum[r]do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona2.Left;
Top := 24+rr*18;
Caption := form31.StringGrid1.cells[1,r];
end;
labels_naziv[r] :=TLabel.Create(self);
with labels_naziv[r] do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona3.Left;
Top := 24+rr*18;
Caption := form31.StringGrid1.cells[2,r];
end;
labels_iznosr[r] := TLabel.Create(self);
with labels_iznosr[r]do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona4.Left;
Top := 24+rr*18;
Caption := form31.StringGrid1.cells[3,r];
end;
labels_iznos2r[r] :=TLabel.Create(self);
with labels_iznos2r[r] do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona5.Left;
Top := 24+rr*18;
autosize := false;
width := kolona5.Width ;
ALIGnMENT:= taRightJustify;
Caption := form31.StringGrid1.cells[4,r];
end;
labels_valuta[r] := TLabel.Create(self);
with labels_valuta[r]do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona6.Left;
Top := 24+rr*18;
autosize := false;
width := kolona6.Width ;
ALIGnMENT:= taRightJustify;
Caption := form31.StringGrid1.cells[5,r];
end;
labels_placenod[r] :=TLabel.Create(self);
with labels_placenod[r] do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona7.Left;
Top := 24+rr*18;
autosize := false;
width := kolona7.Width ;
ALIGnMENT:= taRightJustify;
Caption := form31.StringGrid1.cells[6,r];
end;
labels_placeno[r] := TLabel.Create(self);
with labels_placeno[r]do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona8.Left;
Top := 24+rr*18;
autosize := false;
width := kolona8.Width ;
ALIGnMENT:= taRightJustify;
Caption := form31.StringGrid1.cells[7,r];
end;
labels_kk[r] := TLabel.Create(self);
with labels_kk[r]do
begin
font.Size := 12;
Parent := Form32;
BidiMode := Form32.Bidimode;
Left := kolona9.Left;
Top := 24+rr*18;
autosize := false;
width := kolona9.Width ;
ALIGnMENT:= taleftJustify;
Caption := form31.StringGrid1.cells[8,r];
end;

if r = 41 then
begin
form32.Print ;
sleep(2000);
Form32.Refresh;
for rrr:=1 to 41 do
begin
labels_br[rrr].free;
labels_datum[rrr].free;
labels_naziv[rrr].free;
labels_iznosr[rrr].free;
labels_iznos2r[rrr].free;
labels_valuta[rrr].free;
labels_placenod[rrr].free;
labels_placeno[rrr].free;
labels_kk[rrr].free;
end;
page.caption := inttostr(strtoint(page.caption)-1);
if page.caption = '0' then
begin
showmessage('Mozete da nastavite sa radom');
form32.hide;
form31.button1click(self);
end
else
begin
button4click(self);
end;

end;
end;

end;

znaci to ima na strani 41 red otprilike 2 trecine strane i to sve brljavi kad je vise strana u stampi !!!

DA LI JE NEKO OVO RAZUMEO I DA LI MOZE DA MI TO POMOGNE

Zao mi je sto ste moja deca, a ne deca nekih mojih neprijatelja, ko je vas poznavao ni pakao mu nece tesko pasti

Odgovor na temu