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