Quick Report - force new page - Duplex Probleme

[spacewolf]

moin leute,

ich beiß grad in die tischkante :wall:
mit quickreport möchte ich durch den schalter forcenewpage ne neue seite erzeugen lassen und auf der zweiten seite das gewünschte ausgeben lassen... aber auf der zweiten Seite druckt er immer uffm Kopf!

Wenn ich was per Wordpad drucke :twisted: dann geht das tadellos! :pale: :gruebel:

der

Andreas :stupid:

[mkinzler]

Ändere die Bindungoption des Duplex-Druckes

[omata]

Welche Version?

Ab Version >= 4.0 gibt es...

Delphi-Quellcode:

Self.PrinterSettings.ExtendedDuplex

Bei Version < 4.0 kann man die Printers.pas korrigieren...

Printers.pas in das eigene Projektverzeichnis kopieren und nur diese Datei ändern!

Eine neue Datei (PrintersU.pas) anlegen...

Delphi-Quellcode:

unit PrintersU;

interface

var FExtendedDuplex:integer;

implementation

initialization
  FExtendedDuplex:=-1;
end.

Kopierte und erweiterte Printers.pas...

Delphi-Quellcode:

:
procedure TPrinter.SetPrinter(ADevice, ADriver, APort: PChar; ADeviceMode: THandle);
:
begin
:
  if DeviceMode <> 0 then
  begin
    DevMode := GlobalLock(DeviceMode);
    if FExtendedDuplex >= 0 then
      DevMode^.dmDuplex:=FExtendedDuplex;
    SetPrinterCapabilities(DevMode.dmFields);
  end;
:
:
:
    if DeviceMode <> 0 then begin
      if FExtendedDuplex >= 0 then
        DevMode^.dmDuplex:=FExtendedDuplex;
      SetPrinterCapabilities(DevMode^.dmFields);
    end;
:
end;
:

Die Unit PrintersU.pas wird nun in die Uses-Klausel der Unit aufgenommen, in der der Quickreport gedruckt wird. Vor dem Druck kann dann über FExtendedDuplex der gewünschte Duplexwert in die Druckersteuerung eingeschummelt werden.

Diesen Tipp habe ich mir gerade ausgedacht und er ist so nicht getestet, ich habe damit bis jetzt nur eine PrintToFile-Steuerung realisiert, vielleicht funktioniert es ja auch für die Duplexsteuerung 8)

[spacewolf]

danke probier ich mal aus...