yazdırma hakkinda..

[aydin038]

Arkadaslar herkese selam iyi calismalar..
benim ufak bi sorunum var..

numara1 - numara2- numara3- numara4
1 ---------- 1001
2 ---------- 1002
. ---------- .
. ---------- .
1000 ------ 2000

gibi gidyor.. ben bunu a4 sayfasını 4 e bolerek yazdırmak istedim..

yani ilk sayfada

numara1
1

numara2
1001

numara3
2001

numara4
3001

gibi yazacak ve yazdıkdan sonra diger sayfaya geçicek ve
numaralar bitene kadar numara ve sayfa attırarak yazdırma işlemi devam edecek..

dongu kısmını yaptırdım.. gerekli alanlara da yazdırma işlemi yaptırdım..
ama sayfayı arttımayı birturlu beceremedim..

biraz karısık yazdıysam kusura bakmayın.. yardımlarınızı rica eder iyi çalışmalar dilerim..

saygılar

[TRSoft]

1. Bir raporlama aracı kullanıyormusunuz? Kullanıyorsanız hangisini ?

2. QuickReport kullandığınız varsayarak :
Kullandığınız Bandın genişliğini ayarlayarak yapabilirsiniz.. Tabi soruyu doğru anladıysam..

[aydin038]

hocam saol tesekkur ederim.. sorunu hallettim..

Kod: Tümünü seç

var
i:integer;
metin:textfile;
sol,ust:integer;
begin

sol:=100;
ust:=100;


  AssignPrn(metin);
  Rewrite(metin);
  printer.Canvas.Font.Name:=FontDialog1.Font.Name;
  printer.Canvas.Font.Size:=FontDialog1.Font.size;

  for i:=0 to RichEdit1.Lines.Count-1 do
    begin

    printer.Canvas.TextOut(sol,ust,richedit1.Lines[i]);
    printer.NewPage;
    end;

  closefile(metin);

kolay gelsin