🚀 go-pugleaf

Katarzyna Tews wrote:

> Mam problem. Chcialabym wydrukowac liste osob (L.p., Imie, Nazwisko itd.)
> znajdujacych sie w tebeli i przed drukowaniem moc ja obejrzec. Czy ktos wie
> jak to zrobic?

Bez gwarancji, ze to najlepszy sposob, ale...

Mozesz 
1. zapakowac cala liste, o ile sie zmiesci, do jakiegos MojeMemo: TMemo
   (zalozmy, ze MojeMemo lezy na formularzu FormPrzegladanie)
2. pokazac FormPrzegladanie zawierajacy MojeMemo (w tym momencie
   mozliwe jest ogladanie ;-) 
3. Puscic zawartosc MojeMemo na drukarke (zmienna Printer,
   polecam opis tej zmiennej w helpie). Na przyklad tak:

  
--------------------------------------------------------------------------
   {przyklad dziala w Delphi 1 pod Win 3.11}

   procedure TFormPrzegladanie.ButtonDrukujClick(Sender: TObject);
   var
    Plik: TextFile;
    i: Integer;
   begin
    {Nastawiamy stosowny font drukarki}
    with Printer.Canvas.Font do
     begin
      Name := 'Courier New CE';
      Size := (MojeMemo.Font.Size * 9) div 2; {To moze zalezec od
drukarki}
      Style := [fsBold];
     end;
    
    {Spinamy Plik z drukarka}
    AssignPrn(Plik);
    Rewrite(Plik);
   
    {Wrzucamy zawartosc MojeMemo do Pliku - trafia na drukarke}
    for i := 0 to MojeMemo.Lines.Count do
     begin
      WriteLn(Plik, MojeMemo.Lines.Strings[i]);
     end;
   
    {...i zamykamy Plik}
    System.Close(Plik); 
   end;
  
--------------------------------------------------------------------------
   

Moze to cos pomoze :-)

--
Pawel Pojawa
paw...@gazeta.pl
E-mail me for my PGP key