Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi TFastreport 3.x Masterreport auf zwei seiten Drucken (https://www.delphipraxis.net/72757-tfastreport-3-x-masterreport-auf-zwei-seiten-drucken.html)

Karstadt 6. Jul 2006 11:11

Datenbank: Mysql • Version: 4.1 • Zugriff über: MYDAC

TFastreport 3.x Masterreport auf zwei seiten Drucken
 
Hallo.

ich möchte auf eine Seite 5 Datensätzen drucken und auf der andere die restlichen wie geht das? Ich kann die anzahl in MasterData auf 5 eingrenzen, dann muss ich aber auf der zweite seite weiter machen mit Datensatz 6..

uwewo 6. Jul 2006 11:38

Re: TFastreport 3.x Masterreport auf zwei seiten Drucken
 
Hi,

ich arbeite zwar mit FreeReport, sollte aber das gleiche sein.

Schau Dir mal das Beispiel "FrDemo" im Source an, da wird nach Zeilen und Spalten gedruckt.

Du solltest das Bsp. auf Zeilen begrenzen dann brauchst Du die MasterData nicht begrenzen.

Karstadt 6. Jul 2006 11:44

Re: TFastreport 3.x Masterreport auf zwei seiten Drucken
 
Meinst du ich begrenze die Daten in Delphi?

1. Tabelle (Datensätze auf 5 begränzen)
2. Tabelle (Alle Datensätze ab 5 anzeigen)

franktron 6. Jul 2006 12:12

Re: TFastreport 3.x Masterreport auf zwei seiten Drucken
 
@Uwewo das geht so nicht mehr in FR3

@Karstadt mach einfach ein Zähler im ReportScript und bei 5 fügst du einfach eine Seitenumbruch ein.

uwewo 6. Jul 2006 12:49

Re: TFastreport 3.x Masterreport auf zwei seiten Drucken
 
Ich weiß nicht ob es in FR3 diese Möglichkeit gibt, aber ich denke schon.

Gibt es den noch "TFRUserDataset" ???

Delphi-Quellcode:
type
   CrossRowDataset: TFRUserDataset;


var i, j    : Integer;
    RowCount : Integer;


//------------------------------------------------------------------------------

procedure FormCreate(Sender: TObject);
begin
   RowCount := 20; //Kannst Du ja vorher berechnen
end;

//------------------------------------------------------------------------------

procedure CrossRowDatasetFirst(Sender: TObject);
begin
  i := 0;
end;

//------------------------------------------------------------------------------

procedure CrossRowDatasetNext(Sender: TObject);
begin
  inc(i);
end;

//------------------------------------------------------------------------------
In Deinem Report nur noch die Höhe der Haupdaten anpassen, sollte funktionieren.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz