TDBGrid auch ohne Report aus drucken?

[Treffnix]

@BrunoT: Warum machst du das Grid nicht zum Parameter? Dann muss man da auch nicht son hässliches Konstrukt basteln, die Benamung bleibt dem Entwickler überlassen und man kanns auch mal für mehr als ein Grid benutzen.

Mir ist klar, dass dir das klar ist und dass es sich nur um ein Beispiel handelt, nur ist es imho leichter die Funktion anzupassen als das ganze Programm auf die Funktion umzubiegen.

[smart]

Zitat:

Zitat von BrunoT

6.automatisch wird dann Unit1

Delphi-Quellcode:

uses Printers, Dialogs, Sysutils, Graphics, Windows, Unit1;

eingefügt

Ja, jetzt klappt es. Er hat es nicht automatisch eingefügt!

Vielen Dank nochmal!

Heike.

[smart]

Hallo!

Also, drucken tuts aber nur den ersten Eintrag und da werden dann ganz viele raus.

Heike.

[BrunoT]

Hi Heike,

sorry :oops:

Delphi-Quellcode:

    for i:=0 to DBGrid1.SelectedRows.Count-1 do
    Begin
      GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));  //Setzt einen Datensatz weiter
      s:='';                                                //leeren des Strings
      for j := 0 to {FieldCount-1} 3 do         //beschränkt auf die ersten 3 Felder
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;

Da hat sich doch der fiese Fehlerteufel eingeschlichen. //qnd

mfg

BrunoT

[BrunoT]

@Treffnix,

na klar würde ich das sooo nicht verwenden, sondern sogar unabhängig von der Datenquelle gestalten(nur den String oder eine TStringlist übergeben). So haben wir das mal unter COBOL in seeligen Zeiten gemacht, wo es nur Zeilendrucker gab. :stupid:

mfg

BrunoT

[smart]

Zitat:

Zitat von BrunoT

Hi Heike,

sorry :oops:

Delphi-Quellcode:

    for i:=0 to DBGrid1.SelectedRows.Count-1 do
    Begin
      GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));  //Setzt einen Datensatz weiter
      s:='';                                                //leeren des Strings
      for j := 0 to {FieldCount-1} 3 do         //beschränkt auf die ersten 3 Felder
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;

Da hat sich doch der fiese Fehlerteufel eingeschlichen. //qnd

mfg

BrunoT

Da muss sich noch ein Fehler eingeschlichen haben! Jetzt wird nur noch die Überschrift gedruckt. Fast das gleiche Problem hatte ich auch, beim kopieren in einem TMemo. Entweder wurde nur eine Zeile kopiert oder nichts.

Heike.

[BrunoT]

Hi Heike,

bei mir geht es, wenn ich mehrere Zeilen markiere.

ich hänge die Unit UDruck als Quelle noch einmal dran.
Einmal zum Drucken nur das Grid und einmal für die ganze Tabelle.


mfg
BrunoT

[BrunoT]

Mist,

da hatte sich doch das s:=''; verkrümelt.

Noch einmal hochgeladen(Variante Tabelle)