TDBGrid auch ohne Report aus drucken?

[smart]

Zitat von BrunoT:

Hi Heike,

Dein DBGrid steht auf Form1, die die Unit Udruck unter Impementation mit uses aufruft.
In der Unit Udruck muss natürlich auch der Verweis auf Form1 vorhanden sein. Sorry

leider habe ich vergessen:

Delphi-Quellcode:

With Form1 do

if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
    for i:=0 to DBGrid1.SelectedRows.Count-1 do
    Begin
        for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
      ausgabeZeile(s);
      If y< -(hoehe-uRand) then
      Begin
       // break;
        SeitenNr;
        NewPage;
        y:= -oRand;
        SetMapMode(Handle,MM_LOMETRIC);
        printTitle(name);
      end;
    end;

Klappt trozdem nicht. Gleiche Fehlermeldung.