Announcement

**Michael Habbe** · 29.03.2006, 09:53

Hallo Volker,
.
meine Zeit mit QuickReport liegt zwar schon etwas zur�ck, aber kann man die Ereignisse nicht benutzen, um zu sehen, ob die Preview oder der Print l�uft? Wenn das so ist, k�nntest Du einen Z�hler integrieren, der nach einer Seite erh�ht wird. Dann k�nntest Du den Druck manuell abbrechen.
.
Gru�
Michae

**hwoess** · 29.03.2006, 18:07

Na dann w�rde ich den User ab einer gewissen Anzahl von Records vor dem Start des Druckes darauf hinweisen, um wieviele Datens�tze es sich handelt und ihn fragen, ob er wirklich drucken will. Denn wenn der Vorgang l�uft, dann ist meistens die Aufbereitung und der Transfer in den Druckerspooler so schnell, dass der Benutzer sowieso viel zu sp�t zum Reagieren kommt, denke ich mal. Und ein Stop in der Applikation entfernt die bereits im Spooler stehenden Seiten ja nicht mehr. Vorsorge ist besser als Heilen.
Und wenn's gar nicht anders geht, dann die Druck-Funktion nur zulassen, wenn die Anzahl der Datens�tze eine gewisse Gr��e nicht �berschreitet (ist ja alles im beforePrint event von TQuickRep kontrollier- und machbar)<br>
bye, Helmu

**Volker Lauckner** · 30.03.2006, 14:14

Hallo,

erst einmal Dank f�r die schnellen Antworten.

Das mit dem Abblocken des Drucks vor dem Aufruf hatte ich bereits implementiert. Der Anwender soll aber erst das gesamte Ergebnis sehen und auch speichern k�nnen (HTML, Text) oder es in eine PDF- Datei drucken k�nnen. Erst wenn er einen realen Drucker benutzt, sollen maximal 15 Seiten auf einmal gedruckt werden d�rfen. Hat der Anwender mehr Seiten ausgew�hlt, soll er mit einer Fehlermeldung darauf hingewiesen werden und die M�glichkeit einer erneuten Auswahl bekommen.

An das beforePrint- Ereignis habe ich auch schon gedacht. Ich finde aber nirgends eine M�glichkeit, die aktuell gew�hlte Seitenzahl zu ermitteln (Differenz: EndPage - FirstPage < 16, wobei FirstPage die erste gew�hlte Seite oder 1 und EndPage die letzte gew�hlte Seite oder PageCount ist). Wie kriege ich die Werte raus, die im DruckerSetupDialog von QReport 3.5 (Standard) gesetzt oder nicht gesetzt wurden?

F�r einen Hinweis oder Hilfe w�re ich dankbar.

Gru� Volke

**Michael Habbe** · 30.03.2006, 15:50

Wenn doch eh nur maximal 15 Seiten aus dem Drucker kommen sollen, lass einfach den Z�hler mitlaufen und brech dann online den Ausdruck ab. Daf�r wird nicht der SetupDialog gebraucht. Dem Anwender kannst Du doch �ber ein Label einen Hinweis geben, dass nur die ersten 15 Seiten gedruckt werden.
mfg
Michae

**Volker Lauckner** · 02.04.2006, 14:36

Hallo Michael, danke f�r die Hinweise.

Nicht nur die ersten 15 Seiten, sondern 15 Seiten ab Auswahl sollen ausgedruckt werden. Nur mit Z�hlen funktioniert das nicht. Ich habe jetzt eine Vorschauformular mit dem PrintDialog erstellt. Den Druck wollte ich �hnlich dem Beispiel in der Hilfe incl. der Seitenauswahl realisieren. Hier der Quelltext:

procedure TForm5.BitBtn8Click(Sender: TObject);
Var
I, Start, Stop: Integer;
begin
PrintDialog1.Options := [poPageNums];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageCount;
PrintDialog1.MaxPage := PageCount;
PrintDialog1.PrintRange := prPageNums;
if PrintDialog1.Execute then
begin
{ Druckbereich festlegen }
with PrintDialog1 do
begin
Start := FromPage;
Stop := ToPage;
if PrintRange = prAllPages then
if (Stop - Start) > 15 then
MessageDlg('Druck aller Seiten nicht m�glich - max. 15 Seiten ausw�hlen!', mtError, [mbOk], 0)
else begin
with Printer do
begin
BeginDoc;
for I := Start to Stop do
begin
// ----->> QRPreview1.Print; Hier soll die Seite der Vorschau gedruckt werden
if I <> Stop then
NewPage;
end;
EndDoc;
end;
end
else { PrintRange = prPageNums }
begin
if (Stop - Start) > 15 then
MessageDlg('Druck von mehr als 15 Seiten nicht m�glich - bitte neu ausw�hlen!', mtError, [mbOk], 0)
else begin
with Printer do
begin
BeginDoc;
for I := Start to Stop do
begin
// ---->> QRPreview1.Print; Hier soll die Seite der Vorschau gedruckt werden
if I <> Stop then
NewPage;
end;
EndDoc;
end;
end;
end;
end;
end;
end;

Leider sind in der Hilfe weder die Eigenschaften, Methoden noch die Events beschrieben. Wie kann ich die Seite ausdrucken?

Mir fehlt nur noch diese eine Quelltextzeile.

Gru� Volke

**Volker Lauckner** · 02.04.2006, 17:37

Hallo,
hier habe ich noch eine zweite Version mit QrPrinter- Komponenten.
Leider finde ich dazu keinereli Dokumentation:

procedure TForm5.BitBtn8Click(Sender: TObject);
Var
I, Start, Stop: Integer;
begin
with QRPreview1.QRPrinter do
begin
PrintSetup;

--->> Start := PrintSetup.FromPage; !!!!!
--->> Stop := PrintSetup.ToPage; !!!!!

MessageDlg('Seitenwahl: ' + IntToStr(Start) + ' - ' + IntToStr(Stop), mtInformation, [mbOk], 0);
if (Stop - Start) > 15 then
MessageDlg('Druck aller Seiten nicht m�glich - max. 15 Seiten ausw�hlen!', mtError, [mbOk], 0)
else begin
Title := 'ZGA - Ergebnisdruck';
Print;
end;
end;
end;

Wie kann ich den Variablen Start und Stop die im QRPrinter.Printsetup ausgew�hlten Werte (Namen der dort verwendeten Variablen) �bergeben, da ich keinerlei Dokumentation dazu habe finden k�nnen?

Vielen Dank f�r Eure Tipps!

Gru� Volke

**Oswald Mair** · 16.06.2006, 18:17

Hallo Volker
*
Mit den Befehl -> QuickRep.prepare wird der Report vorbereitet
Nun kannst du mit -> QuickRep.PageNumber die generierten Seiten auslesen.
*
if QuickRep.PageNumber > 15 then
****QuickRep.PrinterSetup
else
****QuickRep.print;

So sollte es funktionieren
*
Viel Erfolg
Oswal

Announcement

Druckauswahl QReport, Delphi 5

Druckauswahl QReport, Delphi 5

Comment

Comment

Comment

Comment

Comment

Comment

Comment