Duplex Druck

[MichaelStumpf]

Hallo,

ich möchte ein Quickreport duplex ausdrucken. Wenn ich den Report drucke (die Eigenschaft duplex ist auf true), bekomme ich dennoch 2 einzelne Seiten. Aus anderen Anwendungen wie z.B. Word geht der Duplexdruck!!!

[Bruno Danuseg]

Das ist das gleiche Problem wie mit der Schachtsteuerung. Probier mal diesen Patch für QuickReport 3.0.8

1. Um die Änderungen bei Bedarf leicht ungeschehen machen zu können, einfach
einen Compilerschalter in QRDEFS.INC eintragen, z.B.

{$DEFINE BINPATCH}

2.Änderungen in QRPRNTR.PAS:

procedure TPrinterSettings.ApplySettings;
begin
{$IFDEF BINPATCH}
Exit;
{$ENDIF}
FPrinter.GetPrinter(FDevice, FDriver, FPort, DeviceMode);
DevMode := GlobalLock(DeviceMode);
if PaperSize = Custom then
begin
if Supported(dm_paperlength) then
begin ........

....

procedure ResetDriver(aPrinter : TPrinter);
var
Device, Name, Port: array[0..255] of Char;
DevMode: THandle;
begin
aPrinter.GetPrinter( Device, Name, Port , DevMode );
{$IFNDEF BINPATCH}
aPrinter.SetPrinter( Device, Name, Port , 0 );
{$ENDIF}
end;

...

constructor TQRPrinter.Create;
begin
{$ifdef EvalVersion}
if not DelphiRunning then
begin
ShowMessage('This evaluation copy of QuickReport only works while Delphi
is running. '+
'Please contact QuSoft to order a full version');
Application.Terminate;
end;
{$endif}
FPrinterOK := Printer.Printers.Count > 0;
{$IFDEF BINPATCH}
aPrinter := Printer;
{$ELSE}
aPrinter := TPrinter.Create;
{$ENDIF}
aPrinterSettings := TPrinterSettings.Create;
if PrinterOK then
begin .............

destructor TQRPrinter.Destroy;
begin
if Status <> mpReady then
Cleanup;
if FCloseControl <> nil then
FCloseControl.Free;
{$IFNDEF BINPATCH}
aPrinter.Free;
{$ENDIF}
aPrinterSettings.Free;
PageList.Free...............

3. Änderungen in QuickRpt.pas

procedure TCustomQuickRep.PrinterSetup;
var
aDialog : TQRPrintDialog;
Device,
Driver,
Port : array[0..255] of char;
hDMode : THandle;
begin
aDialog := TQRPrintDialog.Create(Application);
aDialog.Printer := Printers.Printer;

aDialog.Printer.GetPrinter(Device, Driver, Port, hDMode);
{$IFNDEF BINPATCH}
aDialog.Printer.SetPrinter(Device, Driver, Port, 0);
{$ENDIF}
aDialog.Printer.PrinterIndex := PrinterSettings.PrinterIndex;
with aDialog do
try...................................

Das wars.

Falls es Probleme gibt, bitte melden

[MichaelStumpf]

Geht aber wohl nur, wenn man die Vollversion von Quickreport hat, und nicht nur die Version, die bei Delphi 6 dabei ist.???

Noch eine Info: Wenn ich díe Seite als Landscape drucke, geht Duplex, nur halt im normalen Format nicht...

[Bruno Danuseg]

Ja, das ist korrekt, wenn man die Quellen hat, kan man den Bugs auf den Grund gehen und vielleicht doch noch einen guten Reportbastler draus machen...
Ich habe Delphi 6 (noch) nicht - was ist denn für eine Version dabei?
3.0.9?

Und: Wenn man innerhalb der Druckvorschau auf Duplex stellt und dann den Dialog verlässt und wieder reingeht - steht dann der Drucker immer noch auf Duplex? (QR setzt die Einstellungen immer wieder neu...

[MichaelStumpf]

Genau, Version 3.0.9...

Ist das nicht irgendwie merkwürdig? Ich geben über 5000 DM für Delphi aus, um dann irgendwelche Bugs, die es schon seit zig Versionen gibt, beheben zu müssen.. Dazu sollte man Borland oder dieser I(§)%/%)Q= Quickreport-Firma mal eine Rechnung schreiben. Und wenn diese QuickReportSIOft-Leute es noch nicht einmal für nötig halten, auf eine Mail zu antworten... schrecklich.....

[Bruno Danuseg]

Die 3.0.9-Version habe ich noch nicht im Quelltext, ist noch nicht verfügbar.
Trotz aller Bugs - ich habe schon viele schöne Sachen mit QR machen können, die mit anderen Reportgeneratoren nicht möglich waren. Und zusammen mit QRDesign von THSD macht das ganze für den Anwender auch einen prima Eindruck

[MichaelStumpf]

Wo kriegt man denn dieses QRDesign??

michae

[Bruno Danuseg]

Unter <a href="www.thsd.de">www.thsd.de</a&gt