Kleines Druckproblem mit QuickReport

[Ulrich Berger]

Hallo zusammen,

eine unserer Anwendungen benutzt FritzFAX bzw. den dort integrierten Druckertreiber, um von der Anwendung aus Faxe zu versenden. Dies funktioniert seit Jahren ohne Probleme. Aus eher historischen Gründen wird zum Erstellen der zu faxenden Dokumente Quickreport in der Version 4.06 versendet (ein weiterer Grund ist, daß bisher niemand den Umstellungsaufwand übernehmen wollte, um das ganze z.B. auf Rave Reports umzustellen ;) )

Nun wurde auf einem neuen Anwendungsserver statt des FritzFAX HylaFax installiert. Hier kommt nach Auswahl der entsprechenden Programmfunktion zwar wie gewünscht der Fax-Dialog von Hylafax hoch, doch wird offenbar kein zu faxendes Dokument erkannt, der "Senden"-Knopf des Dialogs ist entsprechend ausgegraut.

Hier der entsprechende Quellcode:

Delphi-Quellcode:

Procedure TRepPapierAufForm.RepPapierAufBeforePrint(
  Sender: TCustomQuickRep; Var PrintReport: Boolean);
Var
  FaxDrucker: Integer;
Begin
  If PDruckAlsFax Then

   // Der Druck soll als Fax erfolgen...

  Begin

   // Ermitteln des Index des gesuchten Druckers aus der Liste der im
   // System installierten Drucker

    FaxDrucker := DBMADOGlobal.ErmittleDruckerIndex(DBMADOGlobal.FaxDrucker);

    If FaxDrucker = -2 Then
    Begin
      ShowMessage('Der in der Schlüsseltabelle eingetragene Faxdrucker'
        + chr(13) + '"' + DBMADOGlobal.FaxDrucker + '" ist auf Ihrem System '
        + 'nicht installiert.' + chr(13) + chr(13)
        + 'Bitte wenden Sie sich an die SWE oder Ihre Administration.');
      PrintReport := False;
    End;

    RepPapierAuf.PrinterSettings.PrinterIndex := FaxDrucker;
  End
  Else

   // Normaler Druck,
   // deshalb wird die Ausgabe auf den Standarddrucker gesetzt

    RepPapierAuf.PrinterSettings.PrinterIndex := -1;
End;

Hier noch ein paar weitere Infos:

Bisher lief die Anwendung unter Windows 2000 Server, also einem etwas betagteren Betriebssystem. Hier war auch besagtes FritzFax installiert.

Der neue Anwendungsserver, um den es geht läuft unter Windows Server 2008 R2 in der 64-Bit-Version (unsere Anwendung, da mit Delphi 2007 erstellt, ist natürlich 32-bittig).

Vielleicht hat jemand eine Idee, woran es liegen könnte? Falls weitere Informationen benötigt werden, werde ich die gern liefern.


Danke schon mal und Gruß Uli

[haentschman]

Hallo...

funktioniert denn der Druck auf einen physikalisch anwesenden Drucker ? 8-)

[Ulrich Berger]

Hallo,

ja das normale Drucken, also über den Standarddrucker des Systems, funktioniert einwandfrei (läuft im Quellcode ja über den ELSE-Zweig).


Gruß Uli

[haentschman]

Dann würde ich den Quickreport als Fehlerquelle ausschließen. Die erzeugten Druckdaten sind bei dem physikalischen Drucker bzw. Faxdrucker gleich. Frag mal beim Hersteller der Faxsoftware nach.